Mostrar consulta SQL con parámetros
 

Buen día a todos y gracias por tomarse el tiempo para leer mi pregunta.

Antes de hacer la pregunta busqué pero no encontré cómo poder ver mi consulta SQL con parámetros.

Tengo esta consulta en código delphi:

Código Delphi [-]
Query.Close;
Query.Clear;
Query,SQL.Add(' INSERT INTO ventas (folio, fecha, clave, producto) ');
Query.SQL.Add(' VALUES (:folio, :fecha, :clave, :producto) ');
Query.ParamByName('folio').AsInteger      := '1'; 
Query.ParamByName('fecha').AsString      := '2021-08-31';
Query.ParamByName('clave').AsString      := 'AB001';
Query.ParamByName('producto').AsString := 'Azúcar';
Query.Prepared := true;
Query.ExecSQL;

Si hago un:

Código Delphi [-]
ShowMessage(Query.SQL.text);

Me muestra la consulta de la siguiente manera:

Código SQL [-]
INSERT INTO ventas (folio, fecha, clave, producto) VALUES (:folio, :fecha, :clave, :producto)

Y yo quisiera ver la consulta así:

Código SQL [-]
INSERT INTO ventas (folio, fecha, clave, producto) VALUES (1, '2021-08-31', 'AB001', 'Azúcar')

Cómo puedo lograr esto ?

No usando parámetros.
Pero es mejor usar parámetros.
Depende de la base de datos que estés usando, puedes ver las sentencias que ejecuta la misma.

Siempre puedes construir tú mismo un procedimiento que haga eso.

Hola


Solo una observacion. Si haces Query.ParamByName('folio').AsInteger ¿Porque envias el valor entrecomillado? ¿No te da error ahi?

Me confunde tu respuesta :D ...

Entiendo que no es posible entonces. Estoy usando ZeosLib y MySQL.

Gracias por responder. Saludos.

Pensé en hacerlo pero no quería reinventar la rueda :) , pensé que algo ya había para ver la consulta SQL.

Enviaré los parámetros como argumentos a una función se me ocurre.

Les comento que esto que quiero hacer es para guardar en una tabla la consulta ejecutada.

Si tienes razón causa error, una disculpa hice el ejemplo al momento de formular mi pregunta.

Solo era para ejemplificar :) . Saludos.

Lo que quiero decir es que algunas BD lo permiten y otras no, desconozco si con MySql se puede.

Precisamente, con Firebird puedes hacerlo, todas las sentencias sql puedes ir viéndolas, guárdandolas en una tabla o como quieras.

Sigo investigando y encontré que en MySQL si cambiamos los valores de las variables log_output y general_log las consultas realizadas podemos verlas en la base de datos mysql en la tabla general_log.

Estos son los pasos:

Código SQL [-]
SET GLOBAL log_output = 'TABLE';
SET GLOBAL general_log = 'ON';

Se me ocurre que cuando haga una consulta SQL inmediatamente vaya a esa base de datos y de esa tabla tome la ultima consulta ejecutada para guardarla en mi base de datos y en mi tabla.

Las preguntas que me surgen son:

Está bien hacer eso ?
Es seguro ?
Es una buena manera de hacer las cosas o debería hacer mi propia función o procedimiento ?
Que problemas futuros puedo encontrarme ?

Ahi mismo en tu ejemplo esta la solucion. Recorre los params del objeto y los imprimes "debajo" del sql o haces una substitucion. Un tip si quieres hacer reemplazo: Ordena los nombres de mayor a menos y reemplazas, no lo hagas directo, asi no te saldran problemas si un param es menor a otro (como "var" y "variable")

Agradezco mucho tu respuesta. No sé hacerlo pero lo voy a investigar y hacerlo hasta que lo logre.

Saludos y de nuevo gracias.

Como ya te han recomendado es posible que la mejor opción para tí sea utilizar el propio log de Mysql que como leo estas investigando, o hacerte una función que recorra los parámetros de la query y los sustituya por el valor.


De todas formas basándome en tu ejemplo, algo rápido para salir del paso y desde luego nada reutilizable puede ser algo de este estilo:

Código Delphi [-]
Query.Close;
Query.Clear;
strInsert := ' INSERT INTO ventas (folio, fecha, clave, producto) ';
strValuesAUtilizar := ' VALUES (:folio, :fecha, :clave, roducto) ';

Query,SQL.Add(strInsert);
Query.SQL.Add(strValuesAUtilizar);
Query.ParamByName('folio').AsInteger      := 1; 
Query.ParamByName('fecha').AsString      := '2021-08-31';
Query.ParamByName('clave').AsString      := 'AB001';
Query.ParamByName('producto').AsString := 'Azúcar';
Query.Prepared := true;
                                                          
strValuesParaLog := format(' VALUES (%d, %s, %s, %s) ',  [Query.params[0].asInteger,
                                                          quotedstr(Query.params[1].asstring),
                                                          quotedstr(Query.params[2].asstring),
                                                          quotedstr(Query.params[3].asstring)]);                                                          
Query.ExecSQL;                                                            
showmessage(strInsert + #13 +strValuesParaLog);

Yo tengo esta (no es mía sino de un compañero):

Código Delphi [-]
   if query.sql.Text <> '' then
   begin
      consulta := stringReplace(query.sql.Text, #13#10, ' ', [rfreplaceall]);

      for i:= 0 to query.ParamCount-1 do
      begin
         try
            if query.Params[i].DataType = ftString then
                  consulta := stringReplace(sSql, ':'+ query.Params[i].Name, QuotedStr(query.Params[i].AsString), [rfreplaceall, rfIgnoreCase])
            else if query.Params[i].DataType = ftDateTime then
                  consulta := stringReplace(sSql, ':'+ query.Params[i].Name, QuotedStr(FormatDateTime('yyyy/mm/dd', query.Params[i].AsDateTime)), [rfreplaceall, rfIgnoreCase])
            else  consulta := stringReplace(sSql, ':'+ query.Params[i].Name, query.Params[i].AsString, [rfreplaceall, rfIgnoreCase]);
         except
            // Lo que quieras hacer si falla
         end;
      end;

      // Devuelves 'consulta' o lo grabas o lo que necesites
   end;

Otra opción es usar el monitor que tienen los componentes. En el caso de ZeosLib (no he usado esta suite) creo que el monitor es el TZSQLMonitor

Muchas gracias a ambos, con ayuda de los 2 pude hacer mi procedimiento:

Código Delphi [-]
procedure GuardaConsulta(Query: TZQuery; Conexion: TZConnection);
var
  QInsert          : TZQuery;
  FechaHora      : TDateTime;
  ConsultaSQL,
  VarTmp          : String;
  i                    : Integer;
begin
  // Cadena de consulta SQL
  ConsultaSQL := Query.SQL.Text;

  // Remplazamos los parámetros por sus valores
  for i := 0 to Query.Params.Count-1 do
  begin
    // Creamos el nombre del parámetro para remplazarlo
    VarTmp := ':'+Query.Params.Items[i].Name;
    if query.Params[i].DataType = ftString then
      ConsultaSQL := StringReplace(ConsultaSQL, VarTmp, QuotedStr(Query.Params.Items[i].Value), [rfIgnoreCase])
    else if query.Params[i].DataType = ftInteger then
      ConsultaSQL := StringReplace(ConsultaSQL, VarTmp, Query.Params.Items[i].Value, [rfIgnoreCase])
    else
      ConsultaSQL := StringReplace(ConsultaSQL, VarTmp, QuotedStr(Query.Params.Items[i].Value), [rfIgnoreCase]);
  end;

  // Insert del query
  QInsert := TZQuery.Create(nil);
  try
    //
    FechaHora := now();
    QInsert.Connection := Conexion;
    ReadySQL(QInsert);
    QInsert.SQL.Add(' INSERT INTO consultas_sql (query, fechahora) ');
    QInsert.SQL.Add(' VALUES('+ QuotedStr(ConsultaSQL) + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', FechaHora)) +')');
    QInsert.ExecSQL;
  finally
    //
    QInsert.Free;
  end;

end;

Muchas gracias movorack por el tip y a todos por sus respuestas. Saludos desde Puebla, México :)