用ADO吧:
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;PERSIST SECURITY INFO=TRUE;Data Source=" & App.Path & "\db.mdb" , "管理员", "1111"
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;PERSIST SECURITY INFO=TRUE;Data Source=" & App.Path & "\db.mdb" , "管理员", "1111"
解决方案 »
- vb编译错误,找不到工程或库
- vb+access 求分数段的问题
- 存储过程的问题,在线等待,100分,就等你拉,急急急!!!!
- 高手来帮帮忙,小弟实在是无奈了....
- 请教关于开关量高低电平的编程问题
- 一个关于数据库连接的问题(实在是走头无路了)
- 高手帮忙,谢了!!!!!!!!!!!!!!!!!!!!!!
- 为何在recordset.find "fid=1463" 会出现"操作己被取消"错误?find方法有什么限制吗?解决一定加分
- 如何让webBrowser控件只加载特定网页的特定内容,其他的不加载?
- 请教EPSON LQ1600连续纸打印的问题。
- 問一個excel 里的問題,怎樣引用儲存格的下標
- 为什么测试都过了关,可还是没录用我呢?
Dim mywork As Workspace
Dim mydb As DatabaseSet mywork = DBEngine.Workspaces(0)
Set mydb = mywork.OpenDatabase("C:\db1.mdb", False, False, ";pwd=abc") '以共享、读写方式打开
Dim mywork As Workspace
Dim mydb As DatabaseSet mywork = DBEngine.Workspaces(0)
Set mydb = mywork.OpenDatabase("c:\db1.mdb", False, False, ";pwd=abc") '以共享、读写方式打开,密码:abc
Dim TAdoCn As New Connection
TAdoCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=1234;Data Source="c:\a.mdb"
Dim db1 As Database
Set db1 = mywork.OpenDatabase("库的路径", False,False, ";pwd=123")
ADO方法:
Dim Cn As New Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=1234;Data Source="库的路径"