[VBA] SQL Query (Select 구문)

서버에 자료가 있는지 SQL 문 조회를 하여 가져온 결과를 화면에 뿌릴때 구현하는 로직이다.

핵심사항만 적어둔다. 나머지 사항은 다른 게시물을 참조하면 된다.

        If RS.EOF Then
            DoEvents
        Else
            RS.MoveFirst  '// Move to the first record
             For i = 1 To RS.RecordCount  '// recordset의  필드 개수만큼 반복
                For n = 1 To RS.Fields.Count
                    If RS.Fields(n - 1) > 0 Then Cells(C.Row, n + 3) = "중복"   '// 표시하고 싶은 열에 중복 표시
                Next n
                RS.MoveNext
            Next i
        End If
        RS.Close    '//Close connection again