MSFlexGrid의 Select 문사용해서 스프레드에 뿌리는법?…









 밑에서 제가 답변한 내용인데요.


참조하세요.



    Dim aconn As ADODB.Connection


    Dim ars As ADODB.Recordset


   


    ‘>>> 1. DB 연결


    Set aconn = New ADODB.Connection


    aconn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.3.51;Data source=” & App.Path & “\MainDB.mdb”


    aconn.Open


   


    ‘>>> 2. RecordSet 설정


    Set ars = New ADODB.Recordset


    ars.CursorLocation = adUseClient


    ars.CursorType = adOpenKeyset


    ars.LockType = adLockOptimistic


   


    Dim sqlGrid As String


    ‘>>> 3. 쿼리문 생성


    sqlGrid = “select ID,시작날짜,시작시간,종료날짜,종료시간 from 접속자관리”


   


    ‘>>> 4. 쿼리 실행


    ars.Open sqlGrid, aconn


   


    ‘>>> 5. Grid 컬럼 헤드 출력


    MSFlexGrid1.TextMatrix(0, 0) = “ID”


    MSFlexGrid1.TextMatrix(0, 1) = “시작날짜”


    MSFlexGrid1.TextMatrix(0, 2) = “시작시간”


    MSFlexGrid1.TextMatrix(0, 3) = “종료날짜”


    MSFlexGrid1.TextMatrix(0, 4) = “종료시간”


   


    ‘>> 6. RecordSet 결과값 Grid 출력    


    If ars.RecordCount > 0 Then


        ars.MoveFirst


        For i = 1 To ars.RecordCount


            MSFlexGrid1.TextMatrix(i, 0) = ars!ID


            MSFlexGrid1.TextMatrix(i, 1) = ars!시작날짜


            MSFlexGrid1.TextMatrix(i, 2) = ars!시작시간


            MSFlexGrid1.TextMatrix(i, 3) = IIf(IsNull(ars!종료날짜), “”, ars!종료날짜)


            MSFlexGrid1.TextMatrix(i, 4) = IIf(IsNull(ars!종료시간), “”, ars!종료시간)


            ars.MoveNext


        Next i


    End If


   


    ‘>>> 7. 닫기


    ars.close


    aconn.close




간단 샘플이었습니다.


자료실이나 질문&답변 검색 하시면 많이 나올겁니다.

댓글

답글 남기기

이메일 주소는 공개되지 않습니다. 필수 항목은 *(으)로 표시합니다