10/02/2004, 15:08
|
 | | | Fecha de Ingreso: octubre-2003
Mensajes: 381
Antigüedad: 21 años, 5 meses Puntos: 0 | |
| Un formulario con dos cajas de texto y un botón. En el click del botón:
*******************************************
'Defino la consulta
Gado_rec_tmp.Source = "SELECT usu, pass FROM tabla WHERE LCASE(usu) = '" & LCase(txtUsu.Text) & "'" _
& " AND pass = '" & txtPass.Text & "'"
'Abro el recordset
Gado_rec_tmp.Open
'Si ha encontrado el registro
If Gado_rec_tmp.RecordCount > 0 Then
'Lo que sea
Else
'Mensaje y salir
End If
*******************************************
Aquí estoy utilizando ADO.
Un objeto recordset que hace la consulta sobre un objeto conection.
Saludos
Pablo |