|
'''
Dim s As String = FileSys.ReadAllText(ProjectPath & "Attachments\SqlServers.txt")
msgbox(s)
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
msgbox(arr.length)
For i As Integer = 0 To 1
Dim sql0 As String
msgbox(arr(i*3))
msgbox(arr(i*3+1))
msgbox(arr(i*3+2))
sql0.Password=arr(i*3).Split("=")(1)
msgbox(arr(i*3).Split("|")(1))
sql0.Account = arr(i*3+1).Split("=")(1)
msgbox(arr(i*3+1).Split("|")(1))
sql0.Data Source = arr(i*3+2).Split("=")(1)
msgbox(arr(i*3+2).Split("=")(1))
Dim lts As String = "Provider=SQLOLEDB.1;Password="+sql0.Password+";Persist Security Info=True;User ID="+sql0.Account+";Initial Catalog=usersforcs;Data Source="+sql0.Data Source
If Connections.TryConnect(lts) = True Then
MessageBox.Show("数据源已经连通!")
For iy As Integer = 1 To 1
Connections.Add("用户",lts)
Next
Exit For
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
MessageBox.Show("数据源无法连通!")
End If
Next
请问错在哪里？
|
加好友 
发短信
Post By：2018/8/29 20:02:00 [只看该作者]
