inimod.bas

远程访问sql server 的源码

Attribute VB_Name = "IniMod"
Option Explicit

Private Declare Function GetPrivateProfileInt Lib "kernel32" _
    Alias "GetPrivateProfileIntA" (ByVal lpApplicationName _
    As String, ByVal lpKeyName As String, ByVal nDefault _
    As Long, 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
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

'**************************************************
'功能： 读出INI文件的信息
'输入：
'   iniFile     String  INI的文件名
'   Section     String  INI文件中的段落
'   Key         String  INI文件中的关键字
'   defValue    String  INI文件中的值，输入时候取空值
'输出：
'   GetINI      String  取得的INI文件中的值
'**************************************************
Public Function GetINI(ByRef iniFIle As String, ByVal Section _
    As String, ByVal Key As String, Optional ByVal defValue _
    As String = vbNullString) As String
    
    Dim sTemp As String * 256
    Dim nLen As Integer
    
    sTemp = Space$(256)
    '如果值为空，那么nLen将返回0，否则返回关键字的值的长度
    nLen = GetPrivateProfileString(Section, Key, defValue, _
            sTemp, 255, App.Path & iniFIle)
    GetINI = Left$(sTemp, nLen)
End Function

'**************************************************
'功能： 向INI文件写入信息
'输入：
'   iniFile     String  INI的文件名
'   Section     String  INI文件中的段落
'   Key         String  INI文件中的关键字
'   Value       String  INI文件中的值，可以是数字字符串
'输出：无
'**************************************************
Public Sub WriteIni(ByRef iniFIle As String, ByVal Section As String, _
    ByVal Key As String, ByVal Value As String)
    
    Dim x As Long, Buff As String * 256, i As Integer
    
    'INI文件中的字符串必须以字符CHr(0)结尾
    Buff = Value + Chr(0)
    x = WritePrivateProfileString(Section, Key, Buff, App.Path & iniFIle)
End Sub