[أبو خالد الشكري]

(27-12-21, 04:37 AM)سعود كتب :

شوف التعديل في الموديول

PHP كود :

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub Con_Data()
rs.CursorLocation = adUseClient
On Error Resume Next
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=; Data Source=" & App.Path & "\stu.mdb"
End Sub 


جزئيتان مهمتان هما:
استخدام كلمة set لضبط مصدر بيانات الـ DataGrid1
الاخرى ضبط المؤشر قبل فتح او تعبئة مصدر البيانات rs.CursorLocation = adUseClient

PHP كود :

   Set DataGrid1.DataSource = rs 


أشكرك جزيلا أستاذ سعود على الإضافة الرائعة التي جعلت أداة DataGrid تعمل
بصراحة ما قصرت ، هكذا أصبح البرنامج مكتملا لمن أراد معرفة كيفية التعامل مع قواعد بيانات VB6
أرجو لك التوفيق ، وأن تزداد معرفة أكثر وأكثر في عالم البرمجة ؛ كي نستفيد من علمك .
تحياتي الخالصة لك .

---

(27-12-21, 07:08 AM)Taha Okla كتب : السلام عليكم ورحمة الله وبركاته

مع تعديل بسيط بعد الاضافة المميزة التي قدمها الأخ - سعود
أظن بأن المشروع يصبح أفضل قليلاً، التعديلات هي:
1 - تعديل حقل رقم الهاتف ضمن قاعدة البيانات لحقل نصي (لأن الحقل الرقمي لن يخزن الاصفار والزائد على يسار رقم الهاتف).
2 - اضافة خاصية البحث بحسب الاسم، رقم الهاتف ... إلخ.
3 - تفعيل تحريك المؤشر على الـ DataGrid1 لـ يغير البيانات ضمن مربعات البيانات.
4 - حذف كلمة (DoEvents) لأن إن لم تكن ضمن حلقة تكرارية فلا فائدة منها..
5 - تعديلات على أمر الحذف.
6 - تعديلات على أمر التحديث.
7 - تعديلات على أمر الحفظ.

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

مرحبا بك أستاذ Taha Okla

حقيقة اللسان عاجز عن شكرك ؛ فأنت قدمت الكثير ؛ ليخرج البرنامج التعليمي إلى الشكل النهائي الرائع .
وإن إضافاتك الرائعة ، وكذلك التعديلات الجميلة التي أجريتها حضرتك في الجمل البرمجية جعلت البرنامج يعمل بكفاءة أكثر وأفضل مما كانت عليه .
أشكرك جدًا جدًا بحجم السماء على كل ما ساهمت به في البرنامج .

وأنا أيضا فقط أضفت ListBox وكذلك ComboBox لأنه قد يحتاجها بعض الأعضاء في مشاريعهم ولا يعرفون كيفية برمجتها !

الآن البرنامج انتهى واكتمل جميع أركانه ، والحمد لله في البداية والختام .

وستجمعنا مشاركات أخرى قادمة إن شاء الله ..

وعلى خير نلتقي إن شاء الله ،،، ومع السلامــــة

* أرفقت البرنامج بشكله النهائي بعد إضافتي للأداتين المذكورتين أعلاه !