كيفية استيراد البيانات من Microsoft SQL Server في Microsoft Excel

ملخص

دليل خطوة بخطوة توضح كيفية استيراد البيانات إلى Microsoft Excel من قاعدة بيانات Pubs نموذج قاعدة بيانات الذي تم تضمينه مع Microsoft SQL Server.

توفر كائنات بيانات ActiveX "(ADO) الوصول إلى أي نوع من مصدر البيانات. من نموذج كائن كاملة مع كائنات قليلة. في طراز كائن ADO الكائنات الرئيسية:

   Object          Description
-----------------------------------------------------------------------
Connection Refers to the connection to the data source.
Recordset Refers to the data extracted.
Command Refers to a stored procedure or SQL statements that
need to be executed.

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

متطلبات

يجب أن يكون لديك خادم محلي تشغيل Microsoft SQL Server والذي يحتوي على قاعدة بيانات Pubs.

توصي شركة Microsoft لديك معرفة ما يلي:
  • إنشاء Visual Basic للتطبيقات الإجراءات في برامج Office.
  • العمل مع متغيرات الكائن.
  • العمل مع كائنات Excel.
  • مفاهيم أنظمة إدارة قاعدة البيانات (RDBMS) العلائقية.
  • عبارات SELECT لغة الاستعلام (SQL) مصنفة.

الرجوع إلى مكتبة كائنات ADO

  1. بدء تشغيل Excel. فتح مصنف جديد وحفظه ك SQLExtract.xls.
  2. بدء تشغيل "محرر Visual Basic" وحدد مشروع VBA.
  3. من القائمة أدوات ، انقر فوق " مراجع".
  4. انقر لتحديد خانة الاختيار مكتبة كائنات بيانات Microsoft ActiveX إصدار أحدث.

إنشاء الاتصال

  1. إدراج وحدة نمطية جديدة في المشروع.
  2. إنشاء إجراء Sub جديد يسمى داتايكستراكت.
  3. اكتب أو الصق التعليمة البرمجية التالية:
    ' Create a connection object.Dim cnPubs As ADODB.Connection
    Set cnPubs = New ADODB.Connection

    ' Provide the connection string.
    Dim strConn As String

    'Use the SQL Server OLE DB Provider.
    strConn = "PROVIDER=SQLOLEDB;"

    'Connect to the Pubs database on the local server.
    strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=pubs;"

    'Use an integrated login.
    strConn = strConn & " INTEGRATED SECURITY=sspi;"

    'Now open the connection.
    cnPubs.Open strConn

استخراج البيانات

اكتب أو الصق التعليمة البرمجية التالية لاستخراج السجلات الخاصة بك:
' Create a recordset object.Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset

With rsPubs
' Assign the Connection object.
.ActiveConnection = cnPubs
' Extract the required records.
.Open "SELECT * FROM Authors"
' Copy the records into cell A1 on Sheet1.
Sheet1.Range("A1").CopyFromRecordset rsPubs

' Tidy up
.Close
End With

cnPubs.Close
Set rsPubs = Nothing
Set cnPubs = Nothing

التحقق من أن التعليمات البرمجية تعمل

  1. تشغيل التعليمات البرمجية.
  2. قم بالتبديل إلى Excel وتنظر الورقة 1 في المصنف لعرض البيانات.

استكشاف الأخطاء وإصلاحها

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

المراجع

يمكنك العثور على تعليمات برمجية عينة إضافية بالبحث في موقع Microsoft التالي على الويب:

خصائص

رقم الموضوع: 306125 - آخر مراجعة: 18‏/01‏/2017 - المراجعة: 1

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition

تعليقات