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

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

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

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

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


Imports System.IO




Module Module2Module 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作为连接字符串即可。