كيفية نقل البيانات من مصدر بيانات ADO إلى Excel باستخدام ADO

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

اضغط هنا لرابط المقالة باللغة الانجليزية295646
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
لأن Microsoft Excel على مثل عن أداة تحليل بيانات فعالة تريد لمطوري التطبيقات Visual Basic و VBA غالباً لإحضار البيانات إلى ورقة عمل Excel لأغراض التحليل. توضح هذه المقالة طريقة كائنات بيانات ActiveX (ADO) هذه المهمة برمجة باستخدام بناء الجملة الخاصة بـ Microsoft Jet للحصول على بعض الأوامر SQL.

توضح هذه المقالة حلول برمجة هذه المقالة كما لم يتم توضيح قدرات استيراد البيانات تستند إلى القائمة في Excel (من خلال الخيار فتح القائمة ملف) أو استخدام Microsoft Query (من الخيار إحضار بيانات خارجية في القائمة بيانات).

للحصول على معلومات إضافية حول حلول برمجة المتممة التي تستخدم أتمتة Excel بدلاً من أوامر SQL انقر فوق رقم المقالة أدناه لعرضها في "قاعدة المعارف لـ Microsoft:
246335كيفية نقل البيانات من مجموعة سجلات ADO إلى Excel باستخدام التنفيذ
معلومات أخرى
في الأمثلة التالية cnSrc يمثل اتصال ADO مفتوح إلى نموذج Northwind قاعدة بيانات Jet 4.0 موفر Jet OLE DB باستخدام.

كيفية نسخ

يمكن استخدام عبارة SELECT INTO نسخ بيانات من أي مصدر بيانات Jet يمكن القراءة إلى أي وجهة البيانات لإنشاء جدول جديد (أو في حالة التي Excel ورقة عمل جديدة) تحرك. لا تستخدم بناء الجملة الدولار على سبيل المثال [Sheet1 $] عند الإشارة إلى اسم ورقة كوجهة الخاص بك. يمكن المصنف الوجهة موجودة أو غير موجود; ومع ذلك، يجب أن الورقة الوجهة غير بعد موجود.

توجد ثلاث طرق كتابة الأمر copy نسخ جدول العملاء بأكمله من قاعدة بيانات Microsoft Access Northwind إلى ورقة جديدة في مصنف Excel. بناء جملة كل يتطلب عبارة SQL واحدة وإنشاء عناوين الأعمدة في الصف الأول من ورقة العمل الوجهة.
  • يستخدم المثال التالي بناء جملة SELECT INTO:
    Dim strSQL As StringstrSQL = "SELECT * INTO [Excel 8.0;Database=" & App.Path & _     "\book1.xls].[Sheet1] FROM Customers"cnSrc.Execute strSQL					
  • يستخدم المثال التالي بناء جملة SELECT INTO IN...:
    strSQL = "SELECT * INTO [Sheet1] IN '' [Excel 8.0;Database=" & App.Path & _    "\book1.xls] FROM Customers"						
    حيث مسبوقاً معلومات قاعدة البيانات الوجهة bracketed بواسطة زوج فارغة من علامات الاقتباس المفردة وسيطة نوع (الجزء "Excel 8.0") ، الذي يتم تضمينه داخل الأقواس عندما استخدم بناء الجملة التالي.
  • يستخدم المثال التالي بناء الجملة بديل عن جملة IN:
    strSQL = "SELECT * INTO [Sheet1] IN '" & App.Path & _    "\book1.xls' 'Excel 8.0;' FROM Customers"						
    حيث وسيطة نوع الآن مسرود بشكل منفصل بعد مسار الملف الوجهة.

كيفية إلحاق

يمكنك استخدام عبارة INSERT INTO... IN لإلحاق البيانات من أي مصدر بيانات يمكن قراءتها Jet في الوجهة أية بيانات. يجب أن يتواجد المصنف الوجهة وورقة. والآن بعد أن يتم الإشارة إلى ورقة عمل موجودة, يجب عليك استخدام القياسية الدولار الجملة, على سبيل المثال، [Sheet1 $] عند الإشارة إلى اسم ورقة كوجهة الخاص بك. بالإضافة إلى ذلك، يجب أن تكون عناوين الأعمدة موجودة مسبقاً; بمعنى آخر، بيان هذا يمكن استخدامه فقط إلحاق جدول موجود.

هناك طريقتان كتابة الأمر append نسخ جدول العملاء بأكمله من قاعدة البيانات Northwind إلى ورقة عمل موجودة Excel ، والذي يحتوي مسبقاً على رؤوس الأعمدة المناسبة.
  • يستخدم المثال التالي بناء جملة INSERT INTO IN...:
    strSQL = "INSERT INTO [Sheet1$] IN '' [Excel 8.0;Database=" & App.Path & _    "\book1.xls] SELECT * FROM Customers"						
    حيث معلومات قاعدة البيانات الوجهة bracketed هو مرة أخرى مسبوقة زوج فارغة علامات الاقتباس من أجل الوسيطة نوع الآن تضمين داخل الأقواس.
  • يستخدم المثال التالي بناء الجملة بديل عن جملة IN:
    strSQL = "INSERT INTO [Sheet1$] IN '" & App.Path & _    "\book1.xls' 'Excel 8.0;' SELECT * FROM Customers"					
مراجع
للحصول على معلومات إضافية حول بناء الجملة الخاصة بـ Jet مراجعة Jet SQL ملف التعليمات (JETSQL40.chm) المواضيع في عبارة SELECT INTO و عبارة INSERT INTO جملة IN خاصة.

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 295646 - آخر مراجعة: 12/06/2015 01:59:15 - المراجعة: 2.4

Microsoft Excel 2000 Standard Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Data Access Components 2.0, Microsoft Data Access Components 2.1, Microsoft Data Access Components 2.5, Microsoft Excel 97 Standard Edition

  • kbnosurvey kbarchive kbmt kbdatabase kbhowto kbjet kbmdacnosweep KB295646 KbMtar
تعليقات