如何在VB中引用ADO?

在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.0Data Source=" &App.Path &"\wd.mdbPersist Security Info=False"

  cn.Open

  rs.CursorLocation = adUseClient

  rs.Open sql, cn, adOpenDynamic, adLockOptimistic

  Set DataGrid1.DataSource = rs

End Sub

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

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

引用ADO的最简方法是新建一个数据工程，它会自动引用ADO和加载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.0Data Source=" &App.Path &"\wd.mdbPersist Security Info=False"

  cn.Open

  rs.CursorLocation = adUseClient

  rs.Open sql, cn, adOpenDynamic, adLockOptimistic

  Set DataGrid1.DataSource = rs

End Sub

要先加入ADO类：在菜单[工程]-[引用]，在[可用的引用]中选种Microsoft ActiveX Data Objects 2.0 Library或更高板本.

再在编辑状态下的声明区加入

Public cn As New ADODB.Connection

Public cmd As New ADODB.Command

Public rs As New ADODB.Recordset

这样就加入了ADO的三个主要对象：连接对象，命令对象，与表对象。

---