VB和Oracle的链接.docx
《VB和Oracle的链接.docx》由会员分享，可在线阅读，更多相关《VB和Oracle的链接.docx（16页珍藏版）》请在冰豆网上搜索。
VB和Oracle的链接
实现VB链接Oracle
为了建立VB和Oracle的链接，首先建立ODBC数据源，方法如下：
打开控制面板—性能和维护—管理工具—数据源（ODBC），如图1所示：
图1
切换到系统DSN选项卡，点击添加按钮，如图2所示：
图2
出现创建新数据源对话框，选择MicrosoftODBCforOracle点击完成，如图3所示：
图3
出现MicrosoftODBCforOracleSetup对话框，输入以下的设置，完成数据源的创建，如图4所示：
图4
至此，完成了新数据源的创建，下面实现VB和Oracle的链接，有以下几种方法均可实现：
方案一
首先在Oracle中建立一些数据并保存，查询时存在下面的数据,如图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所示的部件的控件选项卡，选中如图所示的选项，点击确定按钮。
图12
完成上面的操作步骤后，ADODC控件添加到左边的工具栏里，双击该控件，在表空间中自动出现ADODC控件，如图13所示：
图13
在ADODC控件上单击鼠标右键，选择ADODC属性，如图14所示：
图14
在属性页里面设置，使用名称为misdb的ODBC数据源，如图15所示：
图15
切换到身份验证选项卡，输入用户名称和密码，如图16所示：
切换到记录源选项卡，选择命令类型和表的名称，如图17所示：
图16图17
在窗体上添加三个TextBox控件，分别设置属性，如图18所示：
图18
完成以上的操作步骤，点击运行按钮，出现下面的结果，如图19所示：
图19
方案三
比较灵活的方式是通过引用ADODC控件，编程实现VB与Oracle的链接，具体方法如下：
新建工程，点击菜单工具栏里面的工程/引用，跳出引用对话框，选中途中选项如图20所示：
图20
设计如图21所示的窗体；
图21
设置窗体上控件的属性，如图22所示：
图22
设置窗体的VB代码如下：
OptionExplicit
'定义RS为ADODC对象的记录集
DimRSAsNewADODB.Recordset
'定义conn为ADODC对象的连接
PrivateconnAsADODB.Connection
PrivateSubCmdExit_Click（）
conn.Close
Setconn=Nothing
UnloadMe
EndSub
PrivateSubCmdFirst_Click（）
RS.MoveFirst
RS.Update
EndSub
PrivateSubCmdLast_Click（）
RS.MoveLast
RS.Update
EndSub
PrivateSubCmdNext_Click（）
RS.MoveNext
IfRS.EOFThen
RS.MoveLast
RS.Update
EndIf
EndSub
PrivateSubCmdPrevious_Click（）
RS.MovePrevious
IfRS.BOFThen
RS.MoveFirst
RS.Update
EndIf
EndSub
'窗体运行时的初始化过程
PrivateSubForm_Load（）
'定义connStr为连接字符串
DimconnStrAsString
'定义Cmd为ADODC命令字符串
DimCmdAsNewADODB.Command
Setconn=NewADODB.Connection
connStr="Provider=OraOLEDB.Oracle.1;DSN=misdb;uid=system;pwd=19870326cc;"
conn.ConnectionString=connStr
'按照conn的内容连接数据库
conn.Open"DSN=misdb;uid=system;pwd=19870326cc;"
'查询表cc1的内容
WithCmd
.ActiveConnection=conn
.CommandType=adCmdTable
.CommandText="cc1"
EndWith
'将表cc1的内容送记录集RS
WithRS
.CursorLocation=adUseClient
.CursorType=adOpenStatic
.LockType=adLockPessimistic
.OpenCmd
EndWith
'定义5个文本框数据源为RS
SetText1.DataSource=RS
SetText2.DataSource=RS
SetText3.DataSource=RS
SetText4.DataSource=RS
SetText5.DataSource=RS
'定义5个文本框显示的字段
Text1.DataField="cc1name"
Text2.DataField="cc1length"
Text3.DataField="cc1diameter"
Text4.DataField="cc1screw"
Text5.DataField="cc1tooth"
EndSub
还需要完成在Oracle中建立相应的表，插入相关的数据，如图23所示：
图23
相应的代码如下：
SQL>createtablecc1
2（cc1namevarchar2（25）,
3cc1lengthvarchar2（10）,
4cc1diametervarchar2（10）,
5cc1screwvarchar2（15）,
6cc1toothvarchar2（10））;
Tablecreated.
SQL>insertintocc1
2values（'直柄球头立铣刀','100','20','35','3'）;
1rowcreated.
SQL>commit;
Commitcomplete.
SQL>insertintocc1
2values（'锥柄普通立铣刀','150','30','30','2'）;
1rowcreated.
SQL>commit;
Commitcomplete.
SQL>insertintocc1
2values（'削平柄普通立铣刀','100','25','35','3'）;
1rowcreated.
SQL>commit;
Commitcomplete.
SQL>insertintocc1
2values（'直柄过中心立铣刀','130','35','30','2'）;
1rowcreated.
SQL>commit;
Commitcomplete.
SQL>insertintocc1
2values（'高速球头立铣刀','110','20','35','3'）;
1rowcreated.
SQL>commit;
Commitcomplete.
点击运行，运行结果如图24所示：
图24
升级会员 