ver una consulta SQL con los parametros remplazados por sus valores

[orfeo]

Hola, estoy usando DBE+Dbase
Les paso a contar que quiero...

Nesecito ver las consultas SQL de un Tquery con los parametros remplazados por sus valores, osea:

     query.sql.add('WHERE   dni=:dni');
     query.paramByName('dni').asInteger:=2345;
     query.open

luego quiero ver la consulta sql (query.sql) con el remplazo del parametro :dni por el numero 2345, es decir 'WHERE dni=:2345'.
Osea que quiero ver la Consulta va a hacia el servidor.

[jachguate]

me temo que esto no es posible, pues la sustitución se hace en el motor de base de datos, y no en el propio delphi.



disculpá la curiosidad... pero para que la queres "ver"??

[[Lepe]]

Hola a todos:

Como dice jachguate con parámetros nanai de la china como decimos por aqui, pero si no te importa hacerlo concatenando strings, puedes hacerlo así:

    query.sql.add('WHERE   dni= ' + (variable de dni ));

de esta forma si puedes ver la consulta enviada, grabandolo a un log, o bien si se ejecuta con el parametro /debug tu aplicacion, mostrarlo por pantalla o en otra ventana aparte.... En fin ya el método lo eliges tu.

Empezado por jachguate

disculpá la curiosidad... pero para que la queres "ver"??

Supongo que para localizar posibles errores en el SQL no??? (un parentesis abierto, que falte una coma, etc) si la consulta la armas en tiempo de ejecución, siempre es bueno ver el sql.text

Saludos.

[orfeo]

Si es lo que queria, queria tener lo mejor de los dos mundos.. (consultas en tiempo de ejecucion, poder usar parametros y luego ver el SQL remplazado para debuger)

Para que lo queria??
Me parace muy comodo poder usar parametros, hace los sql.add() mas claros (no me gusta poner sql.add('WHERE dni=' + intToSTR(variableDNI)).
Pero todo esto deja de tener claridad cuando en tiempo de ejecucion enpezas a intercalar 'if then' con sql.add() para no quere tener casi la misma consulta en dos o mas lugares distintos.
Entonces mi GRANN IDEA erra colocar en el:

     
try
    sql.add('gran consulta')

    open  
except
  on E:exception do
        errorSQL(E,sql);
end;

Y un hermoso formulario llamano por erroSQL me mostrara un memo con la consulta remplazada y tendria una grilla para ver el resultdo de la consulta cuando la repare, junto con otras cosas mas..

pero bueno, probare con otra forma...

Alguien a probado el rempazar substring (no recuerdo el nombre de pa funcion)? dentro del TStrings del query?
Debria andar bien, salvando los casos de como puede tomar los
' ' , " , la sustiucion de fechas y de float. (mas algun otro tipo de tipo que no me viene al mente ahora)

voy a ver si pruebo por ese lado...,
O mejor aun hacer la sustitucion del Query yo mismo, se supone que hay una lista de parametros con sus tipos y valores..

Pero por ahora segire buscando ',' , ';' y otras cosas tontas entre if anidados

[marcoszorrilla]

Yo para ver como queda el SQL antes de abrir la consulta hago:

ShowMessage(MiQuery.SQL.Text);

Un Saludo.

[marto]

Wop!

Hablo de memoria, pero, por lo menos en D6, creo que existe una función para reemplazar textos dentro de una string (creo que es ReplaceText). Puedes montarte una función como esta:

function SqlConParametros(AQuery: TQuery): String;
var
  i: Integer;
begin
  Result := AQuery.Sql.Text;
  for i : 0 to AQuery.Params.Count - 1 do
	Result := ReplaceText(Result, ':' + Params[i].ParamName,  Params[i].AsString);
end;

Nota:
No recuerdo si la propiedad que te da el nombre del parámetro se llama ParamName.
Si me ha fallado la memoria y no existe la función ReplaceText, no te costará mucho programarla.