写信给PHP的MySQL数据库

为了能够将数据写入到数据库并在此情况下，MySQL数据库是一个自动化的任务，通常是非常费时的有效途径。这VBA宏代码写入新的数据时现有的MySQL数据库。

解释

VBA宏代码，比如MySQL数据库的更新，如果你有网站，是用PHP开发的标准数据库使用有用的是MySQL。为了使优秀和MySQL之间的联系你需要的最新的驱动程序检查出mysql.com一个ODBC连接。在所附的Excel文件在本页面底部提供的文件中有你添加的字段名称列。不是所有的字段名称需要添加的只是你要写信给。第一个ID字段总是需要在那里。填写有关数据，数据库名称，服务器名称，用户ID，密码和表的名称。添加字段名称和下面的数据你要写入到数据库。按下按钮，如果您已经安装了ODBC驱动程序正确，建立正确的MySQL数据库，您将数据写入启动你的MySQL数据库。享受！

为了能够运行VBA宏代码，确保您已经启用了微软的ActiveX数据对象某某图书馆。

码

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

下载Excel文件！写入到MySQL的数据库，PHP.xls