If e.Name = "彬阳数据" Then
Dim cn As String = "Provider=SQLOLEDB.1;Password={0};Persist Security Info=True;User ID={1};Initial Catalog=Test;Data Source={2}"
Dim s As String = FileSys.ReadAllText(e.ProjectPath & "Attachments\SqlServers.txt")
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
For i As Integer = 0 To 1
Dim ip As String = arr(i*3+2).Split("=")(1)
If Network.Ping(ip,1000) Then
e.ConnectionString = CExp(cn,arr(i*3).Split("=")(1),arr(i*3+1).Split("=")(1),arr(i*3+2).Split("=")(1))
Exit For
End If
Next
End If
加好友 
发短信
Post By：2019/1/21 22:16:00 [显示全部帖子]
