Uddrag, Get Data fra MySQL PHP
Denne VBA Makro kode uddrager data fra en MySQL-database og skriver data til en Excel-fil. Mange bruger denne til store mængder af data kontrol for PHP web udvikling.
Forklaring Fremgangsmåden er ligetil. Hent filen udfylde data vedrørende etablering af MySQL forbindelsen. Tryk på knappen og alle data fra den valgte tabel vil blive vist. For at kunne køre VBA Makro kode at du har aktiveret Microsoft ActiveX Data Objects XX Bibliotek. Også en ODBC-stik check mysql.com skal installeres på din computer.
Kode 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-nummer eller servernavn
Database_Name = Range ("E1") .Value "Navn på database
USER_ID = Range ("h1") .Value "id bruger eller brugernavn
Password = Range ("e3") .Value 'Password
Tabellen = Range ("e2") .Value "Navn på tabel for at skrive til
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, ad Open Statisk
Dim minDatatabel ()
minDatatabel = rs.GetRows ()
kolumner = UBound (minDatatabel, 1)
Rader = UBound (minDatatabel, 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 = minDatatabel (K, R)
Next
Next
rs .Close
Set rs = Nothing
Cn .Close
Set Cn = Nothing
End Sub
Download excel filen!uddrag-data-fra-mysql.xls |
