VB6使用OracleDataControl訪問Oracle

2024-08-29 13:38:40

字體：大中小

來源：轉載

供稿：網友

　　系統環境：
　　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
　　
　　四、啟動 Visual Basic 6.0，寫連接Oracle的VB程序
　　　　開始－＞程序－＞Microsoft Visual Basic 6.0 中文版－＞Microsoft Visual Basic 6.0 中文版
　　
　　　　文件－＞新建工程－＞VB 企業版控件，如下圖：
　　
　　　 VB6使用OracleDataControl訪問Oracle（圖一）

　　
　　添加訪問Oracle的部件（CTRL+T）：
　　
　　　　工程－＞部件－＞Oracle Data Control，如下圖：
　　
　　　 VB6使用OracleDataControl訪問Oracle（圖二）

　　
　　　　選中此控件（Oracle Data Control），單擊“確定”（此控件對應的就是D:/Oracle/Ora81/BIN/oradc.ocx）
　　
　　　　VB開發窗口右邊的工具箱面板上會出現此控件的圖形標志，
如下圖：
　　
　　　 VB6使用OracleDataControl訪問Oracle（圖三）

　　
　　　　用鼠標雙擊此控件（ORADC），再雙擊MSFlexGrid控件（上圖中另一個畫紅框的），
　　　　把它們放到窗體Form1上，默認名稱為ORADC1和MSFlexGrid1，如下圖：
　　
　　　 VB6使用OracleDataControl訪問Oracle（圖四）

　　
　　
　　
　　
　　　　修改控件ORADC1和MSFlexGrid1的屬性，如下圖：
　　
　　　　ORADC1的Connect屬性：user1/pass1
　　　　ORADC1的DatabaseName屬性：oradb
　　　　ORADC1的RecordSource屬性：select * from test
　　
　　　　MSFlexGrid1的DataSource屬性：ORADC1
　　
　　　 VB6使用OracleDataControl訪問Oracle（圖五）

　　
　　也可以不設置ORADC1控件的任何屬性，而使用窗體的Form_Load()過程來給ORADC1控件賦值
　　
　　　　Private Sub Form_Load()
　　　　 ORADC1.Connect = "user1/pass1"
　　　　 ORADC1.DatabaseName = "oradb"
　　　　 ORADC1.RecordSource = "select * from test"
　　　　 ORADC1.Refresh
　　　　End Sub
　　
　　　　按F5，運行此程序，結果如下圖：
　　
　　 VB6使用OracleDataControl訪問Oracle（圖六）