[엑셀 VBA] 예약 DB - 6. 폼 콘트롤과 DB 필드명 일치시키기

Dim arrFields(), arrValues()
arrFields = Array('item', 'unit', 'price')
Redim arrValues(LBound(arrFields) to UBound(arrFields))

for i = LBound(arrFields) to UBound(arrFields)
   arrValuse(i) = form.Controls(arrFields(i)).value	
next i

arrFields = Array("Ser", "MEM_Ser", "GCODE", "GUIDE", "GUEST", "GC_Ser", "PAX", "TOFF_DATE", "WEEK_DAY", "HOLES", _
                      "SELL_RATE", "SELL_TOTAL", "R_TIME", "RECHECK_DATE", "A_TIME", "GUEST_CONFIRM", "BOOK_DATE", "CONFIRM_CODE", "VCHER_DATE", _
                      "MEMO", "PROGRESS_Ser", "SELL_PAY_DATE", "NET_RATE", "INCOME", "NET_TOTAL", "MODIFIED", "ADMIN_Ser", "RECHECK", "LOC_INVOICE")

Public Function mysql_INSERT_Array(ByVal tbName As String, arrFields, arrValues) As Long
 
    On Error GoTo Error_Section
        'rs.Open tbName, Conn, adOpenDynamic, adLockOptimistic, adCmdTable
        Dim rs As New ADODB.Recordset
        rs.ActiveConnection = conn
        rs.CursorType = adOpenDynamic
        rs.LockType = adLockOptimistic
        rs.Open tbName, , , , adCmdTable
 
        rs.AddNew arrFields, arrValues
        rs.UPDATE
 
        Dim Ser: Ser = conn.Execute("SELECT @@Identity")(0)
        mysql_INSERT_Array = IIf(Ser > 0, Ser, 0)
 
    Exit Function
 
Error_Section:
    mdMessage.err_MSG "clsMySQL: mysql_INSERT_Array", Err, False
    mysql_INSERT_Array = 0
End Function

' SQL문으로 실행 : INSERT, UPDATE, DELETE
Public Function mysql_ExecSQL_strSQL(strSQL As String) As Boolean
    Dim aff As Long
 
    On Error GoTo Error_Section
        Call conn.Execute(strSQL, aff)
 
    mysql_ExecSQL_strSQL = IIf(aff > 0, True, False)
 
    Exit Function
 
Error_Section:
    mdMessage.err_MSG "clsMySQL: mysql_ExecSQL_strSQL", Err, False
    mysql_ExecSQL_strSQL = False
End Function