+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] ربط الاكسل بالفيجوال بيسك 6 (/showthread.php?tid=602)
ربط الاكسل بالفيجوال بيسك 6 - محمد مسافر - 19-10-13
هل ممكن استيراد او ربط قاعدة بيانات من نوع اكسل الى برنامج الفيجوال 6 او لايمكن ذلك , و لابد من تحويلها الى الاكسيس وبعد ذلك ربطة بالفيجوال
ارجوء التوضيح وشكراً لكم
RE: ربط الاكسل بالفيجوال بيسك 6 - VB_Coder - 22-10-13
السلام عليكم
- يمكنك ذلك , وذلك بواسطة مكتبة الـ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- تحياتي .
RE: ربط الاكسل بالفيجوال بيسك 6 - ملك الوورد - 11-11-13
شكرا لكم جميعا ادارة واعضاء
اخي الكريم VB_Coder
منذ زمن وانا ابحث على طريقة صحيحة وناجحة لعمل ربط الاكسل بالفيجول بيسك ولكني عجزت --- علما المطلوب ربط فاتوره معمولة على شيت اكسل 2007 وبحاجة الى ان امليها من خلال الفيجول بيسك 6 -- ارجو من حضرتكم ارفاق مثال على هذا الامر وسوف اكون شاكرا وممتنا كثيرا
عبدالرحمن