dim gDb As ADODB.Connection
dim constr As String
dim strPathAndFileName As String
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set gDb = New ADODB.Connection
Set rs = New ADODB.Recordset
End Sub
gDb.Open "Provider=Microsoft.JET.OLEDB.3.51;Data Source=" & App.Path & "\MSTC0198.mdb;Jet OLEDB:Database Password=abcdefghijkl"
'gDb.Open constr
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from glob", gDb, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
换成Provider=Microsoft.JET.OLEDB.4.0后,提示不能读取记录;在'glob'上没能读取数据权限。HELP!
----
我用的这个glob库是金蝶的帐套,*.ais的格式,改成*.mdb后,可用ACCESS2000看。(打开时要密码abcdefghijkl)!
dim constr As String
dim strPathAndFileName As String
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set gDb = New ADODB.Connection
Set rs = New ADODB.Recordset
End Sub
gDb.Open "Provider=Microsoft.JET.OLEDB.3.51;Data Source=" & App.Path & "\MSTC0198.mdb;Jet OLEDB:Database Password=abcdefghijkl"
'gDb.Open constr
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from glob", gDb, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
换成Provider=Microsoft.JET.OLEDB.4.0后,提示不能读取记录;在'glob'上没能读取数据权限。HELP!
----
我用的这个glob库是金蝶的帐套,*.ais的格式,改成*.mdb后,可用ACCESS2000看。(打开时要密码abcdefghijkl)!
解决方案 »
- listbox 打印内容
- ado 和adodb一样吗,。。。
- 关于IE中查找字符串功能的实现方法,谢谢指点!
- vb 如何使一个程序彻底退出?
- dim aaa as class1 和dim aaa as new Class1有什么区别,哪位大侠给解释一下?
- 急得要跳楼的问题?那位大侠帮忙解决一下?
- 各位大哥,vc开发的控件怎么用在VB里头?可以用在VB里吗??
- 新手问下,如何用VB写一个删除未知文件夹内的已知文件呢?
- 怎么把picturebox控件设置为透明的
- 各位同仁,新春已至.我们是否要总结过去. 展望未来
- 关于Mscomm控件在不同的操作系统中使用的问题
- 请高手帮忙-关于检查数据库密码的问题
……Provider=Microsoft.JET.OLEDB.3.51……
用这个应该可以吧,如果一定要用4.0的话,就用access2000的数据库转化工具转化为2000的版本就可以啊。