Skriv til MySQL-database PHP

At være i stand til at skrive data til en database og i dette tilfælde en MySQL-database er en effektiv måde at automatisere opgaver, der normalt er meget tidskrævende. Denne VBA Makro kode skriver nye data til am eksisterende MySQL database.

Forklaring

VBA Makro kode nyttigt for ajourføring MySQL databaser for eksempel hvis du har websted, der er udviklet i PHP standard database til brug MySQL. For at gøre forbindelsen mellem Excel og MySQL du har brug for en ODBC stik til den nyeste driver tjek mysql.com . I den vedhæftede Excel-fil tilgængelig nederst på denne side er der kolonner i filen, hvor du tilføjer feltnavne. Ikke alle feltnavne skal tilføjes kun dem, du vil skrive til. Den første id felt skal altid være der. Udfyld data om, database navn, server navn, bruger-id, password og navnet på tabellen. Tilsæt feltnavne og under de data, du vil skrive til databasen. Tryk på knappen og hvis du har installeret ODBC driveren korrekt og oprette MySQL database korrekt, vil du begynde at skrive data til din MySQL-database. God fornøjelse!

For at kunne køre VBA Makro kode at du har aktiveret Microsoft ActiveX Data Objects XX Bibliotek.

Kode

Sub WriteToMySQLDatabase ()

»For detaljeret beskrivelse besøg http://www.vbaexcel.eu/

Dim rs As ADODB.Recordset
Dim Cn As ADODB.Connection
Dim Server_name As String
Dim Database_Name As String
Dim Password As String
Dim SQLStr As String

Dim USER_ID As String

Set rs = New ADODB.Recordset

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

rad = 0
While Range ("A6"). Offset (rad, 0) .Value <> tom
TextStrang = tom
kolumn = 0
While Range ("A5"). Offset (0, kolumn) .Value <> tom
If kolumn = 0 Then TextStrang = TextStrang & Cells (5, 1) & "= '" & Cells (6 + rad, 1)
If kolumn <> 0 Then TextStrang = TextStrang & "'," & Cells (5, 1 + kolumn) & "='" & Cells (6 + rad , 1 + kolumn)
kolumn = kolumn + 1
Wend
TextStrang = TextStrang & "'"
SQLStr = "INSERT INTO" & Tabellen & "SET" & TextStrang
Set Cn = New ADODB.Connection
Cn .Open "Driver = {MySQL ODBC 3,51 Driver} Server =" & Server_name & "; Database =" & Database_Name & _
"Uid =" & USER_ID & "; pwd =" & Password & ";"
Cn.Execute SQLStr
rad = rad + 1
Wend

Set rs = Nothing
Cn .Close
Set Cn = Nothing

End Sub

Download excel filen!Skriv-To-MySQL-database PHP.xls