DELPHI + QUERY

Question

Estou criando uma funçao em delphi para executar comandos Sql, porem preciso criar uma query em tempo de execução porem quando conecto ele da violação.
Como posso criar uma Query e conectar em tempo de execução?

William · Answer

Por gentileza poste seu código!...

Junior Delphi · Answer

Resolvido
procedure TFrmPadrao.ExecSQL(sql: String);
var Query: TADOQuery;
begin
Query := TQuery.Create(Self);
Query.Connection := Frm_Principal.DB_Mecanica;
Query.Connection.Connected;
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(sql);
Query.ExecSQL;