دخول

كمال زعطوط

السلام عليكم ...
ارجو مراجعة الكود الاتي .. لاني اول مره استخدم الحلقات هذا الاستخدام و شاكك في استخدام المتغير (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;

merzoug2020 · 12-11-2016, 10:24 AM

+'Insert Into Elag['+I]

**أبو معاذ**

(12-11-2016, 10:24 AM)merzoug2020 كتب : +'Insert Into Elag['+I]

أظن أنه يجب تحويل قيمة i إلى قيمة نصية

كود :
'Insert Into Elag['+INTTOSTR(I)+']'

كمال زعطوط · 12-11-2016, 01:30 PM

(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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة