'Function to read application setting from INI file
Public Function IniFileRead(ByVal vstrINIPath As String, vstrINIFileName As String, _
ByVal vstrINIType As String, ByRef vstrVar As String, ByVal vstrName As String) As Boolean
On Error GoTo ErrHandler
Dim lResult As Long
Dim sTemp As String
Dim lDB As Long
Dim msIniFileFullPath As String
IniFileRead = False
msIniFileFullPath = vstrINIPath & "\" & vstrINIFileName
'get connection string
sTemp = Space$(300)
lResult = GetPrivateProfileString(vstrINIType, _
vstrName, _
"", _
sTemp, _
300, _
msIniFileFullPath)
If lResult < 1 Or lResult > 300 Then
GoTo ErrHandler
Else
sTemp = Left(sTemp, lResult)
End If
vstrVar = sTemp
IniFileRead = True
Exit Function
ErrHandler:
IniFileRead = False
End Function
调用:
IniFileRead(App.Path, mstrINIFileName, "Database", StrPwd, "Password")
app.path:INI文件存放路径
mstrINIFileName:INI文件名称
INI文件格式:
[database]
Server="aa"
DataBase="test"
UserID="sa"
Password="aa"