module1.bas

东通株式会社的人力资源管理系统。VB制作

Attribute VB_Name = "Module1"
Option Explicit

Public dbConn As ADODB.Connection
Public 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 Long, _
    ByVal lpFileName As String _
    ) As Long
    



Sub Main()
Call DbOpen
frmTantoM.Show
End Sub


Public Sub DbOpen()
On Error GoTo Err1
    Dim linker  As String
    
    linker = getIniData("connectdataBase", "link")
    
    
    
    
Set dbConn = New ADODB.Connection
dbConn.Open linker
    Exit Sub
Err1:
    MsgBox Err.Description, vbExclamation, "Conection error!"
End Sub



Public Function getIniData(Key1 As String, Key2 As String) As String
    Dim lpApplicationName As String '梸嵼懘拞漄忦栚揑彫寢柤徧丅帤孁晄嬫暘戝彫幨丅
    Dim lpKeyName As String         '梸庢揑忦栚柤丅帤孁晄嬫暘戝彫幨丅
    Dim lpDefault As String         '巜掕揑忦栚杤桳漄摓?曉夞揑嘁??丅壜??嬻乮""乯
    Dim lpReturneString As String * 255 '巜掕堦槩帤孁?檛嬫丆?搙帄彮?nSize
    Dim nSize As Long               '巜掕憰?摓lpReturnedString?檛嬫揑嵟戝帤晞悢検
    Dim lpFileName As String        '弶巒壔暥審揑姰惍楬宎揑暥審柤
    Dim strdb_Server As String

    lpApplicationName = Key1
    lpKeyName = Key2
    lpDefault = ""
    nSize = 255
    lpFileName = App.Path & "\" & "comm.ini" '摉慜楬宎
    Call GetPrivateProfileString(lpApplicationName, lpKeyName, lpDefault, lpReturneString, nSize, lpFileName)
    strdb_Server = lpReturneString
    strdb_Server = Replace(strdb_Server, Chr(0), "")
    strdb_Server = Replace(strdb_Server, Chr(23), "")
    getIniData = strdb_Server
End Function