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

مشكلة مع قواعد البيانات،DAO،DBGrid،،،وو

مغلق
بدأه غير مسجل في 31 ديسمبر 2001 · 2 رد · 1,272 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

بعد التحية...

اقوم حاليا بتصميم برنامج قاعدة بيانات،، و واجهتني هذه المشكلة :

لدي اداة MicroSoft Data Bound Grid Control 5،،و استخدم ال DAO من خلال الكود..

حاولت عرض جميع محتويات جدول في الاداة عن طريق الآتي:

Set DB = DBEngine.OpenDatabase(DBPath)

Set SharerRS1 = DB.OpenRecordset("select * from [Sharer]”)

DBGrid1.DataSource = SharerRS1

حيث DBPath مسار قاعدة البيانات عندي... "لا تنسى تعريف DAO"

و الخطا الذي عندي هو:

Run-Time Error 430

Class does not support Automation or does not support expected interface.

ملاحظات:

فضلت استخدام ال DAO، لان البرنامج سيستخدمه جهاز واحد،لا احتاج الى شبكات،و واجهتني مشاكل كثير في ADO،،فيا حبذا لو كان الجواب حسب DAO،، و دمتم مع الشكر الجزيل..

اخوكم:محمد سعيد

#2

لي فترة على ال dbgrid ولكت فيما اعتقد حل مشكلت كا التاي

اضف اداة data control الي الفورم

وحدد فيها قاعدة البيانات

ومن تم غير الخاصية recordsource فيها الي الشرطك الى الشرط الذي تريد

ولا تنسى ان تربط الاداة dbgrid lu data control من الخاصية datasource اثنا وضع التصميم للفورم

واكتب الكود التالي فقط

data1.recordsource ="جملة الاستعلام المطلوبة"

data1.refresh

وجرب واخبرنا بالكود الصحيح

لك تحياتي

لا يتعلم العلم كل مستحي او مستكبر

#3

بعد التحية..

اشكر الشكر الجزيل لكل من قرا الموضوع و خاصة من حاول حل المشكلة "على الخصوص الاخ طارق موسى"..

ارسلت هذه الرسالة لتوي لان المشكلة انحلت عندي كما قال الاخ طارق.. و الطريقة هي الاتي:

1- بعد تعريف ال DAO و فتح قاعدة البيانات بها

2- وضعت مسار قاعدة البيانات المفتوحة(سابقا) في خاصية DatabaseName لل Data

3- وضعت جملة ال SQL في RecordSource لل Data

4- وضعت ال Data1 في الخاصية DataSource ل DBGrid

و الشفرة النهائية هي:

Dim Db As Database

'--------------------------

Set Db = OpenDatabase(DBPath, False, False, Password)

Data1.DatabaseName = DBPath

Data1.RecordSource = "select * from [tableName] where Feild1=1"

MSFlexGrid1.DataSource = Data1

و الشفرة نفسها تصلح ل MSFlexGrid ،،،، و بقية العائلة(جربت عدة منها)

قبل الختام اعود و اشكر كل من قرا الموضوع و خصوصا من حاول حل المشكلة

اخوكم:محمد سعيد

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

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