Utdrag, Hämta data från MySQL PHP
Detta VBA Makro-kod extraherar data från en MySQL databas och skriver data till en Excel-fil. Många använder denna för stora mängder data kontroll för PHP webbutveckling.
Förklaring Tillvägagångssättet är enkelt. Hämta filen fylla i uppgifterna om inrättandet av MySQL-anslutning. Tryck på knappen och alla data från det valda bordet kommer att visas. För att kunna köra VBA Makro-kod se till att du har aktiverat Microsoft ActiveX Data Objects XX bibliotek. Också en ODBC-anslutning check mysql.com behöver installeras på din dator.
Kod Sub ExtractDataFromMySQL ()
Dim Lösenord As String
Dim SQLStr As String
Dim Cn As ADODB.Connection
Dim Servernamn 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
Servernamn = Range ("e4") .Value IP-nummer eller servernamn
Database_Name = Range ("E1") .Value "Namnet på databasen
USER_ID = Range ("h1") .Value "användar-ID eller användarnamn
Lösenord = Range ("E3") .Value Lösenord
Tabellen = Range ("E2") .Value "Namnet på tabellen för att skriva till
SQLStr = "SELECT * FROM" & Tabellen
Set Cn = New ADODB.Connection
Cn .Open "Driver = {MySQL ODBC 3,51 Driver} Server =" & Servernamn och "Databas =" & Database_Name & _
"Uid =" & USER_ID & ", Pwd =" & Lösenord & ";"
rs .Open SQLStr, Cn, ad Open Static
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
Ladda ner Excel-fil!extrakt-data-från-mysql.xls |
