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

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组件。

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

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