Attribute VB_Name = "ModConct"
'** Connect °ü·Ã¸ðµâ **

Option Explicit

'** ADO **
Global Cn As New ADODB.Connection
Global Cn1 As New ADODB.Connection
Global Cn2 As New ADODB.Connection
Global Cmd As New ADODB.Command
Global cmd2 As New ADODB.Command
Global cmd3 As New ADODB.Command
Global cmd4 As New ADODB.Command
Global Cmd5 As New ADODB.Command
Global Rs As New ADODB.Recordset
Global Rs1 As New ADODB.Recordset
Global Rs2 As New ADODB.Recordset
Global Rs3 As New ADODB.Recordset
Global Rs4 As New ADODB.Recordset
Global Rs5 As New ADODB.Recordset
Global Para As New ADODB.Parameter
Global Para2 As New ADODB.Parameter
Global Para3 As New ADODB.Parameter
Global Para4 As New ADODB.Parameter
Global Para5 As New ADODB.Parameter




'** °øÅëÀ¸·Î »ç¿ëÇÏ´Â ¹®ÀÚ¿­º¯¼ö
Global Connect As String
Global Connect2 As String

Global Str As String
Global Str2 As String
Global Str3 As String
Global Str4 As String
Global Str5 As String
Global Str6 As String
Global Str7 As String
Global Str8 As String

Global Ri As Long
Global gFileName As String  'Excel·Î³Ñ±â´Â File¸í
Global gb_OperCode As String
Global gb_OperName As String

Global g_ZipCode As String
Global g_Address As String

Global g_tempString As String '


'** SQLDb_CONNECT **
Sub m_SQLDbConnect(p_ServerName As String, p_DbName As String, p_LogIn As String, p_Passwd As String)

    On Error GoTo Error_Trap

    Connect = "Driver={SQL Server};" _
            & "Server=" & Trim(p_ServerName) & ";" _
            & "Uid=" & Trim(p_LogIn) & ";Pwd=" & Trim(p_Passwd) & ";" _
            & "DataBase=" & Trim(p_DbName) & ";"
            
    Cn.Provider = "SQLOLEDB"
    Cn.ConnectionString = Connect
    'Cn.CommandTimeout = 30
    Cn.CommandTimeout = 0
    Cn.Open
    
    Exit Sub
    
Error_Trap:
    Call gMsgCall("46")
    End
    
End Sub

'** SQLDb_CONNECT **
Sub m_SQLDbConnect_1(p_ServerName As String, p_DbName As String, p_LogIn As String, p_Passwd As String)

    On Error GoTo Error_Trap

    Connect = "Driver={SQL Server};" _
            & "Server=" & Trim(p_ServerName) & ";" _
            & "Uid=" & Trim(p_LogIn) & ";Pwd=" & Trim(p_Passwd) & ";" _
            & "DataBase=" & Trim(p_DbName) & ";"
            
    Cn1.Provider = "SQLOLEDB"
    Cn1.ConnectionString = Connect
    'Cn1.CommandTimeout = 30
    Cn1.CommandTimeout = 0
    Cn1.Open
    
    Exit Sub
    
Error_Trap:
    Call gMsgCall("46")
    End
    
End Sub

'** SQLDb_CONNECT **
Sub m_SQLDbConnect_2(p_ServerName As String, p_DbName As String, p_LogIn As String, p_Passwd As String)

    On Error GoTo Error_Trap

    Connect = "Driver={SQL Server};" _
            & "Server=" & Trim(p_ServerName) & ";" _
            & "Uid=" & Trim(p_LogIn) & ";Pwd=" & Trim(p_Passwd) & ";" _
            & "DataBase=" & Trim(p_DbName) & ";"
            
    Cn2.Provider = "SQLOLEDB"
    Cn2.ConnectionString = Connect
    'Cn1.CommandTimeout = 30
    Cn2.CommandTimeout = 0
    Cn2.Open
    
    Exit Sub
    
Error_Trap:
    Call gMsgCall("46")
    End
    
End Sub

'** ORACLEDb_CONNECT **
Sub m_ORACLEDbConnect(p_ArgUser As String, p_ArgPassword As String, p_ArgSource As String)
    
    
    On Error GoTo Error_Trap
    
        
    'Connect = ""
    'Connect = Connect & "Provider=Microsoft OLE DB Provider for Oracle" & ";"
    'Connect = Connect & "User ID=" & ArgUser & ";"
    'Connect = Connect & "Data Source=" & ArgSource & ";"
    'Connect = Connect & "Persist Security info=False"
    
    
    Connect = ""
    Connect = Connect & "Provider=Microsoft OLE DB Provider for Oracle;"
    Connect = Connect & "Data Source=" & p_ArgSource & ";"
    Connect = Connect & "Persist Security Info=False"
    
    
    Cn.CursorLocation = adUseClient
    Cn.Open Connect, p_ArgUser, p_ArgPassword
    
    Exit Sub
    
    
Error_Trap:
    MsgBox Cn.Errors(0).Number & vbCrLf & _
           Cn.Errors(0).Description & vbCrLf & vbCrLf & _
           "ConnectString : " & Connect & vbCrLf & _
           "Username : " & p_ArgUser & vbCrLf & _
           "Password : " & p_ArgPassword
    End
    
End Sub

''/ ¿À¶óŬ DB OPEN
'Public Sub svrOpenOraDBADO()
'
'    Dim sConString          As String
'    Dim Cut                 As String
'    Dim ArgUser$, ArgPassword$, ArgSource$
'
'    Screen.MousePointer = vbHourglass
'    GnOpenDB = False
'
'   Open App.Path & "\svrMDCK_ORA.ini" For Input As #1
'        Line Input #1, Cut 'ID
'        ArgUser = Replace(P(Cut, "=", 2), ";", "")
'        Line Input #1, Cut 'PWD
'        ArgPassword = Replace(P(Cut, "=", 2), ";", "")
'        Line Input #1, Cut 'Date Source
'        ArgSource = Replace(P(Cut, "=", 2), ";", "")
'        Line Input #1, Cut 'Server Name
'        svrGstrServerName = Replace(P(Cut, "=", 2), ";", "")
'        Line Input #1, Cut
'        GstrLocalCode = Replace(P(Cut, "=", 2), ";", "")
'    Close #1
'
'    'sConString = ""
'    'sConString = sConString & "Provider=Microsoft OLE DB Provider for Oracle" & ";"
'    'sConString = sConString & "User ID=" & ArgUser & ";"
'    'sConString = sConString & "Data Source=" & ArgSource & ";"
'    'sConString = sConString & "Persist Security info=False"
'
'
'    sConString = ""
'    sConString = sConString & "Provider=Microsoft OLE DB Provider for Oracle;"
'    sConString = sConString & "Data Source=" & ArgSource & ";"
'    sConString = sConString & "Persist Security Info=False"
'
'
'    On Error GoTo DBConnect_Error
'
'    Set SvrloAdoCnn = New ADODB.Connection
'    SvrloAdoCnn.CursorLocation = adUseClient
'    SvrloAdoCnn.Open sConString, ArgUser, ArgPassword
'    Screen.MousePointer = vbDefault
'    GnOpenDB = True
'
'    Exit Sub
'
'
'DBConnect_Error:
'    MsgBox SvrloAdoCnn.Errors(0).Number & vbCrLf & _
'           SvrloAdoCnn.Errors(0).Description & vbCrLf & vbCrLf & _
'           "ConnectString : " & sConString & vbCrLf & _
'           "Username : " & ArgUser & vbCrLf & _
'           "Password : " & ArgPassword
'    End
'
'End Sub

'** MDb_CONNECT **
Sub m_MDbConnect(p_FileName As String)

    On Error GoTo Error_Trap
    
    Dim AppPath As String
    
    AppPath = App.Path
    If Right(AppPath, 1) = "\" Then
       AppPath = AppPath & "MDB\"
    Else
       AppPath = AppPath & "\MDB\"
    End If

    Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" _
            & "Persist Security Info=False;" _
            & "Data Source=" & Trim(AppPath & p_FileName)
            
    Cn.ConnectionString = Connect
    Cn.CommandTimeout = 30
    Cn.Open
    Exit Sub
    
Error_Trap:
    Call gMsgCall("46")
    End
    
End Sub