एक्सेल में वीबीए MySQL डेटाबेस से कैसे कनेक्ट हो सकता है?

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 

PHP में समान चीजें करना, मैं सफलतापूर्वक MySQL सर्वर में लॉग इन कर सकता हूं। मैंने ओडीबीसी कनेक्टर स्थापित किया है। लेकिन उपर्युक्त वीबीए कोड में, मैं असफल रहा। एक त्रुटि बदल जाती है। (कोड को देखने जहां त्रुटि मौजूद है)

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

mysql_select_db("myTable",$connect); 

Answer 1

रणजीत के कोड ने टिन द्वारा रिपोर्ट की गई एक ही त्रुटि संदेश का कारण बना दिया , लेकिन ओडीबीसी चालक के साथ सीएन.ओपेन को अपडेट करने के बाद काम किया। ओडीबीसी डेटा स्रोत प्रशासक में ड्राइवर्स टैब की जांच करें। माइन ने कहा "MySQL ओडीबीसी 5.3 यूनिकोड चालक" तो मैंने तदनुसार अद्यतन किया।

Answer 2

VBA का यह टुकड़ा मेरे लिए काम किया:

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

सक्षम करें Microsoft ActiveX डेटा ऑब्जेक्ट 2.8 लाइब्रेरी

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 

वहाँ बाकी यहाँ है: http://www.heritage-tech.net/908/inserting-data-into-mysql-from-excel-using-vba/

Answer 4

किसी भी व्यक्ति के लिए सिर्फ एक साइड नोट जो इस पूछताछ पर ठोकर खा रहा है ... मेरा ऑपरेटिंग सिस्टम 64 बिट है - इसलिए निश्चित रूप से मैंने 64 बिट MySQL ड्राइवर डाउनलोड किया है ... हालांकि, मेरे कार्यालय अनुप्रयोग 32 बिट हैं ... एक बार जब मैंने 32 बिट संस्करण डाउनलोड किया, तो त्रुटि दूर हो गई और मैं आगे बढ़ सकता था।