Home      Articles archive       Forum        Library       Contact us
  Main Menu
  اللغة
  Log in
Username:

Password:

Remember me



Lost Password?

Register now!
  Search
  Article Topics
  Last Posts
  New Books
 
  This Page Visitors
Today 165
Yesterday 1728
Total 677827
  Site

Browsing this Thread:   1 Anonymous Users


Previous Topic Previous Topic   Bottom Bottom    Next Topic Next Topic
  Register To Post

ارجو مراجعة الكود الاتي
#1
مشترك
مشترك

See User information
السلام عليكم ...
ارجو مراجعة الكود الاتي .. لاني اول مره استخدم الحلقات هذا الاستخدام و شاكك في استخدام المتغير (I) ...
طبعا انا من المبتدئين في استخدام البرمجة ....لذلك وحده وحده علي ...
جزاكم الله خيرا

procedure TForm6.Button1Click(SenderTObject);
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;


Edited by عروة عيسى on 2016/11/12 21:20:24
Posted on: 2016/11/11 12:44
Print Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit Mr. Wong Report   Top

مساحة إعلانية

رد: ارجو مراجعة الكود الاتي
#2
Site Admin
Site Admin

See User information
المشكلة ضمن عبارة SQL
- كل ماهو ضمن علامتي التنصيص سيتم التعامل معه كنص فقط ,
اما عندما نتعامل مع المتحولات نستخدم معامل الجمع + الذي يصل النصوص ببعضها مثلا :
SQL.Add('Insert Into '+Elag[I]+' Select no,"","","",'+' From ');
      
SQL.Add('kesm Where No Not In (Select No From '+Elag[I]+') ');


- تظهر مشكلة باستخدام اشارة التنصيص المفردة ضمن نص يحوي اشارات تنصيص مفردة أيضا , فلن يستطيع مترجم البيئة معرفة اين بدأ النص واين انتهى لانه يميز النص عن طريق وضعه بين اشرات التنصيص ولايتوقع وجود إشارات تنصيص ضمن النص نفسه, للحل
اما نستخدم اشارة تنصيص مضاعفة بدل المفردة : "
او نستخدم إشارتي تنصيص مفردة وراء بعضها تترجم على انها اشاره واحده : مثلا ' it''s me'
يمكن بناء تابع يعيد نص ضمن اشارتي تنصيص كالتالي :
function QutedStr(sstring): string;
begin
  result 
:= '''' '''';
end;


او الحل الأفضل بأن نستخدم اسلوب البارامترات :
SQL.Add('Insert Into '+Elag[I]+' Select no,:s,:s,:s,:p From ');
      
SQL.Add('kesm Where No Not In (Select No From '+Elag[I]+') ');
      
ADOQuery1.Parameters.ParamByName('s').Value:='';
      
ADOQuery1.Parameters.ParamByName('p').Value:=p;

Posted on: 2016/11/12 21:38
Print Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit Mr. Wong Report   Top

    
You can view topic.
You cannot start a new topic.
You cannot reply to posts.
You cannot edit your posts.
You cannot delete your posts.
You cannot add new polls.
You cannot vote in polls.
You cannot attach files to posts.
You cannot post without approval.
You cannot use topic type.
You cannot use HTML syntax.
You cannot use signature.
You can create PDF files.
You can get print page.

[Advanced Search]






عروة نت 2003-2016 . بالاعتماد على زوبس