细说 Visual Basic数据连接之 ADO

ADO

ActiveX  Data Objects

vb系统的登录界面数据连接几乎是要用到这些的。

ADO是一种程序对象，用于表示用户数据库中的数据结构和所包含的数据。在Microsoft Visual Basic编辑器中，可以使用ADO对象以及ADO的附加组件（称为Microsoft ADO Extensions for DLL and Security(ADOX)）来创建或修改表和查询、检验数据库、或者访问外部数据源。

连接方式1

建立ADO引用，直接访问。

选中工程/引用/Microsoft Activex Data Objects 2.5 Library

  引用后就开始定义连接对象和记录集了

   Dim objcn as new Connection   ‘定义一个连接对象   Dim objrs as new Recordsect     ‘定义一个记录集对象   Dim strcn as String     ‘定义连接字符 变量   Dim  strSQL as String  ‘定义SQL语句字符串变量再次就是建立数据库连接。这里用到了ADO的Connection 对象的属性ConnectionString，用于指定连接数据源的基本信息。Objcn.connectionstring="Provider=Microsoft.Jet.OLEDB.3.51;"& "Data Source="&App.Path &"\数据库\实例1.mdb"Objcn.open ‘打开数据源连接

然后是执行查询命令，获得用户信息

查询这里用到了ADO Recordset对象的一些属性，ActiveCOnnection属性，代表数据源的活动连接。

StrSQL="Select 口令 from 系统用户 where 用户名='"& UserName &"'"Set objrs.ActiveConnection=objcnObjrs.Open(strSQL) If objRs.Eof then  '判断有无查询结果'关闭数据库连接，释放对象Objcn.closeSet objRs=NothingSet objCn=Nothing这里最好有些错误返回提示，这样是很人性化的gpError: Check_PassWord=255 Set objRs=Nothing  Set objCn=Nothing  

2 采用ADO访问ODBC数据源，有以下几个特点

A 通过ODBC访问数据库

B 使用ADORecordset对象保存数据，执行Update方法实时更新

ODBC开放数据库互连

（Open Database Connectivity，ODBC），它建立了一组规范，并提供了一组对数据库访问的标准API（应用程序编程接口）。这些API利用SQL来完成其大部分任务。ODBC本身也提供了对SQL语言的支持，用户可以直接将SQL语句送给ODBC。它的好处在于，不论是FoxPro、Access还是Oracle数据库，均可用ODBC API进行访问。由此可见，ODBC的最大优点是能以统一的方式处理所有的数据库。

 ODBC数据源类型有3种

用户DSN：计算机本地数据源，只能被当前用户使用

系统DSN:计算机本地数据源，可被任何具有权限的用户使用

文件DSN：可以不是计算机本地数据源，可被安装了相同驱动程序的用户共享connection对象在建立数据源连接时，默认使用MSDASQL（Microsoft OLE DBProvider for ODBC）驱动程序，所以在连接字符串中只需制定数据源名称即可，例如：objcn.open "DSN=myaccess"建立数据库连接

通过ODBC访问数据时，首先要创建ODBC数据源，这里以访问access说下步骤

Win7下

1 开始/控制面板/选择大图标/数据源（ODBC命令），打开ODBC数据源管理器，单击添加，创建新数据源对话框

2选择表中的MicrosoftAccess Driver（*.mdb）,单击完成，打开“ODBCMicrosoft Access 安装”对话框，输入数据源名称等信息

3单击选项，选择数据库后单击确定按钮

4单击确定关闭“ODBCMicrosoft Access 安装”对话框，新建的数据库名称显示在“ODBC数据源管理器”对话框。

之后是数据连接

首先还是建立ADO引用，这里就不细说了。

ConnectionString是Connection对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Database、DSN、UID等。

（1） Database：字符串表达式，指定服务器上的数据库名称。

（2） UID：字符串表达式，为ODBC数据源指定用户标识（用户账号名）。

（3） PWD：字符串表达式，为ODBC数据源指定用户口令。

（4） DSN：字符串表达式，指定连接的ODBC数据源名称。

第二是定义一个Connection对象，一个RecordSet对象和一个布尔变量。Connection对象用于建立数据源连接，RecordSet对象用于保存从数据源检索的数据，布尔变量用户标识当前记录是否被修改。声明如下

Dim objRs as Recordset ‘用于保存数据源记录集

Dim objCn as Connection ‘用于创建数据源连接

Dim isNeedSave as Boolean ‘用于标识是否需要执行保存操作

第三 建立数据连接

Set objcn =new connection ‘实例化connection对象Objcn.open "DSN=实例2DSN"‘建立数据库连接Set objrs=new recordset ‘创建客户端的记录集With objrs             ’设置查询         .cursorlocation=aduseclient ‘指定临时表位置         .cursortype=adopenstatic ‘使用键集游标         .locktype=adlockoptimistic ‘指定锁定类型         .open"select * from 系统用户"，objcnEnd with

 

最后要关闭释放对象

Set objRs=Nothing  ‘释放记录集对象

objCn=nothing‘释放数据连接对象

Set objCn=nothing  ‘释放连接对象