الكتابة إلى قاعدة بيانات ماي بي

لتكون قادرة على كتابة البيانات إلى قاعدة بيانات وفي هذه الحالة قاعدة بيانات الخلية هو وسيلة فعالة لأتمتة المهام التي عادة ما تستغرق وقتا طويلا جدا. هذا الرمز ماكرو VBA يكتب البيانات الجديدة إلى قاعدة البيانات صباحا الخلية الموجودة.

تفسير

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

لتكون قادرة على تشغيل التعليمات البرمجية ماكرو VBA تأكد من حصولك على تمكين مايكروسوفت اكتف مكتبة كائنات بيانات العشرين.

رمز

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

تنزيل ملف اكسل!الكتابة إلى الخلية ، قاعدة البيانات ذات PHP.xls