[엑셀 VBA] 예약 DB - 4. 표 가지고 놀기

Dim lobj as ListObject
set lobj = Worksheets('book').ListObjects('tbBook')

Dim cntRows as Long
cntRows = lobj.ListRows.Count

Dim arrFields(), arrValues()
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")

    Dim rows as long
    Dim col as Byte, colIndex as Byte
 
    For rows = 1 To lobj.ListRows.Count
        For col = LBound(arrFields) To UBound(arrFields)
	'칼럼 인덱스 구하기
            colIndex = lobj.ListColumns(arrFields(col)).index
	'현재 행의 해당 칼럼의 값을 대입하기
            val = lobj.ListRows(rows).Range(, colIndex).Value
 
            If arrFields(col) = "Ser" Then serial = val
	'날짜형 데이터면 포맷함수로 설정
            If arrFields(col) = "TOFF_DATE" Or arrFields(col) = "RECHECK_DATE" Or arrFields(col) = "BOOK_DATE" Or arrFields(col) = "SELL_PAY_DATE" Then
                val = VBA.Format(val, "yyyy-mm-dd")
            End If
 
	'MySQL로 넘길때 Boolean Type이 없으므로 0 또는 1로 변환하기            
            If arrFields(col) = "GUEST_CONFIRM" Or arrFields(col) = "RECHECK" Then
                val = mdUtils.BooleanToInt(val)
            End If
 
            arrValues(col) = val
        Next col
 
        '레코드 존재 여부 확인
        criterion = " WHERE Ser='" & serial & "';"
        result = Record_Exists("book", criterion)
 
        '레코드가 존재하면 UPDATE
        If result = True Then
            strSQL = makeSQL("update", "book", arrFields, arrValues)
            result = mySQL.mysql_ExecSQL_strSQL(strSQL)
            If result = True Then
	    '시트에 상태 표시하기	
                lobj.ListRows(rows).Range(, lobj.ListColumns.Count + 2).Value = "UPDATED"
                Debug.Print serial & ": UPDATED"
            Else
                lobj.ListRows(rows).Range(, lobj.ListColumns.Count + 2).Value = "UPDATE FAILED"
                Debug.Print serial & ": UPDATE FAILED"
            End If
        Else
        '레코드가 존재하지 않으면 INSERT
            strSQL = makeSQL("insert", "book", arrFields, arrValues)
 
            result = mySQL.mysql_INSERT_strSQL(strSQL)
            If result > -1 Then
	    '시트에 상태 표시하기
                lobj.ListRows(rows).Range(, lobj.ListColumns.Count + 2).Value = "INSERTD: " & result
                Debug.Print serial & ": INSERTD: " & result
            Else
                lobj.ListRows(rows).Range(, lobj.ListColumns.Count + 2).Value = "INSERT FAILED"
                Debug.Print serial & ": INSERT FAILED"
            End If
        End If
    Next rows
 
    If Not mdGlobal.mySQL Is Nothing Then Set mySQL = Nothing
 
Error_Section:
    Debug.Print Err.Description
    If Not mdGlobal.mySQL Is Nothing Then Set mySQL = Nothing