قاعدة بيانات الصدد ، استرداد البيانات من قاعدة البيانات ، الاستعلام عن البيانات في إكسل باستخدام VBA داو رمز VBA يجعل اتصال قاعدة البيانات والبيانات استرداد بواسطة استدعاء وتقديم المدخلات للاستعلام قاعدة بيانات موجودة.
تفسير يتم إنشاء اتصال قاعدة البيانات من خلال ماكرو VBA استعلام وهذا هو كل شيء جاهز إنشاء وتخزينها في قاعدة البيانات يتم تنفيذ. يتم أيضا الاستعلام لاسترداد البيانات من معلمتين مختلفة. ويمكن استبعاد المعلمات في حالة استرداد كافة البيانات من استعلام بدون فلاتر محددة. يمكن تأسيس هذا النوع من اتصال قاعدة بيانات لجميع الأنظمة التجارية الرئيسية ، ويمكن توفير الوقت والمال من خلال القضاء على تستغرق وقتا طويلا نقل البيانات يدويا. على سبيل المثال أيام العمل اليدوي ويمكن بسهولة أن يتم تلقائيا باستخدام VBA أتمتة الماكرو. من المهم أن إجراء تحليلات العمل الخاصة بك بشكل مستمر لكي تكون فعالة.
يجب تمكين من أجل جعل رمز VBA عمل الإشارة التالية الاحتياجات "مايكروسوفت داو 3.6 كائن مكتبة".
ويمكن تحميل برنامج VBA بأكملها في ملف اكسل في نهاية هذه الصفحة على شبكة الإنترنت أو مجرد نسخ ولصق رمز مباشرة من الصفحة!
رمز Public Sub database_connection_retrieve_data_from_database_querying_data_into_excel_using_VBA_DAO()
Dim Database_RetrieveData_VBA_Excel As String
Dim Query_RetrieveData_VBA_Excel As String
Dim Parameter1_RetrieveData_VBA_Excel As String
Dim Parameter2_RetrieveData_VBA_Excel As String
Dim DAO_Connection_RetrieveData_VBA_Excel As String
Database_RetrieveData_VBA_Excel = Range("G3").Value
Query_RetrieveData_VBA_Excel = Range("G4").Value
Parameter1_RetrieveData_VBA_Excel = Range("G5").Value
Parameter2_RetrieveData_VBA_Excel = Range("G6").Value
DAO_Connection_RetrieveData_VBA_Excel = 0
DB1 = DBEngine.OpenDatabase(Database_RetrieveData_VBA_Excel)
Set QD1 = DB1.QueryDefs(Query_RetrieveData_VBA_Excel)
QD1.Parameters("p1") = Parameter1_RetrieveData_VBA_Excel
QD1.Parameters("p2") = Parameter2_RetrieveData_VBA_Excel
Set RS1 = QD1.OpenRecordset(dbOpenSnapshot, dbReadOnly)
Range("b11").Offset(0, 0).CopyFromRecordset RS1
RS1.Close
QD1.Close
DB1.Close
End Sub
تنزيل ملف اكسل!قاعدة بيانات الصدد ، استرجاع للبيانات من قاعدة بيانات ، الاستعلام عن البيانات ، إلى التفوق ، التي تستخدم - VBA - DAO.xls |
