| 【点击：
】 阿木伯 著 |
|
| VB6 使用ADO控件访问 Oracle方法 |
|
- 系统环境：
1、操作系统：Windows 2000 Server
2、数据库： Oracle 8i R2 (8.1.6)
for NT 企业版
3、开发工具：Visual Basic 6.0 中文版
- 连接方法：
一、安装 Oracle 8i R2 (8.1.6) for NT 企业版
使用典型安装，安装目录为D:\Oracle；
二、安装 Visual Basic 6.0 中文版
把Visual Basic 6.0光盘放入光驱，使用典型安装，
安装目录为D:\Program Files\Microsoft Visual Studio\VB98；
三、生成Oracle实验记录
连入SQL*Plus，以system/manager用户登录
SQL> conn system/manager
创建新的用户：如user1/pass1，赋予connect,resource权限。
SQL> grant connect,resource to user1 identified by pass1;
SQL> conn user1/pass1
SQL> create table test(a number,b char(19));
SQL> insert into test values(1,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL> insert into test values(2,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL> insert into test values(3,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL> insert into test values(4,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL> insert into test values(5,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL> commit;
SQL> select * from test;
A B
---------- -------------------
1 2000-11-28 20:27:33
2 2000-11-28 20:27:36
3 2000-11-28 20:27:38
4 2000-11-28 20:27:40
5 2000-11-28 20:27:52
D:\Oracle\Ora81\network\ADMIN\tnsnames.ora中有如下内容：
ORADB =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 192.1.1.1)(PORT = 1521))
)
(CONNECT_DATA =
(SERVICE_NAME = oradb)
)
)
总结：
Oracle service_names： oradb
Oracle用户名： user1
户名密码： pass1
测试表名： test
tnsnames： oradb
四、启动 Visual Basic 6.0，写连接Oracle的VB程序
开始－＞程序－＞Microsoft Visual Basic 6.0 中文版－＞Microsoft Visual Basic 6.0 中文版
文件－＞新建工程－＞VB 企业版控件，如下图：
VB开发窗口右边的工具箱面板，如下图：
用鼠标双击控件DataGrid，再双击Adodc控件（上图中画红框的两个），
把它们放到窗体Form1上，默认名称为DataGrid1和Adodc1，如下图：
修改控件DataGrid1和Adodc1的属性，如下图：
Adodc1的CommandType属性：2 - adCmdTable
Adodc1的ConnectionString属性：
Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=user1;Data Source=oradb
Adodc1的Password属性：pass1
Adodc1的RecordSource属性：TEST
Adodc1的UserName属性：user1
DataGrid1的DataSource属性：Adodc1
 
按F5，运行此程序，结果如下图：
修改Adodc1控件的属性，也可以用以下方法：
|
| 【最后更新：
】 | |