VBA MySQL 접속

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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