Bloquear Usuarios Oracle Desde Delphi

[rrosariom]

Buenas Tarde,

Gracias por la ayuda...

pude solucionar el problema.

Anexo el código para ayudar a la comunidad:

var xbusca:string;
begin
xbusca:=inputbox('Introduzca el nombre de usuario a Desbloquear','Introduzca el Nombre de Usuario a Desbloquear','');
if xbusca='' then exit;
with AdoQuery1 do
begin
active:=false;
SQL.Clear;
SQL.Add('alter user ' + xbusca + ' account unlock');
ExecSQL;
end;
showmessage('Usuario Desloqueado');
end;

[[Al González]]

Hola rrosariom.

Que bueno que lo solucionaste. ¿Podrías poner ese mismo código pero con su debido sangrado?

¡Muchas gracias!

Al.