스프레드시트 (spread sheet) DB 연결

Public Function dbconnet()

AdoCon.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};" _
                    & "server= 서버 ;" _
                    & "database= DB 명 ;" _
                    & "uid= 아이디 ;" _
                    & "pwd= 비밀번호 ;" _
                    & "port=3306"
AdoCon.Open

SQL = "SELECT * FROM 테이블명 where  쿼리문 "
Set AdoRes = New Recordset
AdoCon.CursorLocation = adUseClient
AdoRes.Open SQL, AdoCon, adOpenDynamic
Set AdoRes = AdoCon.Execute(SQL)

' 초기화
    spd_List.MaxRows = 0
    spd_List.MaxRows = AdoRes.RecordCount

               
    spd_List.SetText 1, 1, "검색 기간"
    spd_List.SetText 2, 1, TEMP_STRING

      cnt = 2

                Do Until AdoRes.EOF      
                      ' 스프레드 시트에 데이터 뿌려주기
                           
                          spd_List.SetText 1, cnt, AdoRes!컬럼명

                          spd_List.SetText 2, cnt, AdoRes!컬럼명
                          spd_List.SetText 3, cnt, AdoRes!컬럼명
                     
                          AdoRes.MoveNext
                         
                          ' 스프레드에 행 순번을 가리키는 변수를 1증가
                          cnt = cnt + 1
                        AdoRes.MoveNext
 

                Loop

AdoRes.Close
Set AdoRes = Nothing

End Function