[求助]登录窗口测试连接成功后重启项目出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim SQLServer As String

Dim Database As String

Dim Username As String

Dim Password As String

SQLServer = e.Form.Controls("TextBox5").Value ' 服务器地址

Database = e.Form.Controls("TextBox6").Value ' 数据库文件

Username = e.Form.Controls("TextBox7").Value ' SQL用户名

Password = e.Form.Controls("TextBox8").Value ' SQL密码

Dim ErrMsg As String

Dim Conn As String ="Provider=SQLOLEDB.1;Data Source=" & SQLServer & ";Initial Catalog=" & Database & ";User ID=" & Username & ";Password=" & Password & ";Persist Security Info=False;"

If Connections.TryConnect(Conn,ErrMsg) = False Then

MessageBox.Show("数据源无法连通!原因:" & ErrMsg)

Else

FileSys.WriteAllText(ProjectPath & "Attachments\ip.txt","Provider=SQLOLEDB.1;Data Source=" & SQLServer & ";Initial Catalog=" & Database & ";User ID=" & Username & ";Password=" & Password & ";Persist Security Info=False;", True)

FileSys.WriteAllText(ProjectPath & "Attachments\open.Txt","open",True)

MessageBox.Show("数据源连通!需要重启")

Syscmd.Project.Open(ProjectFile)

End If

提示：从索引 0 处开始，初始化字符串的格式不符合规范。

主题：[求助]登录窗口测试连接成功后重启项目出错