كيف يمكن لـ VBA الاتصال بقاعدة بيانات MySQL في Excel؟

الاتصال بقاعدة بيانات MySQL باستخدام VBA

محاولة الاتصال قد يكون الوصول إلى قاعدة بيانات MySQL في Excel باستخدام VBA أمرًا صعبًا في بعض الأحيان. في حالتك، واجهت خطأ أثناء محاولة إنشاء اتصال.

للاتصال بنجاح بقاعدة بيانات MySQL باستخدام VBA، اتبع الخطوات التالية:

Sub ConnectDB()
    Dim oConn As ADODB.Connection

    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"

    ' Open the connection
    oConn.Open str
End Sub

جلب البيانات من قاعدة البيانات

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

' Execute a query
sql = "SELECT * FROM ComputingNotesTable"
rs.Open sql, oConn, adOpenDynamic, adLockOptimistic

' Retrieve the data
Do Until rs.EOF
    Range("A1").Select
    ActiveCell = rs.Fields("Headings")
    rs.MoveNext
Loop

' Clean up
rs.Close
oConn.Close
Set oConn = Nothing
Set rs = Nothing

مقارنة مع PHPلقد ذكرت أنك تمكنت من الاتصال بـ MySQL بنجاح باستخدام PHP. في PHP، استخدمت الدالة mysql_connect. ومع ذلك، في VBA، نستخدم كائن ADODB.Connection لتأسيس اتصال.

وظيفة mysql_connect هي وظيفة PHP أصلية تتفاعل مباشرة مع ملحق MySQL. من ناحية أخرى، ADODB.Connection هو كائن ActiveX يوفر طريقة أكثر عمومية للاتصال بقواعد البيانات المختلفة، بما في ذلك MySQL. تأكد من تثبيت MySQL ODBC Connector.

يضمن الخيار = 3 في سلسلة الاتصال إنهاء السلسلة بواسطة فاصلة منقوطة.

يتم استخدام ثوابت adOpenDynamic وadLockOptimistic لتحسين استرجاع البيانات.