| Field对象用于表示数据类型的数据列。每个Field对象都对应于Recordset对象中的一列。使用Field对象的Value属性来设置或返回当前记录的数据。
5)Stream对象
Stream对象用于表示二进制数据或文本的流。使用Stream对象可以为数据库应用程序很方便的添加图像数据。
6)Error对象
Error对象包含了有关数据访问错误的详细信息，这些错误与涉及提供者的单个操作有关。在数据库应用升序设计中通过Error对象可以很方便地捕获错误并对错误进行处理。
2VisualBasic访问Oracle数据库的实现过程
ADO应用程序的使用方法有以下两种。
2.1用ADOData控件
ADO控件用于对数据源进行访问和操作。与Data控件相比，ADO控件的应用范围和功能更强大。该控件通过MicrosoftActiveXDataObject(ADO)技术，快速地创建一个到数据库的连接。ADO控件可以连接任何符合OLEDB范围的数据源或是一个ODBC数据库。
ADO不是内部控件，在使用ADO控件之前，必须先将该控件加载到工具箱中。选择“工程”“部件”，在列表中选择“MicrosoftADODataControl6.0(OLEDB)”选项，单机“确定”按钮，加载ADO控件到工具箱。
这种方法简单，用户只需写较少的代码，甚至不写一行代码，可以实现对数据库的访问。其缺点是效率较低，用户对程序的控制弱，不能充分发挥ADO强大功能。
2.2直接使用ADO对象
这种方法可以非常灵活地控制程序的细节，而且效率、性能很高，可以充分发挥ADO的特性。通过对ADO对象模型中的主要对象进行简单编程，达到快捷灵活地访问各种类型数据库的目的。因而本文采用此方法进行Oracle数据库访问。
3VisualBasic环境下无客户端访问Oracle数据库实现
3.1创建新工程及引用ADO数据对象
启动VisualBasic6.0集成开发环境后，在弹出的“新建工程”对话框中选择“标准EXE”，单机“确定”按钮，创建一个新工程。
VisualBasic6.0中绑定了ADO对象，使用ADO对象之前应该通过“工程”“引用”命令，选择“MicrosoftActiveXDataObject2.5Library”列项表，然后单机“确定”按钮，将ADO对象添加到工程中。
在Form1窗体上添加一个DataGrid控件，单机菜单中的“工程”“部件”选项，然后选取“MicrosoftDataGridControl6.0SP6(OLEDB)”列表项，单机“确定”按钮。此时DataGrid控件出现在工具箱。
3.2VisualBasic使用ADO远程访问Oracle数据库
下面代码显示了基于VB环境下利用ADO技术无客户端对Oracle数据库远程访问的实例。
PrivateSubForm_Load()
DimPathStrAsString,oraclePathAsStringoraclePath=Replace(App.Path,'/','')
IfRight(oraclePath,1)''ThenoraclePath=oraclePath&''oraclePath=oraclePath&'OracleInstantClient''组件存放的路径
PathStr=Environ('path')'获得老的Path环境变量的值
IfRight(PathStr,1)';'ThenPathStr=PathStr&';'
IfInStr(UCase(';'&PathStr),UCase(';'&oraclePath&';'))=0ThenPathStr=PathStr&oraclePath&';'
SetEnvironmentVariable'PATH',PathStr'设置dll访问的环境变量
SetEnvironmentVariable'NLS_LANG','SIMPLIFIEDCHINESE_CHINA.ZHS16GBK'
'设置环境变量，防止中文乱码
SetEnvironmentVariable'TNS_ADMIN',oraclePath'这是指tnsnames.ora文件所在路径
Setconn=NewADODB.Connection'创建连接对象
conn.Open'Provider=MSDAORA.1;UserID=system;Password=sa;DataSource=''(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=202.198.128.100)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=Vibratio)))'';PersistSecurityInfo=True;''基于MicrosoftOracle的连接
SetconnAsADODB.Connection'声明连接对象
Setrs=NewADODB.Recordset'创建记录对象
rs.Open'select*fromTest',conn'打开表格
SetDataGrid1.DataSource=rs'将表中的数据在DataGrid控件中显示
EndSub
其中环境变量的设置要在客户端上完成。 2/3 首页 上一页 1 2 3 下一页 尾页 |
