Question

VB6.0访问带密码的ACCESS2007的动态路径写法。

如题。

Answer 1

Dim Path As String
Path = App.Path & "\我的新项目\数据库\dkf.accdb;"
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Path & "Persist Security Info=False;Jet OLEDB:Database Password=daikaifan1987122;Jet OLEDB:Create System Database=True;Jet OLEDB:Encrypt Database=True;Jet OLEDB:Don't Copy Locale on Compact=True;Jet OLEDB:Compact Without Replica Repair=True"