10-11-2016, 11:06 PM
السلام عليكم ...
ارجو مراجعة الكود الاتي .. لاني اول مره استخدم الحلقات هذا الاستخدام و شاكك في استخدام المتغير (I) ...
طبعا انا من المبتدئين في استخدام البرمجة ....لذلك وحده وحده علي ...
جزاكم الله خيرا
ارجو مراجعة الكود الاتي .. لاني اول مره استخدم الحلقات هذا الاستخدام و شاكك في استخدام المتغير (I) ...
طبعا انا من المبتدئين في استخدام البرمجة ....لذلك وحده وحده علي ...
جزاكم الله خيرا
كود :
procedure TForm6.Button1Click(Sender: TObject);
var
I:Integer;
begin
For I:=1 To 12 Do
begin
with form1.ADOQuery1 do
Begin
Close;
SQL.Clear;
SQL.Add('Insert Into Elag[I] Select no,'','','','p' From ');
SQL.Add('kesm Where No Not In (Select No From Elag[I]) ');
ExecSQL;
ShowMessage('OK');
end;
End;
End;