[µo°Ý] ½Ð°Ý¦p¦óŪ¨úMSQL¸Ìªºbinary¸ê®Æ¦Üexcel¸Ì

sasho

³Ìªñ»Ý­n±qmysqlªº¸ê®Æ®w¤¤§ì¸ê®Æ¨ìexcel¶i¦æ¤ÀªR
¦ý¦b¹B§@ªº¹Lµ{¤¤¡Aµo²{­Y¬Obinaryªº¸ê®Æ«hµLªkŪ¨ú
Ū¥X¨Óªºµ²ªG¤]¬OªÅ¥Õªº¡A¤£¾å±o¦U¦ì«e½ú¬O§_¯àÀ°¦£¸Ñ¨M¡AÁÂÁÂ!!
¥H¤U¬O§Úªºcode

Private Sub DataUpdate()

Dim oConn As ADODB.Connection
Dim myRS As ADODB.Recordset
Dim mySQL As String
Dim LastR As Long

Set oConn = New ADODB.Connection
Set myRS = New ADODB.Recordset
oConn.Open "DRIVER={MySQL ODBC 5.2a Driver};" _
           & "SERVER=localhost;" & "DATABASE=test;" & "USER=root;" _
           & "PASSWORD=XXXXXXX;" & "Option=3"

mySQL = "select * from `test` "
myRS.Open mySQL, oConn

With Worksheets(1)

    LastR = .Range("A65536").End(xlUp).Row

    Do While Not myRS.EOF        
        .Cells(LastR + 1, 1) = myRS.Fields(0)
        myRS.MoveNext
        LastR = LastR + 1
    Loop

End With

Set oConn = Nothing
Set myRS = Nothing

End Sub