+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استخدام الحلقات في sql (/showthread.php?tid=8221)
استخدام الحلقات في sql - كمال زعطوط - 10-11-2016
السلام عليكم ...
ارجو مراجعة الكود الاتي .. لاني اول مره استخدم الحلقات هذا الاستخدام و شاكك في استخدام المتغير (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;RE: استخدام الحلقات في sql - merzoug2020 - 12-11-2016
+'Insert Into Elag['+I]
RE: استخدام الحلقات في sql - أبو معاذ - 12-11-2016
(12-11-2016, 10:24 AM)merzoug2020 كتب : +'Insert Into Elag['+I]
أظن أنه يجب تحويل قيمة i إلى قيمة نصية
كود :
'Insert Into Elag['+INTTOSTR(I)+']'RE: استخدام الحلقات في sql - كمال زعطوط - 12-11-2016
(12-11-2016, 11:12 AM)Unprogramme كتب :(12-11-2016, 10:24 AM)merzoug2020 كتب : +'Insert Into Elag['+I]
أظن أنه يجب تحويل قيمة i إلى قيمة نصية
كود :'Insert Into Elag['+INTTOSTR(I)+']'
صدقت و استفدت منك جدا بس هناك تعديل بسيط
'+(Insert Into Elag'+INTTOSTR(I