تحديث قاعدة بيانات ماي بي

ويتم ذلك بسهولة تحديث البيانات الموجودة في قاعدة بيانات الخلية باستخدام هذا الرمز ماكرو فبا]. العديد من استخدام المنهجية عند العمل مع المواقع المتقدمة في بى والخلية.

تفسير

هذا الرمز هو الأمثل ماكرو VBA لتحديث قاعدة بيانات الخلية exsisting. كنت في حاجة الى الموصل ، لدبك mysql.com أحدث إصدار تحميل ملف اكسل يأكل من أسفل هذه الصفحة أو نسخ ولصق الشفرة مباشرة. في الملف أن هناك بعض البيانات التي احتياجاتك المقرر ان يصل وأضاف وفقا لقاعدة بيانات الخلية والاتصال. ملء البيانات وإضافة fileds المطلوبة والتي يتم الانتقال إلى التحديث. دفع buttom وسوف يتم تحديث البيانات الموجودة في قاعدة البيانات ماي. الخلية هي واحدة من قواعد البيانات أكثر فعالية وأفضل شيء هو أن يتم استخدامها مجانا.

لديك لتمكين مايكروسوفت اكتف مكتبة كائنات بيانات العشرون من أجل تنفيذ التعليمات البرمجية ماكرو فبا].

رمز

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

تنزيل ملف اكسل!تحديث قاعدة بيانات الخلية - - PHP.xls