Escribe una base de datos MySQL PHP Para

Para poder escribir datos en una base de datos y en este caso una base de datos MySQL es una forma eficaz de automatizar tareas que normalmente toma mucho tiempo. Este código VBA Macro escribe nuevos datos a la base de datos MySQL existentes am.

Explicación

El código VBA Macro útil para actualizar bases de datos MySQL, por ejemplo, si tiene sitio web que está desarrollado en PHP la base de datos estándar a utilizar es MySQL. Con el fin de hacer la conexión entre Excel y MySQL necesita un conector ODBC para la comprobación de controlador más reciente a cabo mysql.com. En el archivo adjunto de Excel disponible en la parte inferior de esta página hay columnas en el archivo donde se añaden los nombres de campo. No todos los nombres de los campos que haya que añadir sólo los que usted va a escribir. El campo id primero siempre tiene que estar allí. Rellene los datos relativos, el nombre de base de datos, nombre del servidor, el identificador de usuario, contraseña y nombre de la tabla. Añadir los nombres de campo y por debajo de los datos que se van a escribir en la base de datos. Pulse el botón y si usted tiene instalado el controlador de ODBC correcta y configurar la base de datos MySQL correctamente podrás comenzar a escribir los datos a su base de datos MySQL. Disfrute!

Para poder ejecutar el código VBA Macro asegúrese de que ha permitido a la Microsoft ActiveX Data Objects XX Biblioteca.

Código

Sub WriteToMySQLDatabase()

' For detailed description visit 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 number or servername
Database_Name = Range("e1").Value         ' Name of database
User_ID = Range("h1").Value                      'id user or username
Password = Range("e3").Value                    'Password
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 = "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

Descargar archivo de Excel!Write-a-MySQL-Base de datos-PHP.xls