hola!
Estoy empesando a hacer un programita que se conecta con una base de datos de Access 200, pero tuve que aprender primero a hacer la coneccion ADO sin datacontrol (lo que me consto un huevo :P), por ahoras solo voy haciendo la pantalla inicial donde tenes que poner el usuario y la contraseña, y tengo un problema. Cuando el usuario no existe, me tira un error de que el EOF y el BOF del Recordset son iguales a true y se me cierra (Error '3021' en tiempo de ejecucion). Como puedo hacer que rire un cartelito de que el usuario no existe. Pongo el codigo:
Código:
Dim Data As New ADODB.Connection
Dim Clave As New ADODB.Recordset
Private Sub Command1_Click()
With Clave
.ActiveConnection = Data
.Open ("SELECT * FROM Users WHERE User='" & Text1 & "'")
End With
If Clave!Clave = Passwd Then
MsgBox "Contraseña Correcta!"
ElseIf (Clave.BOF = True) And (Clave.EOF = True) Then
MsgBox "Usuario Inexitente"
Else
MsgBox "Contraseña Incorrecta"
End If
Clave.Close
End Sub
Private Sub Form_Load()
Data.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\" & "prueba.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=ado"
Data.Open
End Sub
probe haciendo ese if, pero no funcionó, me sigue tirando un error que me cierra el programa.
la segunda pregunta es: ¿Como puedo hacer para que al escribir la contraseña no se vea lo que se esta escribiendo? osea, que se vea algo tipo "*******"
Gracias!