主题：外部数据源连接

回复20楼，你的代码结合ip.txt，把 e.ConnectionString 的值存入txt文件即可

如，代码

If e.Name = "ddd" Then
    If Connections.TryConnect(e.ConnectionString) = False Then
        Dim strConn As String = ""
        Dim flag As Boolean = False
        If FileSys.FileExists(e.ProjectPath & "ip.txt") Then
            strC & FileSys.ReadAllText(e.ProjectPath & "ip.txt",Encoding.Default) & ";Persist Security Info=False"
            If Connections.TryConnect(strConn) = False Then
                flag = False
            Else
                e.ConnectionString = strConn
                flag = True
            End If
        End If
        If flag = False Then
            Dim dlg As New OpenFileDialog
            dlg.Filter= "Access文件|*.mdb"
            If dlg.ShowDialog = DialogResult.Ok Then
                e.C & dlg.FileName & ";Persist Security Info=False"
                FileSys.WriteAllText(e.ProjectPath & "ip.txt", dlg.FileName, False, Encoding.Default)
            End If
        End If
    End If
End If

此主题相关图片如下：1.jpg

 怎样改