Saludos expertos, necesito ayuda para realizar mi botón que me permita entrar al programa, p builder
saludos cordiales expertos, necesito su ayuda urgente, estoy desarrollando un programa estoy principiando en esto, necesito que me ayuden a hacer funcionar mi botón de inicio de sesión, el código fuente que tengo es el siguiente:
string pass, login, usuario
select NOMBRE_DE_USUARIO,CLAVE
into :pass, :login from ADMINISTRADOR using (SQLCA);
if sle_usuario.text <> "" and sle_clave.text <> "" then
if sle_clave.text = pass then
login = sle_usuario.text
open(w_principal)
close (w_sesion)
else
messagebox("Advertencia","Usuario no encontrado")
sle_usuario.text = ""
sle_clave.text = ""
end if
else
messagebox("Advertencia","por favor ingrese sus datos")
end if
La tabla en la base de datos de sql 2005 se llama administrador, los campos son dos: NOMBRE_DE_USUARIO Y CLAVE. DESDE YA GRACIAS POR SU AYUDA