09-04-2018, 08:47 PM
السلام عليكم
ما سبب هدا الخطأ
ما سبب هدا الخطأ
PHP كود :
var
i : integer;
Begin
DM1.Source.close;
DM1.Source.open;
While Not DM1.Source.eof do // eof = End Of File
Begin
for i:= 0 to 4 do
with DM1.destination do
begin
Active:=False;
SQL.Clear;
SQL.Add('Insert into customer (id, FIRSTNAME,LASTNAME,CITY,COUNTRY)');
SQL.Add('Values (:b1 , :b2 , :b3 , :b4 , :b5)');
Params[i].Value := DM1.source.Fields[i].Value;
ExecSQL;
end;
DM1.source.next;
End;
بكاء العين يفضح وبكاء القلب يذبح والبكاء من خشيه الله يربح اللهم اجعلنا ممن يبكى من خشيتك


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)