ugezuz
17-03-2007, 23:05:54
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
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