请问下面代码错在哪里呢?(总提示用户定义类型未定义?)Dim Rs As New ADODB.Recordset Dim CN As New ADODB.ConnectionPrivate Sub Command1_Click() CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=False" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from AA", CN, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = Rs End Sub
没有引用ADO库吧,菜单-引用-Activex D……
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
Data控件也可以:引用DAO 3.6dim db as dao.database, rs as recordsetset db = dbengine.opendatabase(app.path & "\数据库名.mdb") set rs = db.openrecordset("SQL语句或表名") set data1.recordset = rs
菜单-工程-引用-Microsoft Activex Data Objects 2.x Library, 另外,用Data控件不可以,用Microsoft ADO data control 6.0 sp4,菜单-工程-部件
已经成功了,不过总是弹出“add this project to sourcesafe?” 请问是什么意思呢?
Dim CN As New ADODB.ConnectionPrivate Sub Command1_Click()
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=False"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from AA", CN, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs
End Sub
set rs = db.openrecordset("SQL语句或表名")
set data1.recordset = rs
另外,用Data控件不可以,用Microsoft ADO data control 6.0 sp4,菜单-工程-部件
请问是什么意思呢?
不过一般没有什么用~~~