اجرای کد اسکیوال در دلفی

[benyaminrahimi]

اگر از مجموعه sdac یا unidac استفاده کنید با این کد میتونید هر چی خواستینو اجرا کنید.

procedure tpatern.runsql(acon: TUniConnection; afile: WideString);



var

  scer: TUniScript;

  i: Integer;

begin



  if acon.Connected = false then

    raiser('اتصال برقرار نيست');

  runner.Connection := acon;

  runner.SQL.Clear;

  runner.SQL.LoadFromFile(afile);

 Application.ProcessMessages;

  runner.Execute;

 Application.ProcessMessages;

end;