工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) Dim CN As New ADODB.Connection '定义数据库的连接 Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = Rs
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb" CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
指定路径:app.path+ "\mdb\899.mdb " 是错的,不能使用
把数据库表放在工程文件夹中。太深奥!?费解。
Adodc控用到"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" 库文件.mdb",
data1.databasename=""&app.path&"\库文件.mdb"
===========================================
是从一台电脑拷到另一台相同的位置会出现数据错误事件命中错误:定义的应用程序或对象错误"我考虑是找不到库文件.mdb
对应ado中什么函数
谢谢
Rs.CursorLocation = adUseClient 是什么意思,能解释一下吗?
另外,Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic 中,adOpenDynamic 可不可以改成 adOpenStatic.谢谢
改成 adOpenStatic 以后 RecordCount 就可以用了。要不然会一直为 -1.
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"