Obtener la consulta sql que se ejecuta

[jhonny]

A ver quizá no entiendo ¿Lo que quieres es algo al estilo Sql Monitor?

[fdelamo]

Empezado por jhonny

A ver quizá no entiendo ¿Lo que quieres es algo al estilo Sql Monitor?

En mi caso si, aunque pborges36 quizá lo quiera desde el propio Delphi (algo así como el GetText, pero con los parametros sustituidos)

[fdelamo]

Se me ocurre hacer un parser ...

En el TQuery tenemos la Query, y los valores de los parametros ...

[pborges36]

El parser es como el Query1.Text?

[fdelamo]

Lo que quiero decir es que se puede hacer una funcion, que pasandole el TQuery, sustituya los ":miparametro1", ":miparametro2", ... por sus valores y te devuelva la query completa, pero eso si, habrá que tener en cuenta los tipos de los datos, para poner las comillas, el formato de fechas ...

[waly2k1]

Y por qué no lo ejecutas directamente ???
Algo así...
Query1.Sql.clear;
Query1.Sql.Text := 'insert into mitabla (campo1, campo2, campo3) values( ' + edit1.text + ', ' + edit2.text + ', ' + edit3.text + ' )';
Query1.ExecSQL;
Fijate los apóstrofes por los tipos de campos, pero en un insert creo no jode,
además así tenés la consulta real.
Espero te sirva, sino no dudes en dudar!!!. Saludos

[pborges36]

Lo que sucede es que en todo el proyecto he usado el TQuery pasandole parametros. Creo que lo que voy a hacer es lo que dijo Fdelamo:

Empezado por fdelamo

...se puede hacer una funcion, que pasandole el TQuery, sustituya los ":miparametro1", ":miparametro2", ... por sus valores y te devuelva la query completa...

Aun asi si alguien sabe como hacerlo de otra forma estaria agradecido. Gracias a todos. Saludos.

[[Lepe]]

Puesto que trabajas con parámetros, puedes estar seguro que las comas simples y etc no tendrán fallos en el sql, así que pasamos del tema jejeje.

Algo rápido:

Código Delphi [-]
procedure VerSentenciaSql(dt:TQuery);
var i:Integer;
    Sql:string;
    ReplaceTo:string;
begin
  sql := dt.SQL.Text;
  for i := 0 to dt.params.count - 1 do
  with dt.Params[i] do
  begin
    case datatype  of
      ftDate : ReplaceTo := FormatDateTime('dd/mm/yyyy',AsDAte);
      ftDatetime: ReplaceTo := FormatDateTime('dd/mm/yyyy hh:nn:ss', AsDAtetime);
      ftTime : ReplaceTo := FormatDateTime('hh:nn:ss', Astime);
    else
      ReplaceTo := AsString;
    end;
    sql := ReplaceText(sql, ':'+Name,  ReplaceTo);

  end;
  ShowMessage(sql);
end;