سؤال عن كيفية ربط ال FlexGrid بقاعدة بيانات أكسس

السلام عليكم

بالنسبة للسؤال الاول :

بافتراض ان لدينا جدول باسم "Tbl_FLXGRD" و به الحقول التالية :

( Address-Name-num)

Private Sub Form_Load()
Set rs = db.OpenRecordset("Tbl_FLXGRD", dbOpenTable)
'


MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "الرقم"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "الاسم"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "العنوان"

End Sub

و اذا كان لدينا زر امر

Private Sub Command1_Click()
Set rs = db.OpenRecordset("Tbl_FLXGRD", dbOpenTable)
If rs.RecordCount < 1 Then Exit Sub
n = rs.RecordCount

MSFlexGrid1.Rows = n + 1
For i = 1 To n
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = rs!num
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = rs!Name
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = rs!Address
rs.MoveNext
Next i
End Sub

اقتباس

هل من الممكن أن تقتصر بيانات جدول الـ FlexGrid على بيانات معينة من جدول في قاعدة البيانات دون البعض الآخر ؟ .

اذا كنا نريد ان نعرض بيانات شخص بناءاً علي رقمه مثلا :

ضع زر امر و صندوق نص و في زر الامر اكتب الاتي:

Private Sub Command2_Click()
Set rs = db.OpenRecordset("Tbl_FLXGRD", dbOpenTable)
SQL = "select * from Tbl_FLXGRD where num =  " & Text1.Text & " "
Set rs = db.OpenRecordset(SQL, 2)
If rs.RecordCount < 1 Then Exit Sub
rs.MoveFirst
n = rs.RecordCount
MSFlexGrid1.Rows = n + 1

For i = 1 To n
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = rs!num
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = rs!Name
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = rs!Address
rs.MoveNext
Next i
End Sub

أخي organic

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

هناك مثال شامي عن الداتا جريد والفليكس جريد معلش لو تبحث عن في الصفحات التالية سيكون مفيد إن شاء الله

مشكورين زملائي الأفاضل ( الأخ إبراهيم الطيب ، الأخ nasser50001

وجزيتم خير الجزاء

شرح رائع أخي ابراهيم الطيب

تصدق بالله وكأني ارى هذه المشاركة لأول مرة رغم اني شاركت فيها

سبحان الله

السلام عليكم

الأخ "organic" العفو لم نفعل اي شي

دا انت الرائع ياخبيرنا , وبطل مجاملات والا .....

:)