加入msgbox,看弹出什么
Dim ipFile As String = e.ProjectPath & "server.txt"
msgbox(e.name)
If e.Name = "gzgc" Then
msgbox(Filesys.FileExists(ipFile))
If Filesys.FileExists(ipFile) Then
Dim str As String = FileSys.ReadAllText(ipFile)
msgbox(str)
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
msgbox(str)
e.ConnectionString = str
Else
msgbox("123abc")
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