[سؤال] كيفة ربط قاعدة البيانات بالمشروع - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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) +---- الموضوع : [سؤال] كيفة ربط قاعدة البيانات بالمشروع (/showthread.php?tid=11602) |
كيفة ربط قاعدة البيانات بالمشروع - ghada abd elnabe - 05-03-15 السلام عليكم ورحمة الله الكود صح مائة بالمائة بس عندما اكتب مثل rs.recordset او rs.addnaw المفروض بمجرد انى اكتب ( . ) تظهر لى الاختيارت وانا اختر منها المشكلة ان مبتظهرش الاختيارت دى وايضا من ضمن المشاكل انى صممت قاعدة البيانات ب access وكتبت كود الربط بينها وبين المشروع ومع ذلك لما بفتح المشروع مبيفتحش القاعدة ياترى السبب اية هل من افادة مشكوين RE: كيفة ربط قاعدة البيانات بالمشروع - Ksa004 - 05-03-15 السلام عليكم ارفق المشروع ,ليتم التعديل عليه RE: كيفة ربط قاعدة البيانات بالمشروع - larbihamri - 05-03-15 اختي الكريمة يجب عليك اضافة مكتبة الادو وذلك من نافذة project ثم Reference Microsoft Active X Data Object 2.6 او فما فوق و العلم لله RE: كيفة ربط قاعدة البيانات بالمشروع - ghada abd elnabe - 06-03-15 اشكركم جدا جزاكم الله كل خير في الحقيقة ان بالفعل حاولت انى ارفع المشروع ليتم التعديل علية بس معرفتش RE: كيفة ربط قاعدة البيانات بالمشروع - ghada abd elnabe - 08-03-15 (05-03-15, 11:56 PM)larbihamri كتب : اختي الكريمة يجب عليك اضافة مكتبة الادو اخى الكريم جزاك الله كل خير وبعد انا فعلا ربط القاعدة بالمشروع عن طريق Microsoft DAO 3.6 Object Library اما بالنسبة لكود الربط كتبت set rsdb = opendatabase("pharmace.mdb set ghtb = rsdb.Recordset("المصروفات ") ومع ذلك مبيفتحش القاعدة اعمل اية ارجو الرد من فضلكم RE: كيفة ربط قاعدة البيانات بالمشروع - larbihamri - 08-03-15 حاولي ان تقومي بالخطوات كما قلت لك عن طريق مكتبة الادو اما عن طريق Microsoft DAO 3.6 Object Library و الله ما اعرف الطريقة و الكود كالتالي Private Sub Form_Load() With cn .Provider = "microsoft.jet.oledb.4.0" .CursorLocation = adUseClient .Open App.Path & "\pharmace.mdb" End With sql = "select*from x" x هنا تمثـــل الجــــــدول الــــذي تريديـــــن فتحـــــــــــــــه If rs.State = adStateOpen Then rs.Close End If rs.Open sql, cn, adOpenStatic, adLockOptimistic End Sub و الله اعلم |