Update MySQL database PHP

Opdatering af eksisterende data i en MySQL-database gøres nemt ved at bruge denne VBA Makro-kode. Mange bruger den metode, når du arbejder med websites udviklet i PHP og MySQL.

Forklaring

Denne VBA Makro kode er optimeret til opdatering en exsisting MySQL-database. Du har brug for et stik, ODBC for seneste version mysql.com downloade excel-filen spiste bunden af denne side eller kopiere og indsætte koden direkte. I filen er der nogle data, der skal lægges til i din opsætning af MySQL database og tilslutning. Udfyld de data og tilføje de nødvendige fileds at du vil opdatere. Tryk bunden og du vil blive opdatere eksisterende data i din MySQL-database.

Du skal aktivere Microsoft ActiveX Data Objects XX Bibliotek for at udføre VBA Makro-kode.

Kode

Sub UpdateMySQLDatabasePHP ()

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

Dim Database_Name As String
Dim USER_ID As String
Dim Password As String
Dim Cn As ADODB.Connection
Dim Server_name As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

USER_ID = Range ("h1") .Value "id bruger eller brugernavn
Password = Range ("e3") .Value 'Password
Server_name = Range ("e4") .Value 'IP-nummer eller servernavn
Database_Name = Range ("E1") .Value "Navn på database
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 = "UPDATE" & Tabellen & "SET" & TextStrang & "WHERE" & Cells (5, 1) & "= '" & Cells (6 + rad, 1) & "'"
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!Update-MySQL-database PHP.xls