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