+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تنفيذ شرط سيكويل open or execute (/showthread.php?tid=11349)
تنفيذ شرط سيكويل open or execute - jeanjamil - 03-05-2021
السلام عليكم
كيف اجعل اوامر sql
Open او exectutesql
في نفس الزر دون مشاكل
Return result use select الخ
اي اذا لم اكتب select تنفذ executesql والعكس
RE: تنفيذ شرط سيكويل open or execute - Mr.DOS - 04-05-2021
سلام عليكم
كود :
var Cmd: string;
begin
Cmd := LowerCase(Copy(Trim(Query.Sql.Text), 1, 6));
if Cmd = 'select' then
begin
Query.Open;
end
else
begin
Query.ExecSQL;
end;
end;RE: تنفيذ شرط سيكويل open or execute - أبو معاذ - 04-05-2021
(04-05-2021, 12:39 AM)Mr.DOS كتب : سلام عليكم
كود :var Cmd: string; begin Cmd := LowerCase(Copy(Trim(Query.Sql.Text), 1, 6)); if Cmd = 'select' then begin Query.Open; end else begin Query.ExecSQL; end; end;
فكرة رائعة ،
بارك الله فيك.