طريقة استخدام datagrid فى الاكسيس

أخوانى الاعزاء

بداية انا بحثت عن طريقة عمل ذلك فى المنتدى سابقا و لم اجد حلا لذلك قمت بتجربة طرق كثيرة حتى وصلت لهذة الطريقة و اعتقد ان مشاركتها معكم مفيد لتطويرها و تحسينها و ارجو من مشرفى المنتدى مراجعتها و اعطائي النصائح اللازمة لتطويرها و شكرا

طريقة استخدام datagrid فى الاكسيس

ملحوظة : يفضل ان يكون الvisual studio 6 قد سبق انزالة على الجهاز

1- بداية قم بعمل جدولين و ليكن اسمهما table1 و الاخر table2 ثم قم بعمل حقلين فى الجدول table1 هما codepro و ذلك لتضع فية كود الصنف و اهتم بأن تجعلة مفتاح رئيسى و الحقل الثانى ليكن اسمة pro و اكتب بة اسم الصنف

2- فى الجدول table2 قم بعمل عدة حقول منها codepro و لاحظ ان يكون بنفس تنسيق البيانات فى الجدول الاول ثم اعمل حقل اخر اسمة F1_DATE للتاريخ

3- اخيرا قم بعمل علاقة بين الجدولين من خلال كود الصنف codepro

4- نقوم بالضغط على ايقونة more controls فى ال tool bar

ونختار الاداة .control 6 Data Grid Microsoft

5- اسحبها على الفورم و ستجد اسمها DataGrid0 ثم قم بالضغط على محرر لغة الفيجوال بيسك

Visual Basic, click Tools -> References...

ثم اختر Microsoft ActiveX Data Objects driver طبعا اختر الاصدار المناسب من مكتبة الado للأصدار الاوفيس الذى تقوم بأستخدامة مثلا كما فى الشكل التالى :

اضغط موافق ok

الان يمكنك استخدام الado فى الاتصال بقاعدة البيانات و استرجاع البيانات داخل اداة

الdata grid

اسحب button من الادوات و ضعة على الفورم

ثم اكتب داخلة الكود التالى

Private Sub Command1_Click()
 Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = CurrentProject.AccessConnection
       .Source = " SELECT table2.codepro, Table1.pro, table2.F1_DATE FROM Table1 INNER JOIN table2 ON Table1.codepro = table2.codepro;"
    
      .CursorType = adOpenKeyset
      .LockType = adLockOptimistic
     .Open
  End With
   rs.Requery
 Set Me.DataGrid0.DataSource = rs
End Sub

الان قم بتجربة الفورم و اضغط على الزر فستجد الداتا جريد يظهر بداخلها البيانات التى قمت بتخزينها فى الجدولين

و هناك ملف مرفق بالورد بة الشرح السابق

______________datagrid___________.rar