كيف أستطيع عمل زر لتحديث البيانات

الأخ hnhn

لو كنت تستخدم داتا كنترول فالأمر سهل

يتم التحديث للبيانات بإستخدام سطر واحد من الأوامر كالاتي

data1.refresh

و به يتم التحديث بإذن الله

السلام عليكم

أضيف إلى كود الزميل 1969 كود أقوى منه ويستعمل مع أي أداة للربط والاتصال مع قواعد البيانات..

DataName.RecordSet.Requery

أرجو أن يفي بالغرض بإذن الله

طبعا أنا أستخد أداة الربط ADo

ويتم الربط بين السجلات والأداة بالكود كما يلي

For x = 0 To 25
MsFlexGrid1.ColAlignment(x) = flexAlignCenterCenter
Next x
'
                  If rs.EOF = False Then
                     rs.MoveFirst
        Do While Not rs.EOF
i = i + 1
            MsFlexGrid1.Rows = i + 1
            For d = 0 To rs.Fields.Count - 1
               If Not IsNull(rs.Fields(d).Value) Then _
                      MsFlexGrid1.TextMatrix(i, d) = rs.Fields(d).Value
            Next d
             rs.MoveNext
            Loop
        End If
'

اذا كنت تستعمل الكود في تعبئة الفلكس قريد فتحديث البيانات لا يمكن ان يتم و الله أعلم إلا بكود أيضا و و يضاف الكود في كل زر من إزرار الإضافة و الحذف و التحرير و يضاف في نهاية كل كود منها و يتكون الكود من جزئيين

الجزء الأول تفريغ الفلكس قريد من البيانات

الجزء الثاني كود التعبئة للفلكس قريد و هو نفس الكود الذى استخدمته في تعبئة البيانات

هذا و الله إعلم