تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ربط الاكسل بالفيجوال بيسك 6
#1
هل ممكن استيراد او ربط قاعدة بيانات من نوع اكسل الى برنامج الفيجوال 6 او لايمكن ذلك , و لابد من تحويلها الى الاكسيس وبعد ذلك ربطة بالفيجوال


ارجوء التوضيح وشكراً لكم
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- يمكنك ذلك , وذلك بواسطة مكتبة الـADO كما في الأكسس , فقط تغير جملة الإتصال , وبدل إسم الجدول ضع إسم الـSheet حيث تعتبر كجدول , وهذا كود الإتصال بملف إكسل Book.xls :

كود :
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset

DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\Book.xls" & ";" & _
        "Extended Properties=""Excel 8.0;HDR=" & _
        "No" & """"
        
DB.CursorLocation = adUseClient

RS.CursorLocation = adUseClient
RS.Open "[Sheet1$]", DB, adOpenDynamic, adLockOptimistic

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: ناجي إبراهيم , abulayth
#3
شكرا لكم جميعا ادارة واعضاء
اخي الكريم VB_Coder
منذ زمن وانا ابحث على طريقة صحيحة وناجحة لعمل ربط الاكسل بالفيجول بيسك ولكني عجزت --- علما المطلوب ربط فاتوره معمولة على شيت اكسل 2007 وبحاجة الى ان امليها من خلال الفيجول بيسك 6 -- ارجو من حضرتكم ارفاق مثال على هذا الامر وسوف اكون شاكرا وممتنا كثيرا
عبدالرحمن
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم