VB。NET连接SQL数据库，怎么从一个配置文件*.ini里获取SQL服务器的名。

[baohua8002]

VB。NET连接SQL数据库，怎么从一个配置文件*.ini里获取SQL服务器的名。

[沐NeMo]

ini文件，不如用xml文件方便。另外vb.net不大支持.ini文件。要用api。
源码奉送 来源：http://topic.csdn.net/t/20030609/12/1893433.html http://www.jaron.cn/chs_scripts/11/2005-10/101774.shtml
---
'读取配置文件信息
Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Int32, _
ByVal lpFileName As String) As Int32
'写配置文件信息
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

'读INI文件
Private Shared Function GetFromINI(ByVal SectionHeader As String, ByVal VarName As String, ByVal filename As String) As String
Dim RetStr As String
RetStr = Space$(255)
Dim i As Int32
i = GetPrivateProfileString(SectionHeader, VarName, "", RetStr, 255, filename)
Return RetStr
End Function

'读取已经设置好的信息
Public Shared Sub GetSysIni()
SERVER_NAME = GetFromINI("SERVER", "SERVERNAME", Application.StartupPath + "\Ini\SysConfig.ini")
DB_NAME = GetFromINI("SERVER", "DBNAME", Application.StartupPath + "\Ini\SysConfig.ini")
End Sub

'读打印机的设置
Public Shared Sub GetComSetup()
COM = GetFromINI("PRINTER", "COM", Application.StartupPath + "\Ini\SysConfig.ini")
End Sub

'保存COM口的设置
Public Shared Sub WriteComSetup(ByVal strCom As String)
WritePrivateProfileString("PRINTER", "COM", strCom, Application.StartupPath + "\Ini\SysConfig.ini")
End Sub

[fairy4]

獲取其IP地址就可以了
Public Function ReadSQLIP() As String
Dim x, y As Integer
Dim strOld As String
Dim fn As String = Application.StartupPath & "\SQLIP.ini"
If Dir(fn) = "" Then
MsgBox("Could not found Program ini File " & fn, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "System Meaagse")
End
End If
Dim objFileName As FileStream = New FileStream(fn, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim objFileRead As StreamReader = New StreamReader(objFileName)
strOld = objFileRead.ReadLine
ReadSQLIP = ReadStr(strOld)
If ReadSQLIP = "" Then
MsgBox("Could not found SQL IP! ", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "System Meaagse")
End
End If
objFileRead.Close()
objFileName.Close()
End Function

[jason819]

顶！

[yudi010]

vba知道
vb。net还不知道
学习一下

[lvfeng180]

用app.config文件

[_NET2004]

建议用XML文件存储

[baohua8002]

谢谢大家热情的帮助，在这里谢谢了，

看了大家的建议我试下用XML存储，代码如下：

public void DataOpen()
{
string xmlfilename,userid,password,database,server;
xmlfilename=Server.MapPath("dataconfig.xml");
DataSet myDs=new DataSet();
myDs.ReadXml(xmlfilename);
DataRow myDataRow=myDs.Tables[0].Rows[0];
userid=myDataRow["userid"].ToString();
password=myDataRow["password"].ToString();
database=myDataRow["database"].ToString();
server=myDataRow["server"].ToString();
sqlString="user id="+userid+";password="+password+";database="+database+";server="+server;
dataConn.ConnectionString=sqlString;
dataConn.Open();
}

public void DataClose()
{
dataConn.Close();
}