طريقة نسخ قاعدة بيانات Access الى ملف Excel بأستخدام جملة sql

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

طريقة نسخ قاعدة بيانات Access الى ملف Excel بأستخدام جملة sql

مُساهمة من طرف م/موسي في الخميس سبتمبر 19, 2013 10:11 pm

بسم الله الرحمن الرحيم 

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

الرمز:
SELECT * INTO [Excel 8.0;Database=C:\Test.xls].[Books] FROM Books
حيث أن :

_ Excel 8.0 هو رقم اصدار مصنف الاكسل و يستخدم هذا الرقم أذا كان ملف الاكسل الذى تود نسخ البيانات الية اصدار 97 حتى 2003 ...أما اذا كنت ستستخدم أى اصدار ابتداء من 2007 فما فوق فيجب استخدام الرقم Excel 12.0

_C:\Test.xls مسار مصنف إكسل المراد الاتصال به مع تحديد امتداد المصنف xls حتى اصدار 2003 أما اذا كان 2007 فما فوق فإن الامتداد هو xlsx

_ [Books] هو أسم الشيت أو spreadsheet المراد النسخ الية

_ أما Books هو قاعدة البيانات التى سيتم نسخ محتوايتها .....و يتم استخدام الكود على النحو التالى :

الرمز:
Private Sub cmdLoad_Click()
Dim cnSrc As New ADODB.Connection
Dim num_copied As Long

    Screen.MousePointer = vbHourglass
    DoEvents
    
    cnSrc.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & txtAccessFile.Text & _
        ";"
    cnSrc.Execute "SELECT * INTO [Excel 8.0;" & _
        "Database=" & txtExcelFile.Text & "].[Books] FROM Books", num_copied
    cnSrc.Close

    Screen.MousePointer = vbDefault
    MsgBox "Copied " & num_copied & " records."
End Sub

أتمنى ان يكون الدرس مفيد ....تحياتى لكم

م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 130
النقاط : 252
التقيم : 8
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: طريقة نسخ قاعدة بيانات Access الى ملف Excel بأستخدام جملة sql

مُساهمة من طرف م/موسي في السبت سبتمبر 21, 2013 5:54 pm


م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 130
النقاط : 252
التقيم : 8
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: طريقة نسخ قاعدة بيانات Access الى ملف Excel بأستخدام جملة sql

مُساهمة من طرف أبوسجود في الإثنين سبتمبر 23, 2013 2:05 pm


جزاك الله خيرا يا هندسة

أبوسجود
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: طريقة نسخ قاعدة بيانات Access الى ملف Excel بأستخدام جملة sql

مُساهمة من طرف NEXT في الخميس نوفمبر 21, 2013 8:22 pm

جزاك الله خيرا

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى