以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  通过代码来管理数据源  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130745)

--  作者:hongye
--  发布时间:2019/1/30 23:15:00
--  通过代码来管理数据源
\'\'\'
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 sql0 As new ftpclient
    sql0.Password=arr(i*3).Split("=")(1)
    sql0.Account = arr(i*3+1).Split("=")(1)
    sql0.host = 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=bydata;Data Source="+sql0.host
    If Connections.TryConnect(lts) = True Then
        For iy As Integer = 1 To 1
            Connections.Add("用户",lts)
        Next
        Forms("用户登录").Open()
        If _UserName = "" Then
            Syscmd.Project.Exit()
            Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
        End If
        Exit For
    Else
        MessageBox.Show("数据源无法连通!")
    End If
Next


这个代码可用,但是感觉有点别扭,请问用什么方法,改得顺眼点

--  作者:有点甜
--  发布时间:2019/1/31 9:24:00
--  

1、你 SqlServers.txt 存放的内容是什么?

 

2、为什么别扭?你需要ini配置文件?

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40490&skin=0