الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجو المساعدة

مغلق
بدأه اهداء في 21 أغسطس 2004 · 6 رد · 773 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

قمت بعمل قاعدة بيانات فى اكسس . وعملت مشروع فى الفيجوال بيسك وضعت فيه مربعات النصوص والعناوين وازرار الاوامر (حزف,حفظ,بحث,تعديل,اضافة) ووضعت فيه الاداةData قمت فى البداية بفتح قائمة بروجكت واخترت منها ريفرنس ومن مربع الحوار اخترت Microsoft DAO 3.6 Object libarary ثم قمت بكتابة الكود فى جينرال

Dim db As Database

Dim rs As Database

ثم اضفت الكود التالى فى تحميل الفورم

Set db=Open Database(App.Path &"\Employee.mdb

Set rs=db.OpenRecordSet("Employee.mdb

وقبل ان افرغ من كتابة الكود ظهر لى مربع رسالة (Expected:Expression)مع التظليل على كلمة Openومربع الرسالة الثانى (Expected: List Separator Orومربع رسالة آخر(Expected:end of statementمع التظليل على كلمةEmployeeوهى اسم قاعدة البيانات التى انشأتها فى الاكسس

ادخلت الاداة Dataوقمت بتحديد الجداول من خلال الخصائص كالاتى :

من خلال DatabaseName وفى مربع الحوار اخترت مستندات واخترت قاعدة بياناتى المخزنة هناك والتى اسمها Employeeوعندما قمت بالضغط على خاصية RecordSourceظهر لى مربع رسالة Unrecognized database format'C:\MyDocument\Employee.mdb

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

#2

لماذا لم تردوا على؟

#3

السلام عليكم

اولا عن طريق الاداة Data لايمكن ربط قاعدة بيانات اكسس 2000 او XP يعني فقط قاعدة بيانات 97 ويمكنك التحويل من 2000 أو XP الي قاعدة بيانات 97 .

ولكن اذا اردت ربط قاعدة بيانات 2000 أو XP عن طريق المكتبة التالية : من Refrence

Microsoft ActiveX Data Object 2.5 او اي اصدار أخر (ADO )

ثانيا هذا خطأ

Set db=Open Database(App.Path &"\Employee.mdb
Set rs=db.OpenRecordSet("Employee.mdb

التصحيح

Set db= DBengine.OpenDatabase(App.Path & "\Employee.mdb")
Set rs=db.OpenRecordSet("Employee.mdb")

وهذا الكود أعلاه للتعامل مع قواعد بيانات 97

تحياتي

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#4

أخي الكريم.. السلام عليكم

لربط قاعدة بيانات من النوع Access مع أداة Data Control يجب عليك تحويل القاعدة من الاصدار 2000 او الاصدار 2002 إلي الاصدار 97.. والحل هو.. اختر من قائمة ادوات .. ادوات مساعدة لقاعدة البيانات.. تحويل قاعدة بيانات الى اصدار سابق.. وقم بحفظها في ملف بنفس الاسم او اي اسم اخر .. واستخدم هذه القاعدة الجديدة (ذات الاصدار السابق 97) بداخل برنامج Visual Basic.. واجعل الاولى (الاصدار الحديث) كملف احتياطي اذا احتجت للتعديل بتصميم القاعدة.. حيث انه لا يصلح التعديل بالقاعدة المحولة لاصدار سابق..

ولاحظ انك قمت بربط الاداة Data ولا دور للاداة Dao التي قمت بادراجها..

وكنصيحة اخير لا تستخدم الاداة DAO.. لانها قديمة ومعقدة وبطيئة بعض الشئ.. واستخدم الاداة Data Control.. وعندما تتقدم في المستوي قليلا يمكنك التغيير إلي ادوات اخري..

جرب.. واتابعك

وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ

موقع رائع للقرآن الكريم والتدريب على الحفظ

#5

السلام عليكم

هذه مثال بسيط و اتمني ان يفي بالغرض

ابراهيم الطيب

الخرطوم

DBConnection.rar

gaza3-3.jpg
#6

اشكركم على مساعدتى وقد قمت بتحويل قاعدة البيانات الى97 وفعلاً نجحت ولكن ظهرت لى مشكلة اخرى وهى عندما كتبت الكودData1.RecordSet.AddNew بالنسبة للاضافة ظهر لى مربع رسالة يقولNo Current Record لا افهم ماذا يجرى ارجو المساعدة؟

#7

ارجوكم ردوا على؟

هذا الموضوع مغلق.

مواضيع مشابهة