Làm thế nào để VBA có thể kết nối với cơ sở dữ liệu MySQL trong Excel?

Question

Dim oConn As ADODB.Connection 
Private Sub ConnectDB() 
Set oConn = New ADODB.Connection 
Dim str As String 
str = "DRIVER={MySQL ODBC 5.2.2 Driver};" & _ 
              "SERVER=sql100.xtreemhost.com;" & _ 
              "PORT=3306" & _ 
              "DATABASE=xth_9595110_MyNotes;" & _ 
              "UID=xth_9595110;" & _ 
              "PWD=myPassword;" & _ 
              "Option=3" 
''' error ''' 
oConn.Open str 
End Sub 

Private Sub InsertData() 
Dim rs As ADODB.Recordset 
Set rs = New ADODB.Recordset 
ConnectDB 
sql = "SELECT * FROM ComputingNotesTable" 
rs.Open sql, oConn, adOpenDynamic, adLockOptimistic 
Do Until rs.EOF 
    Range("A1").Select 
    ActiveCell = rs.Fields("Headings") 
    rs.MoveNext 
Loop 
rs.Close 
oConn.Close 
Set oConn = Nothing 
Set rs = Nothing 
End Sub 

Làm những điều tương tự trong PHP, tôi có thể đăng nhập thành công vào máy chủ MySQL. Tôi đã cài đặt đầu nối ODBC. Nhưng trong các mã VBA ở trên, tôi đã thất bại. Lỗi xảy ra. (Xem các mã lỗi ở đâu tồn tại)

$connect = mysql_connect("sql100.xtreemhost.com","xth_9595110","myPassword") or die(mysql_error()); 

mysql_select_db("myTable",$connect); 

Answer 1

đang Ranjit đã gây được thông báo lỗi tương tự như báo cáo của Tín , nhưng đã làm việc sau khi cập nhật Cn.open với trình điều khiển ODBC mà tôi đang chạy. Kiểm tra tab Trình điều khiển trong Quản trị viên nguồn dữ liệu ODBC. Tôi nói "MySQL ODBC 5.3 Unicode Driver" vì vậy tôi cập nhật cho phù hợp.

Answer 2

Đoạn VBA làm việc cho tôi:

Sub connect() 
    Dim Password As String 
    Dim SQLStr As String 
    'OMIT Dim Cn statement 
    Dim Server_Name As String 
    Dim User_ID As String 
    Dim Database_Name As String 
    'OMIT Dim rs statement 

    Set rs = CreateObject("ADODB.Recordset") 'EBGen-Daily 
    Server_Name = Range("b2").Value 
    Database_name = Range("b3").Value ' Name of database 
    User_ID = Range("b4").Value 'id user or username 
    Password = Range("b5").Value 'Password 

    SQLStr = "SELECT * FROM ComputingNotesTable" 

    Set Cn = CreateObject("ADODB.Connection") 'NEW STATEMENT 
    Cn.Open "Driver={MySQL ODBC 5.2.2 Driver};Server=" & _ 
      Server_Name & ";Database=" & Database_Name & _ 
      ";Uid=" & User_ID & ";Pwd=" & Password & ";" 

    rs.Open SQLStr, Cn, adOpenStatic 

    Dim myArray() 

    myArray = rs.GetRows() 

    kolumner = UBound(myArray, 1) 
    rader = UBound(myArray, 2) 

    For K = 0 To kolumner ' Using For loop data are displayed 
     Range("a5").Offset(0, K).Value = rs.Fields(K).Name 
     For R = 0 To rader 
      Range("A5").Offset(R + 1, K).Value = myArray(K, R) 
     Next 
    Next 

    rs.Close 
    Set rs = Nothing 
    Cn.Close 
    Set Cn = Nothing 
End Sub 

Answer 3

Enable Microsoft ActiveX Data Objects 2.8 Library

Dim oConn As ADODB.Connection 
Private Sub ConnectDB()  
Set oConn = New ADODB.Connection  
oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _   
"SERVER=localhost;" & _   
"DATABASE=yourdatabase;" & _   
"USER=yourdbusername;" & _  
"PASSWORD=yourdbpassword;" & _  
"Option=3" 
End Sub 

Có còn lại là ở đây: http://www.heritage-tech.net/908/inserting-data-into-mysql-from-excel-using-vba/

Answer 4

Chỉ cần một mặt lưu ý cho bất cứ ai tình cờ vào cuộc điều tra này cùng ... Hệ điều hành của tôi là 64 bit - vì vậy tất nhiên tôi đã tải về trình điều khiển MySQL 64 bit ... Tuy nhiên, các ứng dụng văn phòng của tôi là 32 bit ... Khi tôi tải xuống phiên bản 32 bit, lỗi đã biến mất và tôi có thể tiến lên phía trước.