7,785
社区成员




Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal strLpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
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 Function GetProfileString(ByVal sectionName As String, ByVal keyName As String, ByVal filePath As String) As String
Dim sReturnValue As String
Dim lReturnSize As Long
sReturnValue = String(255, Chr(0))
lReturnSize = GetPrivateProfileString(sectionName, keyName, "", sReturnValue, 255, filePath)
GetProfileString = Replace(Left(sReturnValue, lReturnSize), Chr(0), "")
End Function
Private Function WriteProfileString(ByVal sectionName As String, ByVal keyName As String, ByVal value As String, ByVal filePath As String) As Boolean
Dim lReturn As Long
lReturn = WritePrivateProfileString(sectionName, keyName, value, filePath)
If lReturn < 1 Then
WriteProfileString = False
Else
WriteProfileString = True
End If
End Function
Public Function ConnectString() _
As String
Dim UserIP As String
Dim UserDataBase As String
Dim FileName
FileName = FreeFile
Open App.Path + "\cnn.ini" For Input As FileName
Input #FileName, UserIP, UserDataBase
'返回一个数据库连接
'ConnectString = "Provider=SQLOLEDB;User ID=sa;PWD=;Server="& UserIP &";database="& UserDataBase &""
ConnectString = "Driver={SQL Server};DataBase="& UserDataBase &";Server=("& UserIP &");UID=sa;PWD="
End Function