专家,你好。请问以下问题:
在项目文件目录下设置了一个ip.txt文件,里面是:E:\1.mdb
我在项目事件BeforeConnectOuterDataSource,写了代码
Dim
ipFile
As
String = e.ProjectPath
&
"ip.txt"
If
Filesys.FileExists(ipFile)
Then
Dim
ip
As
String = FileSys.ReadAllText(ipFile)
e.ConnectionString
= e.ConnectionString.Replace("c:\2.mdb",ip)
End
If
当1.mdb没有设置密码时,可以连接上。但是设置密码后,就连接不上了。
后来我写成
Dim
ipFile
As
String = e.ProjectPath
&
"ip.txt"
If
Filesys.FileExists(ipFile)
Then
Dim
ip
As
String = FileSys.ReadAllText(ipFile)
e.ConnectionString
= e.ConnectionString.Replace("c:\2.mdb","Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& ip
& ";Persist Security Info=true;Jet OLEDB:Database Password=111111")
End
If
还是没用,请问如何解决。谢谢。