استخراج ، والحصول على بيانات من بي إتش بي ماي
هذا الرمز ماكرو VBA استخراج البيانات من قاعدة بيانات الخلية وتكتب البيانات إلى ملف اكسل. استخدام العديد من هذه لكميات كبيرة من البيانات لمراقبة وتطوير الشبكة بي.
تفسير هذا النهج هو على التوالي إلى الأمام. تحميل الملف ملء البيانات بشأن اقامة اتصال من الخلية. وسيتم عرض اضغط الزر وجميع البيانات من الجدول المحدد. هذا البرنامج هو جيدة لاستخدام إذا كان لديك قاعدة بيانات الخلية من موقع على شبكة الانترنت وعلى سبيل المثال تحتاج إلى تنفيذ كمية هائلة من البيانات التحديث. ببساطة أتمتة العملية والحصول على البيانات التي تحتاجها. لتكون قادرة على تشغيل التعليمات البرمجية ماكرو VBA تأكد من حصولك على تمكين مايكروسوفت اكتف مكتبة كائنات بيانات العشرين. ليتم تثبيتها أيضا شيك الرابط دبك mysql.com الاحتياجات على جهاز الكمبيوتر الخاص بك.
رمز Sub ExtractDataFromMySQL()
Dim Password As String
Dim SQLStr As String
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim User_ID As String
Dim Database_Name As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Range("a5:bb60000").ClearContents
Server_Name = Range("e4").Value ' IP number or servername
Database_Name = Range("e1").Value ' Name of database
User_ID = Range("h1").Value ' id user or username
Password = Range("e3").Value ' Password
Tabellen = Range("e2").Value ' Name of table to write to
SQLStr = "SELECT * FROM " & Tabellen
Set Cn = New ADODB.Connection
Cn.Open "Driver={MySQL ODBC 3.51 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
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
تنزيل ملف اكسل!استخراج للبيانات ، من mysql.xls |
