اضافة قيمة الى جميع حقول عمود

[douina]

ا[FONT=Impact][FONT=Arial]لسلام عليكم
أسعد الله أوقاتكم بكل خير
كيف أضيف قيمة الى جميع الحقول في سجل (Montant )
الصورة توضح المشكل

كود :

http://www10.0zz0.com/2011/02/10/19/173319975.jpg

[Lam.Abdeldjalil]

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

مثال :

كود :

ADOTable1.First; ADOTable1.DisableControls; while not ADOTable1.Eof do begin ADOTable1.Edit; ADOTable1.FieldByName('montant').Value:=edtMontant.text; ADOTable1.Post; ADOTable1.Next; end; ADOTable1.EnableControls;

يمكن أيضا إستخدام الـ sql (أسرع)

كود :

Update yourtable set montant = yourvalue

بالتوفيق

[kachwahed]

يستحسن حماية مثل هذه الأسطر:

كود :

ADOTable1.DisableControls; [COLOR=Blue]try [/COLOR] ADOTable1.First; while not ADOTable1.Eof do begin ADOTable1.Edit; ADOTable1.FieldByName('montant').Value:=edtMontant.text; ADOTable1.Post; ADOTable1.Next; end; [COLOR=Blue]finally [/COLOR] ADOTable1.EnableControls; [color=Blue]end[/color];

وإضافة Bookmark لاسترجاع الوضع السابق
بالتوفيق.