निकालने, MySQL PHP से डाटा प्राप्त करें
इस VBA मैक्रो कोड एक MySQL डाटाबेस से डेटा निकालता है और डेटा लिखते हैं एक फ़ाइल Excel. डेटा की बड़ी PHP वेब विकास के लिए मात्रा पर नियंत्रण के लिए यह कई का उपयोग करें.
व्याख्या दृष्टिकोण सीधे आगे है. डाउनलोड फ़ाइल डेटा में भरने के संबंध में MySQL कनेक्शन की स्थापना की. चयनित बटन और मेज से सभी डेटा पुश प्रदर्शित किया जाएगा. करने के लिए VBA मैक्रो कोड चलाने में सक्षम होना सुनिश्चित करें कि आप Microsoft ActiveX डेटा उद्देश्यों XX लाइब्रेरी सक्षम है सुनिश्चित करें. इसके अलावा एक ODBC संबंधक जांच 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
डाउनलोड फ़ाइल Excel!डेटा निकालने-से-mysql.xls |
