| Presentación:
if objNegocio.AutentificarCliente(txtUsuario.text, txtClave.text) then
'SI TODO HA IDO BIEN
End If
Negocio:
private function AutentificarCliente(usuario as String, clave as String) as Boolean
'Aqui Accedes a la capa de Acceso a la BD.
'Haces la sentencia select y si la autentificación se hace bien, devuelves true
'Esta clase podrás usarla para clientes Forms, Webs y de todo
End Function
Espero haberte entendido y que este ejemplo te sirva.
Saludos.
__________________
Charlie. |