DELPHI + QUERY
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?
Como posso criar uma Query e conectar em tempo de execução?
Junior Delphi
Curtidas 0
Respostas
William
01/12/2015
Por gentileza poste seu código!
GOSTEI 0
Junior Delphi
01/12/2015
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;
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;
GOSTEI 0