二个问题beforeconnectouterdatasource这个事件下写的代码，还报错连接不到数据源
Dim ipFile As String = e.ProjectPath & "server.txt"
If e.Name = "gzgc" Then
If Filesys.FileExists(ipFile) Then
Dim str As String = FileSys.ReadAllText(ipFile)
If Connections.TryConnect(str) = False Then
canConnect = False
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "temp.MDB;Persist Security Info=False"
Else
canConnect = True
End If
e.ConnectionString = str
Else
canConnect = False
Dim st As String
st = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "temp.MDB;Persist Security Info=False"
e.ConnectionString = st
End If
End If
加好友 
发短信
Post By：2018/3/12 10:26:00 [显示全部帖子]
