再说一下: dim rs as RecordSet rs=db.opendatabase(...) 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
dim rs as RecordSet
rs=db.opendatabase(...)
set Datagrid1.datasource=rs
运行时出错:“类型不匹配“
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
对!
DataGrid 是Ado控件,用ado才行
不能用dao,照lihonggen0的方法试一下,应该每月问题了
Dbgrid控件我找不到阿。
各位高手,请帮帮忙,我用一下语句:
DBEngine.CompactDatabase DBName, BakName, dbLangGeneral, dbEncrypt, "123"
kill DBName
Name BakName as DBName之后,我想用ADO打开被这个压缩了的数据库,该怎么办呢?