ini文件读写一问，代码如下

[klj218]

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Sub WriteToIni(ByVal Key As String, ByVal Value As String, Optional ByVal Section As String = "IniDefSection")
On Error Resume Next
Dim buff As String * 128
buff = Value + Chr(0)
'WritePrivateProfileString Section, Key, buff, GetIniFileName
WritePrivateProfileString Section, Key, buff, App.Path & "\set.ini"
End Sub

Public Function ReadFromIni(ByVal Key As String, Optional ByVal Section As String = "IniDefSection") As String
On Error Resume Next
Dim i As Long
Dim buff As String * 128
'GetPrivateProfileString Section, Key, "", buff, 128, GetIniFileName
GetPrivateProfileString Section, Key, "", buff, 128, App.Path & "\set.ini"
i = InStr(buff, Chr(0))
ReadFromIni = Trim(Left(buff, i - 1))
End Function

[klj218]

Function ConncetDB()
If ReadFromIni("UserID", "Database Connection") <> "" Then
MsgBox ("pass")
Else
UserID = InputBox("请输入用户名:")
Call WriteToIni("UserID", "Database Connection", UserID)
End If

End Function

Private Sub Form_Load()
Call ConncetDB
End Sub

[klj218]

set.ini中的内容:
[sssdsd]
UserID=Database Connection

求教，为什么每次FORM LOAD都要输入用户名？

[linkinwork]

调试一下ReadFromIni函数。看看他到底有没有取到值

[klj218]

msgbox 出来是空

[faysky2]

在你的ConncetDB函数里，ReadFromIni("UserID", "Database Connection") 是读取Section（就只用[]括起来的内容）为Database Connection，key值（就是=号前面的内容）为UserID的值

比如，在Ini文件里的内容是：
[Database Connection]
UserID=XXXX

那么ReadFromIni("UserID", "Database Connection") 得到的内容就是XXXX


为什么每次FORM LOAD都要输入用户名？
----------------------------------
因为这个条件不成立（ If ReadFromIni("UserID", "Database Connection") <> "" Then）
，原因是你的ini文件里没有以下内容：
[Database Connection]
UserID=XXXX

所以每次Form_Load的时候，都要输入用户名

[zou19820704]

ReadFromIni("UserID", "Database Connection") 没有值

[zx123]

是写反了的原因
正确的应为
WriteToIni("UserID",UserID,"Database Connection")