多数据库连接时,如何打开带密码的ACCESS

liuyan819

Dim SQL$, SQLL$, Path$
Dim Con As New ADODB.Connection
Dim adoRst As ADODB.Recordset
Path = ThisWorkbook.Path & Application.PathSeparator & "Forwarder.accdb;]."
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=Yes;';Data Source=" & ThisWorkbook.FullName
SQLL = "Select distinct b.destination,b.QTY,'XDL'from [database=" & Path & "[price]a ,[result$]b " & _
       "where a.Ä¿µÄµØ=b.[Destination] and b.QTY>=a.[ÁÙ½çÖµ]"


请问forwarder 这个access 文件,是带密码的,密码为123,在这里应该怎么写才能打开这个ACCESS 文件? 谢谢

zhaogang1960

短信收到，access2007或2010加密方式要采用旧加密方式，见下图：

1.     cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
   
2.     SQL = "Select * from [;pwd=密码;database=路径+数据库名.accdb].数据表"
   

复制代码

zhaogang1960

给你个例子看看：

1. Private Sub CommandButton1_Click()
   
2.     '引用Microsoft ActiveX Data Objects 2.x Library
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim SQL1$, SQL$
   
5.     cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
   
6.     SQL = "Select * from [;pwd=123;database=" & ThisWorkbook.Path & "\Database.accdb].DataFromSQL"
   
7.     Range("a2").CopyFromRecordset cnn.Execute(SQL)
   
8.     cnn.Close
   
9.     Set cnn = Nothing
   
10. End Sub
    

复制代码

access2010旧版加密非连接.rar (571.35 KB, 下载次数: 21)

2013-3-22 23:24 上传

点击文件名下载附件

liuyan819

谢谢,赵版!