Foros Club Delphi - Sacar Info De Un Query....

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Sacar Info De Un Query.... (https://www.clubdelphi.com/foros/showthread.php?t=41527)

Sacar Info De Un Query....

HOLA BUENAS A TODOS....

QUISIERA SABER SI ALGUIEN ME PUEDE AYUDAR, PUES TENGO UN PROBLEMA CON ESTO:

IBTConectar.StartTransaction;
try
with IBQConsulta do begin
sql.Clear;
sql.Add('SELECT ID_USUARIO as ID FROM USUARIOS_SISTEMA US');
sql.Add('WHERE ((US.CODIGO =:CODIGOIN)AND(US.NOMBRE_APELLIDOS=:NOMBRE))');
ParamByName('CODIGOIN').AsString:= usuario;
ParamByName('NOMBRE').AsString:= codigo;
Open;
id_resultado:=Fieldbyname('ID').AsInteger;
end;
except IBTConectar.Rollback;raise;
end;

if (id_resultado <> 0)then
retorno:=True;

Result:= retorno;
end;
---////////////, eL PROBLEMA ESTA EN QUE NUNCA ME DEVUELVE NADA EN id_resultado, LA CONSULTA ESTA BIEN REALIZADA, PUES YO LA HAGO EN IBEXPERT Y ME DA EL RESULTADO QUE DEBE SER, PERO NO PUEDO SACAR ESE RESULTADO PARA ASIGNARLO-...

gRACIAS..

JESUS RUIZ .........HASTA SIEMPRE

Hola ugezuz!

Así a primera vista, creo que el error puede estar aquí:

Código Delphi [-]ParamByName('CODIGOIN').AsString:= usuario; // Aquí debe ir código
ParamByName('NOMBRE').AsString:= codigo; // Acá debe ir usuario

Probablemente estás enviando los parámetros en el orden incorrecto y por eso la consulta no te devuelve los que esperas.

Saludos

Huiy.... Y No Me Habia Dado Cuenta.. Esos Son Los Errores Que Me Hacen Perder Tiempo

Muchas Gracias-..--- De Corazon