+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اضافة قيمة الى جميع حقول عمود (/showthread.php?tid=2780)
اضافة قيمة الى جميع حقول عمود - douina - 10-02-2011
ا[FONT=Impact][FONT=Arial]لسلام عليكم
أسعد الله أوقاتكم بكل خير
كيف أضيف قيمة الى جميع الحقول في سجل (Montant )
الصورة توضح المشكل
كود :
http://www10.0zz0.com/2011/02/10/19/173319975.jpgاضافة قيمة الى جميع حقول عمود - Lam.Abdeldjalil - 10-02-2011
و عليكم السلام و رحمة الله
مثال :
كود :
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;كود :
Update yourtable set montant = yourvalueاضافة قيمة الى جميع حقول عمود - kachwahed - 17-02-2011
يستحسن حماية مثل هذه الأسطر:
كود :
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];بالتوفيق.