VB和Oracle的链接

1、实现 vb 链接 oracle 为了建立 vb 和 oracle 的链接，首先建立odbc 数据源，方法如下：打开控制面板性能和维护管理工具数据源（odbc ） ，如图 1 所示：图 1 切换到系统dsn 选项卡，点击添加按钮，如图2 所示：图 2 出现创建新数据源对话框，选择microsoft odbc for oracle点击完成，如图3 所示：图 3 出现 microsoft odbc for oracle setup对话框，输入以下的设置，完成数据源的创建，如图4 所示：图 4 至此，完成了新数据源的创建，下面实现vb 和 oracle 的链接，有以下几种方法均可实现：方案一首先在 o

2、racle 中建立一些数据并保存，查询时存在下面的数据,如图 5 所示：图 5 新建一个工程，双击data 控件，添加到表空间，如图6 所示；图 6 在 data 控件上点击鼠标右键，点击属性窗口，如图7 所示 ; 图 7 设置属性窗口的属性如图8 所示 ; 图 8 在窗体上添加textbox 控件，三个textbox 控件的属性如图9 所示：图 9 完成后，窗口的界面如图10 所示：点击运行按钮，如图11 所示，完成了vb 和 oracle 的链接，实现了用vb 从 oracle 中读取数据。图 10 图 11 方案二通过 adodc 控件实现vb 和 oracle 数据库的链接，具体方法如

3、下：新建工程，点击菜单栏里面的工程/部件按钮，出现如图12 所示的部件的控件选项卡，选中如图所示的选项，点击确定按钮。图 12 完成上面的操作步骤后，adodc 控件添加到左边的工具栏里，双击该控件，在表空间中自动出现 adodc 控件，如图13 所示：图 13 在 adodc 控件上单击鼠标右键，选择adodc 属性，如图14 所示：图 14 在属性页里面设置，使用名称为misdb 的 odbc 数据源，如图15 所示：图 15 切换到身份验证选项卡，输入用户名称和密码，如图16 所示：切换到记录源选项卡，选择命令类型和表的名称，如图17 所示：图 16 图 17 在窗体上添加三个textb

4、ox 控件，分别设置属性，如图18 所示：图 18 完成以上的操作步骤，点击运行按钮，出现下面的结果，如图19 所示：图 19 方案三比较灵活的方式是通过引用adodc 控件，编程实现vb 与 oracle 的链接，具体方法如下：新建工程， 点击菜单工具栏里面的工程/引用，跳出引用对话框，选中途中选项如图20 所示：图 20 设计如图21 所示的窗体；图 21 设置窗体上控件的属性，如图22 所示：图 22 设置窗体的vb 代码如下：option explicit 定义 rs 为 adodc 对象的记录集dim rs as new adodb.recordset 定义 conn 为 adodc

5、 对象的连接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 窗体运行时的初始化过程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 的内容连接数据库conn.open dsn=misdb;uid = system; pwd = 19870326cc; 查询表 cc1 的内容with cmd .activeconnection = conn .commandtype = adcmdtable .commandtext = cc1 end with 将表 cc1 的内容送记录集rs with rs .cursorlocati

8、on = aduseclient .cursortype = adopenstatic .locktype = adlockpessimistic .open cmd end with 定义 5 个文本框数据源为rs set text1.datasource = rs set text2.datasource = rs set text3.datasource = rs set text4.datasource = rs set text5.datasource = rs 定义 5 个文本框显示的字段text1.datafield = cc1name text2.datafield = cc1

9、length text3.datafield = cc1diameter text4.datafield = cc1screw text5.datafield = cc1tooth end sub 还需要完成在oracle 中建立相应的表，插入相关的数据，如图23 所示：图 23 相应的代码如下：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 (直柄过中心立铣刀,130,35,30,2); 1