ADO对象的使用
在上一遍文章中我们说了VB中基于ADO的数据库访问，接下来让我们一起来看一下ADO的七个对象，其中我们会重点讲述Command和Recordse两个对象。
我们先通过下面这张图对ADO的七个对象有一个大概的了解：
从图中的关系线以及我们可以看出，当我们通过Connection对象与数据源建立连接以后，既可以通过Recordset对象对数据进行操作，也可以通过Command命令对象来执行查询，然后在传送给Recordset对象进行数据操作。
下面我们先说Recordset对象：
例如：
Dim objCn As New Connection Dim objRs As New Recordset Dim strCn As String Dim strSQL As String '建立数据库连接 objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path \实例1.mdb" objCn.Open '执行查询命令，获得用户登录口令 strSQL = "SELECT 口令,身份 FROM 系统用户 WHERE 用户名='" & UserName & "'" Set objRs.ActiveConnection = objCn objRs.Open (strSQL) With objRs '创建客户端的记录集 .CursorLocation = adUseClient '指定使用客户端光标 .CursorType = adOpenStatic '指定使用静态光标 .Open "系统用户", objCn, adOpenStatic, adLockReadOnly End With ShowData (lngPage) '显示当前记录页数
我们来说一下Command对象：
使用Command对象之前，我们需要执行一下步骤：
1.通过设置ActiveConnection属性是打开的连接与Command对象关联。
2.使用CommandText属性定义命令（如ＳＱＬ，储存过程）的可执行文本。
3.使用commandType属性指定命令类型。通过Parameter对象和Parameters集合定义参数化查询或存储过程参数。
4.使用Execute方法执行命令并在适当的时候返回Recordset对象
5.使用 CreateParameter方法创建一个与命令相关的新的参数对象。
6.将Command对象传递给Recordset的Source属性以便获得数据。
具体实现：
Private Sub Form_Load() Dim strcn As String Set objCn = New Connection strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & "Data Source=" & App.Path & "\实例5.mdb" objCn.ConnectionString = strcn objCn.Open '创建执行参数查询的command 对象 objcmd Set objCmd = New Command Set objCmd.ActiveConnection = objCn '创建连接 With objCmd .CommandText = "select * from 系统用户 where 用户名 like ?" & "and 身份 like ?" '定义命令的可执行文本 .CommandType = adCmdText '指定命令类型 End With '为command对象创建参数 Dim parm As New Parameter Set parm = objCmd.CreateParameter("用户名", adVarChar, adParamInput, 10) objCmd.Parameters.Append parm Set parm = objCmd.CreateParameter("身份", adVarChar, adParamInput, 10) objCmd.Parameters.Append parm et objRs = New Recordset objCmd("用户名") = "%" & Trim(txtUserName) & "%" '%是什么意思？？？ objCmd("身份") = "%" & txtStatus & "%" Set objRs = objCmd.Execute() '返回recordset对象 lbl4 = ""End Sub
我们还可以在一个Recordset对象实体中使用command对象：
Set cmd.ActiveConnection = cncmd.CommandText = strSqlcmd.CommandType = adCmdTextrs.Open cmd, , adOpenStatic, adLockOptimistic
以上是对ADO对象模型中一些对象的简单理解，当然还很不全面，会在以后的学习中慢慢完善……