Skriv till MySQL-databas PHP

För att kunna skriva data till en databas och i detta fall en MySQL databas är ett effektivt sätt att automatisera uppgifter som normalt är mycket tidskrävande. Detta VBA Makro-kod skriver nya data till er befintliga MySQL-databas.

Förklaring

VBA Makro-kod användbar för uppdatering av MySQL-databaser till exempel om du har hemsida som utvecklats i PHP standarden databasen att använda är MySQL. För att göra kopplingen mellan Excel och MySQL behöver du en ODBC-anslutning för den senaste drivrutinen kolla mysql.com . I den bifogade Excel-filen finns längst ner på sidan finns kolumner i filen där du lägger fältnamn. Inte alla fältnamn måste läggas bara för dem du ska skriva till. De första id område behöver alltid att vara där. Fyll i uppgifter om, databasens namn, servernamn, användarnamn, lösenord och namnet på tabellen. Lägg till fältnamn och under de data som du ska skriva till databasen. Tryck på knappen och om du har installerat ODBC-drivrutinen korrekt och konfigurera MySQL databas korrekt kommer du att börja skriva data till din MySQL-databas. Njut!

För att kunna köra VBA Makro-kod se till att du har aktiverat Microsoft ActiveX Data Objects XX bibliotek.

Kod

Sub WriteToMySQLDatabase ()

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

Dim rs As ADODB.Recordset
Dim Cn As ADODB.Connection
Dim Servernamn As String
Dim Database_Name As String
Dim Lösenord As String
Dim SQLStr As String

Dim USER_ID As String

Set rs = New ADODB.Recordset

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

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 =" & 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!Skriva-Till-MySQL-databas-PHP.xls