19-10-13, 12:08 PM
هل ممكن استيراد او ربط قاعدة بيانات من نوع اكسل الى برنامج الفيجوال 6 او لايمكن ذلك , و لابد من تحويلها الى الاكسيس وبعد ذلك ربطة بالفيجوال
ارجوء التوضيح وشكراً لكم
ارجوء التوضيح وشكراً لكم
19-10-13, 12:08 PM
22-10-13, 05:09 AM
السلام عليكم
- يمكنك ذلك , وذلك بواسطة مكتبة الـADO كما في الأكسس , فقط تغير جملة الإتصال , وبدل إسم الجدول ضع إسم الـSheet حيث تعتبر كجدول , وهذا كود الإتصال بملف إكسل Book.xls :
- تحياتي .
- يمكنك ذلك , وذلك بواسطة مكتبة الـ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- تحياتي .
11-11-13, 11:02 PM
شكرا لكم جميعا ادارة واعضاء
اخي الكريم VB_Coder
منذ زمن وانا ابحث على طريقة صحيحة وناجحة لعمل ربط الاكسل بالفيجول بيسك ولكني عجزت --- علما المطلوب ربط فاتوره معمولة على شيت اكسل 2007 وبحاجة الى ان امليها من خلال الفيجول بيسك 6 -- ارجو من حضرتكم ارفاق مثال على هذا الامر وسوف اكون شاكرا وممتنا كثيرا
عبدالرحمن
اخي الكريم VB_Coder
منذ زمن وانا ابحث على طريقة صحيحة وناجحة لعمل ربط الاكسل بالفيجول بيسك ولكني عجزت --- علما المطلوب ربط فاتوره معمولة على شيت اكسل 2007 وبحاجة الى ان امليها من خلال الفيجول بيسك 6 -- ارجو من حضرتكم ارفاق مثال على هذا الامر وسوف اكون شاكرا وممتنا كثيرا
عبدالرحمن