如何在VB中引用ADO?

来源：百度知道 编辑：UC知道 时间：2024/09/22 19:40:48
运行后提示出错If .State = adStateOpen Then .Close
提示adStateOpen=控制
听人说要引用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 jishiji