Question

如何在VB中引用ADO?

运行后提示出错If .State = adStateOpen Then .Close
提示adStateOpen=控制
听人说要引用ADO,不知道怎么引用?
同样的代码为啥放在另外一个程序里就不出错呢

Answer 1

在VB6.0中引用ADO：

• 通过选择“工程”菜单中的“引用...”来为 ADO 对象库添加一个引用，然后在“引用...”对话框中选择 Microsoft ActiveX Data Objects 2.0 Library

  

• 点上图确定。工程就引用了ADO。

• 运行代码示例：

  Private Sub Command1_Click()

      Dim cn As New ADODB.Connection '定义数据库的连接

      Dim rs As New ADODB.Recordset '声明一个 Recordset 对象变量

      Dim sql As String

  
  

      sql = "select * from jishijilu"

      cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"

      cn.Open

      rs.CursorLocation = adUseClient

      rs.Open sql, cn, adOpenDynamic, adLockOptimistic

      Set DataGrid1.DataSource = rs

  End Sub

• 引用ADO的最简方法是新建一个数据工程，它会自动引用ADO和加载ADO数据控件和相关表格控件。
  

Answer 2

ADO Data控件是ActiveX控件，在使用前必须先将其添加到工具箱中。方法是：
“工程”—“部件”菜单选项，选中“Microsoft ADO Data Control 6.0（OLE DB）”后，按“确定”，
此时ADO数据控件便出现在工具箱中。
使用ADO 对象模型访问数据库。为了能够在程序中使用ADO对象编程，在连接数据库前，需要在Visual Basic 6.0菜单 “工程”—“引用”中选择Microsoft ActiveX Data Objects 2.8 Library组件。

Answer 3

点击“工程”—“部件”菜单选项，然后参考图片

Answer 4

首先加载ADO控件
dim RS as new adodb.Recordset
Rs.Open "SQL语句", dbMainConnect, adOpenStatic, adLockOptimistic