Hi.
I am trying to create a menu of choices, but when I run the script, it shows:
SQL> @C:\SQL1/choice.sql
MENU:
1: CREAR USUARIO
2: ELIMINAR USUARIO
3: DESBLOQUEAR USUARIO
4: SALIR
Ingresar opcion del 1-4: 1
Ingresar nombre de usuario: prueba
declare
*
ERROR at line 1:
ORA-00922: missing or invalid option
ORA-06512: at line 11
The script is:
set serveroutput on
set verify off
prompt MENU:
prompt 1: CREAR USUARIO
prompt 2: ELIMINAR USUARIO
prompt 3: DESBLOQUEAR USUARIO
prompt 4: SALIR
accept opcion prompt "Ingresar opcion del 1-4: "
accept username prompt "Ingresar nombre de usuario: "
declare
v_opcion number;
v_username varchar2(30);
v_statement varchar2(1000);
begin
v_opcion:=&opcion;
v_username:=upper('&username');
case
when(v_opcion=1) then
v_statement:='create user ' || v_username || 'identified by 123456';
execute immediate(v_statement);
dbms_output.put_line('Usuario creado con exito, su contraseña por defecto es 123456. Cámbielo!!!');
when(v_opcion=2) then
v_statement:='drop user v_username';
execute immediate(v_statement);
dbms_output.put_line('Usuario eliminado con exito');
dbms_output.put_line(v_statement);
when (v_opcion=3) then
v_statement:='alter user ' || v_username || 'account lock';
execute immediate(v_statement);
dbms_output.put_line('Usuario desbloqueado con exito');
when (v_opcion=4) then
dbms_output.put_line('Bye Bye');
else
dbms_output.put_line('La opción no se encuentra');
end case;
end;
/
exit