طريقة نسخ قاعدة بيانات Access الى ملف Excel بأستخدام جملة sql
صفحة 1 من اصل 1 • شاطر
طريقة نسخ قاعدة بيانات Access الى ملف Excel بأستخدام جملة sql
بسم الله الرحمن الرحيم
طريقة بسيطة و مختصرة لنسخ محتويات قاعدة بيانات أكسس الى ملف أكسل ....وذلك بأستخدام جملة الاستعلام البسيطة التالية :
_ Excel 8.0 هو رقم اصدار مصنف الاكسل و يستخدم هذا الرقم أذا كان ملف الاكسل الذى تود نسخ البيانات الية اصدار 97 حتى 2003 ...أما اذا كنت ستستخدم أى اصدار ابتداء من 2007 فما فوق فيجب استخدام الرقم Excel 12.0
_C:\Test.xls مسار مصنف إكسل المراد الاتصال به مع تحديد امتداد المصنف xls حتى اصدار 2003 أما اذا كان 2007 فما فوق فإن الامتداد هو xlsx
_ [Books] هو أسم الشيت أو spreadsheet المراد النسخ الية
_ أما Books هو قاعدة البيانات التى سيتم نسخ محتوايتها .....و يتم استخدام الكود على النحو التالى :
أتمنى ان يكون الدرس مفيد ....تحياتى لكم
طريقة بسيطة و مختصرة لنسخ محتويات قاعدة بيانات أكسس الى ملف أكسل ....وذلك بأستخدام جملة الاستعلام البسيطة التالية :
- الكود:
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
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة :
الجنس :
م/موسي- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة :
الجنس :
رد: طريقة نسخ قاعدة بيانات Access الى ملف Excel بأستخدام جملة sql
جزاك الله خيرا يا هندسة
أبوسجود- ......
- تاريخ التسجيل : 18/02/2011
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس :
رد: طريقة نسخ قاعدة بيانات Access الى ملف Excel بأستخدام جملة sql
جزاك الله خيرا
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft