Visual Basic - Ayuda urgente , por favor!!!

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda urgente , por favor!!!

Publicado por Romàn (8 intervenciones) el 01/10/2007 12:42:57
Hola amigos, necesito hacer un programa para mi escuela el cual tiene una base de datos en access. Yo lo que quiero saber es como compruebo que el usuario y la comtraseña es correcta , bueno si alguien me puede ayudar gracias , saludos
Les dejo el codigo que tengo , me da un error en .open

Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rsx As New ADODB.Recordset
Dim strsql As String
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = "G:\Programa\Base.mdb"
.Properties("User ID").Value = "x"
.Properties("Jet OLEDB:System Database").Value = ""
.Properties("Password").Value = ""
.Open
End With



'Cargo el ResulSet con los registros
strsql = "SELECT * FROM Base WHERE Contraseña='" & Text2.Text & "' AND username='" & Text1.Text & "'"
rsx.Open (strsql)

'Me fijo si es vacio el ResultSet
If Not rsx.BOF Then
'no es vacio
Else
'es vacio


End If

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda urgente , por favor!!!

Publicado por VICTOR (34 intervenciones) el 01/10/2007 21:55:10
HOLA

YO LO HARIA DE LA SIGUIENTE MANERA

strsql = "SELECT * FROM Base WHERE Contraseña='" & Text2.Text & "' AND username='" & Text1.Text & "'"
SET RSX= CNN.EXECUTE(STRSQL)
IF RSX.EOF=TRUE THEN
AVISO " NO SE ENCONTRO, USUARIO Y CONTRASEÑA"
EXIT SUB
ENDIF
RSX.CLOSE

SE CARGA EL PROGRAMA

ESPERO TE SIRVA , SALUD2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar