Dim cn As String = "Provider=SQLOLEDB.1;Password={0};Persist Security Info=True;User ID={1};Initial Catalog=bydata;Data Source={2}"
Dim s As String = FileSys.ReadAllText(ProjectPath & "Attachments\SqlServers.txt")
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
For i As Integer = 0 To 1
Dim exp As String = CExp(cn,arr(i*3).Split("=")(1),arr(i*3+1).Split("=")(1),arr(i*3+2).Split("=")(1))
If Connections.TryConnect(exp) = True Then
For iy As Integer = 1 To 1
Connections.Add("生产数据",exp)
MessageBox.Show("生产数据数据源加载成功!")
Next
Else
MessageBox.Show("生产数据数据源无法连通!")
End If
Next
SqlServers.txt里的内容
Password=654321
User ID=byuser
Data Source=192.168.0.17
Password=654321
User ID=byuser
Data Source=*****.oicp.net
帮我看看感觉哪里错了,好像连不上
BeforeConnectOuterDataSource