09-07-2015, 03:45 AM
اخي الامر بسيط لكن اذا كان عدد السجلات كبير مثل 100 فالامر سيكول معك لكن هذا هو الكود
اضافة على كود الاخ حليم فقط
و افعل ماتريد
اضافة على كود الاخ حليم فقط
كود :
for I := 0 to ABSTable1.FieldCount-1 do
begin
ABSTable1.Append;
ABSTable1.FieldByName('date').Value:=dbedit1.Text;
ABSTable1.FieldByName('tim1').Value:=dbedit2.Text;
ABSTable1.FieldByName('taw1').Value:=dbedit3.Text;
ABSTable1.FieldByName('tim2').Value:=dbedit4.Text;
ABSTable1.FieldByName('taw2').Value:=dbedit5.Text;
ABSTable1.Post;
ADOquery1.Next;