VB和Oracle的链接.docx

1、VB和Oracle的链接实现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的链接，有以下几种方法均可实现：方案一首先在Oracle中建立一些数

2、据并保存，查询时存在下面的数据,如图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数据库的链接，具体方法如下：新建工程，点击菜单栏里面的工程/部件按钮，出现如图12所示的部件的控件选项卡，选中如图

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

4、9方案三比较灵活的方式是通过引用ADODC控件，编程实现VB与Oracle的链接，具体方法如下：新建工程，点击菜单工具栏里面的工程/引用，跳出引用对话框，选中途中选项如图20所示：图 20设计如图21所示的窗体；图 21设置窗体上控件的属性，如图22所示：图 22设置窗体的VB代码如下：Option Explicit定义RS为ADODC对象的记录集Dim RS As New ADODB.Recordset定义conn为ADODC对象的连接Private conn As ADODB.ConnectionPrivate Sub CmdExit_Click()conn.CloseSet conn =

5、 NothingUnload MeEnd SubPrivate Sub CmdFirst_Click()RS.MoveFirstRS.UpdateEnd SubPrivate Sub CmdLast_Click()RS.MoveLastRS.UpdateEnd SubPrivate Sub CmdNext_Click()RS.MoveNextIf RS.EOF ThenRS.MoveLastRS.UpdateEnd IfEnd SubPrivate Sub CmdPrevious_Click()RS.MovePreviousIf RS.BOF ThenRS.MoveFirstRS.Update

6、End IfEnd Sub窗体运行时的初始化过程Private Sub Form_Load()定义connStr为连接字符串Dim connStr As String定义Cmd为ADODC命令字符串Dim Cmd As New ADODB.CommandSet conn = New ADODB.ConnectionconnStr = Provider = OraOLEDB.Oracle.1;DSN =misdb;uid = system; pwd = 19870326cc;conn.ConnectionString = connStr按照conn的内容连接数据库conn.Open DSN=mi

7、sdb;uid = system; pwd = 19870326cc;查询表cc1的内容With Cmd.ActiveConnection = conn.CommandType = adCmdTable.CommandText = cc1End With将表cc1的内容送记录集RSWith RS.CursorLocation = adUseClient.CursorType = adOpenStatic.LockType = adLockPessimistic.Open CmdEnd With定义5个文本框数据源为RSSet Text1.DataSource = RSSet Text2.Dat

8、aSource = RSSet Text3.DataSource = RSSet Text4.DataSource = RSSet Text5.DataSource = RS定义5个文本框显示的字段Text1.DataField = cc1nameText2.DataField = cc1lengthText3.DataField = cc1diameterText4.DataField = cc1screwText5.DataField = cc1toothEnd Sub还需要完成在Oracle中建立相应的表，插入相关的数据，如图23所示：图 23相应的代码如下：SQL create tab

9、le cc1 2 (cc1name varchar2(25), 3 cc1length varchar2(10), 4 cc1diameter varchar2(10), 5 cc1screw varchar2(15), 6 cc1tooth varchar2(10);Table 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 crea

10、ted.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 row created.SQL commit;Commit complete.SQL insert into cc1 2 values (高速球头立铣刀,110,20,35,3);1 row created.SQL commit;Commit complete.点击运行 ，运行结果如图24所示：图 24