Actualización de la base de datos MySQL PHP

Actualización de los datos existentes en una base de datos MySQL se hace fácilmente mediante el código VBA Macro. Muchos están utilizando la metodología para trabajar con sitios web desarrollados en PHP y MySQL.

Explicación

Este código VBA Macro está optimizado para la actualización de una base de datos MySQL exsisting. Usted necesita un conector, ODBC para mysql.com última versión descargar el archivo de Excel comió la parte inferior de esta página o copiar y pegar el código directamente. En el archivo hay algunos datos que deben sumarse de acuerdo a su puesta en marcha de la base de datos MySQL y la conexión. Rellene los datos y agregar la fileds requiere que usted va a actualizar. Presione el boton y va a actualizar los datos existentes en su base de datos MySQL.

Usted tiene que permitir a la de Microsoft ActiveX Data Objects XX Biblioteca con el fin de ejecutar el código VBA Macro.

Código

Sub UpdateMySQLDatabasePHP()

' For detailed description visit 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                      'i d user or username
Password = Range("e3").Value                    ' Password
Server_Name = Range("e4").Value             ' IP number or servername
Database_Name = Range("e1").Value         ' Name of database
Tabellen = Range("e2").Value                     ' Name of table to write to

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

Descargar archivo de Excel!-Actualización de Base de datos MySQL-PHP.xls