delphi4arab منتديات دلفي للعرب

السلام عليكم
كيف اجعل اوامر sql
Open او exectutesql
في نفس الزر دون مشاكل
Return result use select الخ
اي اذا لم اكتب select تنفذ executesql والعكس

سلام عليكم

كود :
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;

(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;

فكرة رائعة ،
بارك الله فيك.

jeanjamil

Mr.DOS

أبو معاذ