VBA MySQL 접속

VBA 2012. 10. 9. 09:13

Sub conDB()
     Dim conn As ADODB.Connection           ' DB 연결을 위한 변수
     Set conn = New ADODB.Connection       	' ODBC 객체생성
    
    ' ----------------------------------------------------------------------
    ' MySQL ODBC에 연결
    ' ----------------------------------------------------------------------
    conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 DRIVER};" _  ' DB 버전
                            "SERVER = IP주소;" _                 ' IP주소
                            "DATABASE = DB이름;" _               ' DB 이름
                            "UID=계정ID;PASSWORD=패스워드;OPTION=3" ' ID, 패스워드

    conn.Open

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' INSERT SQL문 삽입
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    conn.Execute "INSERT INTO TABLE VALUES(,,,,,,)"
		
    conn.Close
    Set conn = Nothing
End Sub