ادخال قيمة الى حقل في قاعدة البيانات

[jeanjamil]

كود :

begin   Table1.DisableControls     try        Table1.First         while not Table1.Eof do         begin           Table1.Edit           Table1.FieldByName('test').Value:=Edit1.Text           Table1.Post           Table1.Next         end     finally        Table1.EnableControls end

طبعا مع الفواصل المنقوطة نهاية الاسطر