小技巧:从配置文件读取数据库连接字符串
来源:互联网 发布:酷开电视网络连接不上 编辑:程序博客网 时间:2024/05/22 17:35
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
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作为连接字符串即可。
- 小技巧:从配置文件读取数据库连接字符串
- 数据库连接字符串的小技巧
- 数据库连接参数从配置文件中读取
- 如何将数据库连接字符串保存在配置文件中并读取
- java读取数据库连接配置文件
- 从配置文件取数据库连接
- WebService如何从Web.Config中读取数据库连接字符串
- jdbc中从properties文件中读取数据库连接字符串
- 从Web.Config中读取数据库连接字符串的问题
- 从Web.config文件中读取数据库连接的字符串
- Web读取配置文件得到数据库连接
- 小技巧 关于处理从字符串中读取数值的操作 博哥的思想~泽被后人啊
- 数据库连接字符串保存到配置文件
- 使用配置文件保存数据库连接字符串
- 话说Java jdbc数据库连接,从配置文件中读取连接基本信息实例
- 从配置文件读取信息
- 从配置文件读取变量
- DOM4J 读取XML配置文件进行数据库连接
- 网页浏览器“内核”与“外壳”的是是非非
- 关于ACE
- 很好
- 找工作 要找专业对口的工作
- 一日精通Ajax技术
- 小技巧:从配置文件读取数据库连接字符串
- Hibernate的一对一关联实例
- asp.net中验证码的实现
- Dengues 采用的技术(1)- Process Editor (GEF)
- ASP.net 2005 调试错误
- C++/CLI
- 母语之殇
- Linux学习(1)Linux文件和目录访问权限设置
- GridView單頁全選--客戶段實現