VB6中用Oracle數據控件訪問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；

　　 注：安裝完Oracle後，在D:\Oracle\Ora81\BIN\目錄下會有oradc.ocx文件存在，VB可使用此控件訪問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