[محمد مسافر]

هل ممكن استيراد او ربط قاعدة بيانات من نوع اكسل الى برنامج الفيجوال 6 او لايمكن ذلك , و لابد من تحويلها الى الاكسيس وبعد ذلك ربطة بالفيجوال


ارجوء التوضيح وشكراً لكم

[VB_Coder]

السلام عليكم

- يمكنك ذلك , وذلك بواسطة مكتبة الـ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

- تحياتي .

[ملك الوورد]

شكرا لكم جميعا ادارة واعضاء
اخي الكريم VB_Coder
منذ زمن وانا ابحث على طريقة صحيحة وناجحة لعمل ربط الاكسل بالفيجول بيسك ولكني عجزت --- علما المطلوب ربط فاتوره معمولة على شيت اكسل 2007 وبحاجة الى ان امليها من خلال الفيجول بيسك 6 -- ارجو من حضرتكم ارفاق مثال على هذا الامر وسوف اكون شاكرا وممتنا كثيرا
عبدالرحمن