VB.net2005中到底怎么读取ini文件

来源：百度知道 编辑：UC知道 时间：2024/06/20 09:38:03
如题，本人是新的不能再新的新手，首先注意是VB.net，如果你的代码是VB6就免了。
具体情况是，我要连一个数据库，语句本来是这样：SqlConnection("server=11.0.11.231; DataBase=系统;UID=sa;PWD=sa")
现在就是要变成每一个赋值都是从INI文件里读，INI文件具体是这样：
[ip]
server_ip=11.0.11.231
database_name=系统
user_id=sa
user_password=sa
server_port=21000

如果能给一段真的能用的代码，追加20，已经在网上看了足足一天了，那些东西普遍有错，高手或许能用，我实在用不了。如果能详细解释一下代码就更好了，十分感谢。
另外希望对应给出的代码，附加读取的实例代码。

用API吧
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (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
'读
Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
Dim Str As String = LSet(Str, 256)
GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)
Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
End Function
'写
Public Function WriteINI(ByVal Section As Str