VB6使用OracleDataControl訪問Oracle

　　系統環境
　　操作系統Windows Server
　　數據庫　Oracle i R () for NT 企業版
　　開發工具Visual Basic 中文版
　　
　　連接方法
　　
　　一安裝 Oracle i R () for NT 企業版
　　　　使用典型安裝安裝目錄為D:\Oracle
　　
　　注安裝完Oracle後在D:\Oracle\Ora\BIN\目錄下會有oradcocx文件存在VB可使用此控件訪問Oracle數據庫
　　
　　二安裝 Visual Basic 中文版
　　　　把Visual Basic 光盤放入光驅使用典型安裝
　　　　安裝目錄為D:\Program Files\Microsoft Visual Studio\VB
　　
　　三生成Oracle實驗記錄
　　　　連入SQL*Plus以system/manager用戶登錄
　　　　SQL> conn system/manager
　　
　　　　創建新的用戶如user/pass賦予connectresource權限
　　　　SQL> grant connectresource to user identified by pass;
　　
　　　　SQL> conn user/pass
　　　　SQL> create table test(a numberb char());
　　　　SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
　　　　SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
　　　　SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
　　　　SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
　　　　SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
　　　　SQL> commit;
　　
　　　　SQL> select * from test;
　　
　　　　 A B
　　　　
　　　　 ::
　　　　 ::
　　　　 ::
　　　　 ::
　　　　 ::
　　
　　　　D:\Oracle\Ora\network\ADMIN\tnsnamesora中有如下內容
　　
　　　　ORADB =
　　　　 (DESCRIPTION =
　　　　 (ADDRESS_LIST =
　　　　 (ADDRESS = (PROTOCOL = TCP)(HOST = )(PORT = ))
　　　　 )
　　　　 (CONNECT_DATA =
　　　　 (SERVICE_NAME = oradb)
　　　　 )
　　　　 )
　　
　　　　總結
　　　　Oracle service_names　oradb
　　　　Oracle用戶名　　　　　user
　　　　戶名密碼　　　　　　　pass
　　　　測試表名　　　　　　　test
　　　　tnsnames　　　　　　　oradb
　　
　　四啟動 Visual Basic 寫連接Oracle的VB程序
　　　　開始－＞程序－＞Microsoft Visual Basic 中文版－＞Microsoft Visual Basic 中文版
　　
　　　　文件－＞新建工程－＞VB 企業版控件如下圖
　　
　　　//jpg >
　　
　　添加訪問Oracle的部件（CTRL+T）
　　
　　　　工程－＞部件－＞Oracle Data Control如下圖
　　
　　　//jpg >
　　
　　　　選中此控件（Oracle Data Control）單擊確定（此控件對應的就是D:\Oracle\Ora\BIN\oradcocx）
　　
　　　　VB開發窗口右邊的工具箱面板上會出現此控件的圖形標志如下圖
　　
　　　//jpg >
　　
　　　　用鼠標雙擊此控件（ORADC）再雙擊MSFlexGrid控件（上圖中另一個畫紅框的）
　　　　把它們放到窗體Form上默認名稱為ORADC和MSFlexGrid如下圖
　　
　　　//jpg >
　　
　　
　　
　　
　　　　修改控件ORADC和MSFlexGrid的屬性如下圖
　　
　　　　ORADC的Connect屬性user/pass
　　　　ORADC的DatabaseName屬性oradb
　　　　ORADC的RecordSource屬性select * from test
　　
　　　　MSFlexGrid的DataSource屬性ORADC
　　
　　　//jpg >
　　
　　也可以不設置ORADC控件的任何屬性而使用窗體的Form_Load()過程來給ORADC控件賦值
　　
　　　　Private Sub Form_Load()
　　　　 ORADCConnect = user/pass
　　　　 ORADCDatabaseName = oradb
　　　　 ORADCRecordSource = select * from test
　　　　 ORADCRefresh
　　　　End Sub
　　
　　　　按F運行此程序結果如下圖
　　
　　//jpg >

From:http://tw.wingwit.com/Article/program/Oracle/201311/16753.html