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
