小技巧：从配置文件读取数据库连接字符串

WebForm自然可以用Web.config，Application.Settings[connstring] ……

WinForm也可以添加config文件，不过这里记录的是使用某个ini或文本文件，

其实只是读个文件而已，但优点在于当数据库在服务器之间做迁移后，

原来的client程序不需要修改，只更改Data.ini即可。

 

Imports  System.IO
Module Module2 Module Module2
    Public Function getMidName()Function getMidName() As String
        Dim midname As String
        Dim FileFileString As String

        FileFileString = Application.StartupPath + "Data.ini"
        '如果是在输出类库中引用，则这一行改为:
        'System.AppDomain.CurrentDomain.BaseDirectory.Trim() + "Data.ini"

        Dim FS As New FileStream(FileFileString, FileMode.OpenOrCreate)
        Dim SR As New StreamReader(FS)
        Dim TxtLine As String
        TxtLine = SR.ReadLine
        Do Until Len(TxtLine) = 0
            If InStr(TxtLine, "=") > 0 Then
                Select Case Mid(TxtLine, 1, InStr(TxtLine, "=") - 1)
                    Case "MidHost"
                        midname = Trim(Mid(TxtLine, InStr(TxtLine, "=") + 1))
                    Case "MailHost"
                        'MailHost = Trim(Mid(TxtLine, InStr(TxtLine, "=") + 1))
                End Select
            End If
            TxtLine = SR.ReadLine
        Loop
        SR.Close()
        FS.Close()
        Return midname
    End Function
    Public Function getPubConn()Function getPubConn() As String
        Dim midname As String = getMidName()
        Dim str As String = "database=pubs;server=" & midname & ";uid=sa;pwd=sa"
        Return str
    End Function
End Module

data.ini的内容：

MidHost=sever
MailHost=mail.***.com

在自己项目中添加module

然后使用getPubConn作为连接字符串即可。