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

تعقدت كثيرا من عرض محتوى جدول على FlexGrid !

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

يا جماعه تعقدت كثيرا :( !!!

كنت في السابق عندما اريد عرض محتوى جدول ما على اداة جدول سواء كانت FlexGrid أو DataGrid كانت تتم العملية بدون مشاكل ... :)

أما الآن ، فأنا أواجه مشكله كبيرة جدا خربطتني كثيرا جدا ! :unsure:

هذا هو الكود الذي كتبته : :wacko:

Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset
     
    db.Provider = "Microsoft.Jet.OLEDB.4.0;"
    db.Open App.Path & "\Data.mdb"
    
    rs.Open "SELECT sName,sCity From tbAgent", db, adOpenStatic, adLockOptimistic
    
    Set MSFlexGrid1.DataSource = rs

وتظهر لي المشكله في السطر التالي : <_<

Set MSFlexGrid1.DataSource = rs

أي انه لا يمكنني عرض محتويات جدول او اي بيانات من قاعدة البيانات على الجدول بسبب الخطأ الذي لا اعرفه في الكود السابق :(

أرجو مساعدكم ، فقد عقدني هذا الكود كثيرا B)

#2

استخدم الأداة MSHflixgride أخي فنكشن وهي تنجح معاك إن شاء الله

#3

hi try this >>

& ask if u stop

welcome >>

don't forget definition DAO 3.6

PGS.zip

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل</span>

#4

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

أخى العزيز فنكشن

بخصوص الأداة داتا جريد لا توجد مشاكل لأنها تدعم البيانات بشكل مباشر وأكيد أنت لا تعانى معها

أما بخصوص الفليكس جريد فهناك نوعان منها MsFlexGrid و MSHFlexGrid - كما تعلم - ولكل واحد منها طريقة مختلفة فى الربط بالبيانات وهى:

إذا أردت MsFlexGrid :

لابد أولا أن تستخدم DAO

1- تضع أداة Data على النموذج

2- تربط خاصية DataSourse فى الجريد بهذه الأداة

3- تنقل الاستعلام للأداة داتا بالكود المألوف لديك وهو

Set Data1.RecordSource = rs

4- ولترى البيانات فى الجريد لابد من تنشيط الأداة داتا بكتابة Data1.Refresh

أما إذا أردت استخدام MSHFlexGrid :

فلن تعانى هذه الخطوات الأربع

لابد أن تستخدم ADO - ثم فقط ارسل الاستعلام للأداة بكتابة

Set MSHFlexGrid1.RecordSet= rs

وهذا كل شئ

والله المستعان

تم تعديل هذه المشاركة بواسطة abulyaman في 27 فبراير 2005 في 12:57

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#5

الأخ ناصر :

لقد كنت محتارا بين هاتين الاداتين والفرق بينهما ، وعندما طلبت مني استخدام MSHFlexGrid بدلا منها فهمت الأمر !! FlexGrid تستخدم مع DAO صح ؟

الأخت Power_Girl :

شكرا لك ولكني استخدم ADO وليس DAO .

الاخ abulyaman :

أشكرك على تعاونك معي ولكني استخدم ADO وهنا اكتشفت ان FlexGrid هي لـ DAO وأنا بدأت مع ADO ولا اريد الخوض في DAO .

مع التحيه لكم جميعا وشكرا لكم على حسن تعاونكم معي جميعا

#6

فقط أذكرك بما قلت لك

اقتباس
أما إذا أردت استخدام MSHFlexGrid :

فلن تعانى هذه الخطوات الأربع

لابد أن تستخدم ADO - ثم فقط ارسل الاستعلام للأداة بكتابة

Set MSHFlexGrid1.RecordSet= rs

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

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

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