PHP MySQL डाटाबेस करने के लिए लिखें

एक डेटाबेस के लिए डेटा लिखने के लिए और इस मामले में एक MySQL डाटाबेस कार्य है कि सामान्य रूप से बहुत ही में काफ़ी समय लगता है स्वचालित का एक कारगर तरीका है सक्षम होने के लिए. इस VBA मैक्रो कोड नया डेटा लिखता हूँ मौजूदा MySQL डाटाबेस करने के लिए.

व्याख्या

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

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

कोड

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