VB和Oracle的鏈接

1、實(shí)現(xiàn) vb 鏈接 oracle 為了建立 vb 和 oracle 的鏈接，首先建立odbc 數(shù)據(jù)源，方法如下：打開(kāi)控制面板性能和維護(hù)管理工具數(shù)據(jù)源（odbc ） ，如圖 1 所示：圖 1 切換到系統(tǒng)dsn 選項(xiàng)卡，點(diǎn)擊添加按鈕，如圖2 所示：圖 2 出現(xiàn)創(chuàng)建新數(shù)據(jù)源對(duì)話框，選擇microsoft odbc for oracle點(diǎn)擊完成，如圖3 所示：圖 3 出現(xiàn) microsoft odbc for oracle setup對(duì)話框，輸入以下的設(shè)置，完成數(shù)據(jù)源的創(chuàng)建，如圖4 所示：圖 4 至此，完成了新數(shù)據(jù)源的創(chuàng)建，下面實(shí)現(xiàn)vb 和 oracle 的鏈接，有以下幾種方法均可實(shí)現(xiàn)：方案一首先在 o

2、racle 中建立一些數(shù)據(jù)并保存，查詢(xún)時(shí)存在下面的數(shù)據(jù),如圖 5 所示：圖 5 新建一個(gè)工程，雙擊data 控件，添加到表空間，如圖6 所示；圖 6 在 data 控件上點(diǎn)擊鼠標(biāo)右鍵，點(diǎn)擊屬性窗口，如圖7 所示 ; 圖 7 設(shè)置屬性窗口的屬性如圖8 所示 ; 圖 8 在窗體上添加textbox 控件，三個(gè)textbox 控件的屬性如圖9 所示：圖 9 完成后，窗口的界面如圖10 所示：點(diǎn)擊運(yùn)行按鈕，如圖11 所示，完成了vb 和 oracle 的鏈接，實(shí)現(xiàn)了用vb 從 oracle 中讀取數(shù)據(jù)。圖 10 圖 11 方案二通過(guò) adodc 控件實(shí)現(xiàn)vb 和 oracle 數(shù)據(jù)庫(kù)的鏈接，具體方法如

3、下：新建工程，點(diǎn)擊菜單欄里面的工程/部件按鈕，出現(xiàn)如圖12 所示的部件的控件選項(xiàng)卡，選中如圖所示的選項(xiàng)，點(diǎn)擊確定按鈕。圖 12 完成上面的操作步驟后，adodc 控件添加到左邊的工具欄里，雙擊該控件，在表空間中自動(dòng)出現(xiàn) adodc 控件，如圖13 所示：圖 13 在 adodc 控件上單擊鼠標(biāo)右鍵，選擇adodc 屬性，如圖14 所示：圖 14 在屬性頁(yè)里面設(shè)置，使用名稱(chēng)為misdb 的 odbc 數(shù)據(jù)源，如圖15 所示：圖 15 切換到身份驗(yàn)證選項(xiàng)卡，輸入用戶(hù)名稱(chēng)和密碼，如圖16 所示：切換到記錄源選項(xiàng)卡，選擇命令類(lèi)型和表的名稱(chēng)，如圖17 所示：圖 16 圖 17 在窗體上添加三個(gè)textb

4、ox 控件，分別設(shè)置屬性，如圖18 所示：圖 18 完成以上的操作步驟，點(diǎn)擊運(yùn)行按鈕，出現(xiàn)下面的結(jié)果，如圖19 所示：圖 19 方案三比較靈活的方式是通過(guò)引用adodc 控件，編程實(shí)現(xiàn)vb 與 oracle 的鏈接，具體方法如下：新建工程， 點(diǎn)擊菜單工具欄里面的工程/引用，跳出引用對(duì)話框，選中途中選項(xiàng)如圖20 所示：圖 20 設(shè)計(jì)如圖21 所示的窗體；圖 21 設(shè)置窗體上控件的屬性，如圖22 所示：圖 22 設(shè)置窗體的vb 代碼如下：option explicit 定義 rs 為 adodc 對(duì)象的記錄集dim rs as new adodb.recordset 定義 conn 為 adodc

5、 對(duì)象的連接private conn as adodb.connection private sub cmdexit_click() conn.close set conn = nothing unload me end sub private sub cmdfirst_click() rs.movefirst rs.update end sub private sub cmdlast_click() rs.movelast rs.update end sub private sub cmdnext_click() rs.movenext if rs.eof then rs.movelast

6、rs.update end if end sub private sub cmdprevious_click() rs.moveprevious if rs.bof then rs.movefirst rs.update end if end sub 窗體運(yùn)行時(shí)的初始化過(guò)程private sub form_load() 定義 connstr 為連接字符串dim connstr as string 定義 cmd 為 adodc 命令字符串dim cmd as new adodb.command set conn = new adodb.connection connstr = provider

7、= oraoledb.oracle.1;dsn =misdb;uid = system; pwd = 19870326cc; conn.connectionstring = connstr 按照 conn 的內(nèi)容連接數(shù)據(jù)庫(kù)conn.open dsn=misdb;uid = system; pwd = 19870326cc; 查詢(xún)表 cc1 的內(nèi)容with cmd .activeconnection = conn .commandtype = adcmdtable .commandtext = cc1 end with 將表 cc1 的內(nèi)容送記錄集rs with rs .cursorlocati

8、on = aduseclient .cursortype = adopenstatic .locktype = adlockpessimistic .open cmd end with 定義 5 個(gè)文本框數(shù)據(jù)源為rs set text1.datasource = rs set text2.datasource = rs set text3.datasource = rs set text4.datasource = rs set text5.datasource = rs 定義 5 個(gè)文本框顯示的字段text1.datafield = cc1name text2.datafield = cc1

9、length text3.datafield = cc1diameter text4.datafield = cc1screw text5.datafield = cc1tooth end sub 還需要完成在oracle 中建立相應(yīng)的表，插入相關(guān)的數(shù)據(jù)，如圖23 所示：圖 23 相應(yīng)的代碼如下：sql create table cc1 2 (cc1name varchar2(25), 3 cc1length varchar2(10), 4 cc1diameter varchar2(10), 5 cc1screw varchar2(15), 6 cc1tooth varchar2(10); t

10、able created. sql insert into cc1 2 values(直柄球頭立銑刀,100,20,35,3); 1 row created. sql commit; commit complete. sql insert into cc1 2 values(錐柄普通立銑刀,150,30,30,2); 1 row created. sql commit; commit complete. sql insert into cc1 2 values(削平柄普通立銑刀,100,25,35,3); 1 row created. sql commit; commit complete. sql insert into cc1 2 values (直柄過(guò)中心立銑刀,130,35,30,2); 1