如何在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数据控件和相关表格控件。

If

DBconnect.State

=

adStateOpen

And

Not

IsEmpty(adStateOpen)

Then

DBconnect.Close

这一句该会出问题。我也曾经试过判断过。后来我改用如下在判断语句:

if

DBConnect.State

=

1

then

DBConnect.Close

---