• Viernes 29 de Marzo de 2024, 11:29

Autor Tema:  Loguear Usuario  (Leído 1488 veces)

eve26

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Loguear Usuario
« en: Jueves 8 de Noviembre de 2007, 16:40 »
0
Hola, porfavor quien pueda ayudarme lo que deseo hacer es lo siguiente en principio tengo mi ventana donde se ingresa el nombre de usuario y contraseña; he creado mi BD y mi tabla usuario, aparte tambien he creado un procedure:

create procedure sp_login(@usuario varchar(4),@clave varchar(4),@salida integer OUTPUT)
as if exists(select nro_registro,nom_usu from usuario
where nro_registro=@claveand and nom_usu=@usuario and output = @salida)
set @salida = 1
else @salida = 0;
aqui me bota error ......... near set =.......

bueno en la ventana codifique lo siguiente:

string usuario,clave
integer salida
usuario = string(sle_usu.text)
clave = string (sle_pass.text)
declare sp_login procedure for sp_login (:usuario, :clave), :salida output;
Using SQLCA;
execute sp_login;
Fetch sp_login into :salida;
close sp_login;

if salida then
    messagebox("Usuario","Bienvenido al Sistema!!!")
 open (w_admiusu)
else
  messagebox("Error", "PRUEBA OTRA VEZ")


pero no me funciona...porfavor quien pueda ayudarme le estare muy agradecida....PD la conexion a la base de datos es OK..
end if