[VB] ODBC를 이용한 Mysql 접속하기

클라이언트에 Mysql 의 ODBC를 설치한다.
( http://www.mysql.com/downloads/api-myodbc-3.51.html )


제어판의 ODBC 데이터 원본 관리자 또는
BDE Admin에서 Database 탭에서 New로 해당 ODBC를 생성후 이름을 설정하고 마우스 오른쪽 클릭후 ODBC Admin..을 선택한다.

추가를 선택해 원하는 데이타베이스 이름을 넣어 준다.
( 앞으로 이 이름으로 데이터 베이스에 접속할 것임 )

그런후 적용 ( Apply ) 를 선택해 완전히 접속(?) 시킨다.


Visual Basic 에서는 구성요소 탭을 추가하여
Microsoft ActiveX Data Object Control  를 추가 시켜 준다.
( 현재 내 컴퓨터는 Microsoft ADO Data Control 6.0 ( OLEDB ) 가 있음 )

폼에 삽입시키는것이 아니라. 단지 그냥 구성요소에 추가만 시켜 주면 된다.


다음 폼에 다음을 입력한다.
-------------------------------------------------------------------
Dim Con As ADODB.Connection
Dim Rs As ADODB.Recordset

' Form Load 이벤트에서 DB를 연결합니다.
Private Sub Form_Load()
   Dim Sql As String

   Set Con = New ADODB.Connection
   Con.Open "chan", "root", "" ' Con.Open "설정한DB이름" , "ID" , "PASS"

   ' DB Query를 실행합니다
   Sql = "Select * From test"    
   Set Rs = New ADODB.Recordset
   Rs.Open Sql, Con, adOpenStatic     ' 현재 커넥션에 쿼리를 날림

   ' 읽어온 Query 결과의 Data를 이용합니다.
   Do Until Rs.EOF
      MsgBox Rs(0) & Rs(1)
      Rs.MoveNext
   Loop
   Rs.Close
   Set Rs = Nothing    '  발행된 RecordSet을 닫습니다.

   ' DB 작업을 지시할때...
   ' Sql = 'Delete From Test_Table" ' Insert, Update도 이런 방식으로...
   Con.Execute Sql

End Sub

-------------------------------------------------------------

참고사항 :

mysql 서버에서는 외부에서 접속이 가능토록 해 주어야 한다.
ODBC를 쓴다는것 자체가 다른 환경의 접속이 있다는 말이 되므로.
( 물론 꼭 그런것은 아님 )