[엑셀 VBA] 예약 DB - 1. 엑세스, SQL, Recordset, ListObject 의 상관 관계

'액세스용 전역변수
Private AccessConnStr    As String
Private Conn As ADODB.Connection
Private fgAccessOpened   As Boolean
 
Private Sub Class_Initialize()
    If fgAccessOpened = True Then Exit Sub
    fgAccessOpened = False
 
    AccessConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBPath & ";Persist Security Info=False;"
 
   On Error GoTo Err_AccessOpen
      Set Conn = New ADODB.Connection
      Conn.CursorLocation = adUseClient
      Conn.Open AccessConnStr
 
      fgAccessOpened = True
 
   Exit Sub
Err_AccessOpen:
    fgAccessOpened = False
    Debug.Print "ACCESS OPEN CONNECTION ERROR" & vbNewLine & vbTab & Err.Number & vbNewLine & Err.Description
    MsgBox "ACCESS OPEN CONNECTION ERROR" & vbNewLine & vbTab & Err.Number & ": " & Err.Description, , "ACCESS OPEN CONNECTION ERROR"
 
    Conn.Close
    Set Conn = Nothing
End Sub
 
Private Sub Class_Terminate()
    Call AccessConnectionClose
End Sub
 
Sub AccessConnectionClose()
    If fgAccessOpened = False Then Exit Sub
    fgAccessOpened = False
    Conn.Close
    Set Conn = Nothing
End Sub

Dim access As clsAccess
Dim rs As ADODB.Recordset
Set access = New clsAccess
 
Set rs = access.ExecSQL_Recordset(<strong>strSQL</strong>)