अद्यतन PHP MySQL डाटाबेस

एक MySQL डाटाबेस में मौजूदा डेटा अद्यतन कर रहा है आसानी से इस VBA मैक्रो कोड का उपयोग करके किया जाता है. कई कार्यप्रणाली जब PHP और MySQL में विकसित वेबसाइटों के साथ काम का उपयोग कर रहे हैं.

व्याख्या

इस VBA मैक्रो कोड exsisting एक MySQL डाटाबेस को अद्यतन करने के लिए अनुकूलित है. आप एक संबंधक, नवीनतम संस्करण mysql.com के लिए ODBC जरूरत एक्सेल फ़ाइल इस पृष्ठ या कॉपी और पेस्ट कोड के सीधे नीचे डाउनलोड खाया. फ़ाइल में वहाँ है कि कुछ डेटा की जरूरत के अनुसार जोड़ा जा MySQL डाटाबेस और कनेक्शन की स्थापना की अपनी हैं. डेटा भरें और fileds आवश्यक है कि आप अद्यतन करने के लिए जा रहे हैं जोड़ें. buttom पुश और आप अपने MySQL डेटाबेस में मौजूदा डेटा को अद्यतन किया जाएगा.

आप Microsoft ActiveX डेटा उद्देश्यों XX लाइब्रेरी को सक्षम करने के लिए VBA मैक्रो कोड को निष्पादित किया है.

कोड

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

डाउनलोड फ़ाइल Excel!अद्यतन-MySQL-डाटाबेस से PHP.xls