Bloquear Usuarios Oracle Desde Delphi

[rrosariom]

Buenos Día a todos,

Tengo que hacer una aplicación para bloquear y desbloquear usuarios en una base de datos Oracle desde delphi.

Tengo el siguiente código:

var xbusca:string;
begin
case RadioGroup2.ItemIndex of 0:
begin
xbusca:=inputbox('Introduzca el nombre de usuario','Introduzca el Nombre de Usuario','');
if xbusca='' then exit;
form1.ADOQuery1.SQL.Clear;
FORM1.ADOQuery1.Close;
adoquery1.SQL.Add('alter user ' + xbusca + ' account lock');
ADOQuery1.Open;
if adoquery1.recordcount = 0 then
showmessage('El usuario consultado no existe o está mal escrito');
end
end

El proceso me compila bien, pero cuando entro el usuario a bloquear me presenta el siguiente error:

ADoquery1: commandtext does not return a result set

Por favor necesito de ayuda...

[Al González]

Hola, echa un vistazo a esto: http://www.clubdelphi.com/foros/showpost.php?p=446448&postcount=6 :)

[cloayza]

Y el uso de las etiquetas???.


var xbusca:string;
begin
case RadioGroup2.ItemIndex of 0:
begin
xbusca:=inputbox('Introduzca el nombre de usuario','Introduzca el Nombre de Usuario','');
if xbusca='' then exit;
form1.ADOQuery1.SQL.Clear;
FORM1.ADOQuery1.Close;
adoquery1.SQL.Add('alter user ' + xbusca + ' account lock');
ADOQuery1.Open;
if adoquery1.recordcount = 0 then
showmessage('El usuario consultado no existe o está mal escrito');
end
end


...MODERADOOOOOOOOOOOOOOOOOOOR..

[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.