Hola intenta cambiar esto:
Cita:
Empezado por CrystalBlood
IBSQL1.SQL := 'select PASSWORD_USUARIO from USUARIOS where COD_USUARIO = '+ codactual;
IBSQL1.ExecQuery;
.!!!
|
por esto:
Código Delphi
[-]IBSQL1.SQL.add( 'select PASSWORD_USUARIO from USUARIOS');
IBSQL1.SQL.add('where COD_USUARIO = '+ codactual);
IBSQL1.ExecQuery;
Espero que te sirva..