Uppdatera MySQL-databas PHP

Uppdatera befintliga data i en MySQL-databas görs enkelt med hjälp av denna VBA Makro-kod. Många använder den metod när man arbetar med webbplatser utvecklade i PHP och MySQL.

Förklaring

Detta VBA Makro-kod är optimerad för att uppdatera en exsisting MySQL-databas. Du behöver en kontakt, ODBC för senaste versionen mysql.com ladda ner Excel-filen åt längst ner på denna sida eller kopiera och klistra in koden direkt. I filen finns det några data som behöver läggas till, alltefter dina inställningar i MySQL databas och anslutning. Fyll i uppgifterna och lägga till nödvändiga Fält som du ska uppdatera. Tryck på nytt med funktionen och du kommer att uppdatera befintliga data i din MySQL-databas.

Du måste göra det möjligt för Microsoft ActiveX Data Objects XX bibliotek för att verkställa VBA Makro-koden.

Kod

Sub UpdateMySQLDatabasePHP ()

"For detaljerad beskrivning besök http://www.vbaexcel.eu/

Dim Database_Name As String
Dim USER_ID As String
Dim Lösenord As String
Dim Cn As ADODB.Connection
Dim Servernamn As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

USER_ID = Range ("h1") .Value "användar-ID eller användarnamn
Lösenord = Range ("E3") .Value Lösenord
Servernamn = Range ("e4") .Value IP-nummer eller servernamn
Database_Name = Range ("E1") .Value "Namnet på databasen
Tabellen = Range ("E2") .Value "Namnet på tabellen för att skriva till

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 = "UPDATE" & Tabellen & "SET" & TextStrang & "VAR" & Cells (5, 1) & "= '" & Cells (6 + rad, 1) & "'"
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 & ";"
Cn.Execute SQLStr
rad = rad + 1
Wend
Set rs = Nothing
Cn .Close
Set Cn = Nothing

End Sub

Ladda ner Excel-fil!Uppdatering-MySQL-databas-PHP.xls