Visual Basic - AYUDA URGENTE

Life is soft - evento anual de software empresarial
   
Vista:

AYUDA URGENTE

Publicado por AXEL FERNANDO (2 intervenciones) el 15/07/2008 23:47:34
HOLA, COMO ESTAN,LA VERDAD SOY NOVATO EN LA PROGRAMACION DE VB6.0
ESTOY DESARROLLANDO UNA APLICACION PARA UN COLEGIO PERO QUIERO COLOCARLE UN FORM DONDE ME VALIDE USARIO Y CLAVE, LAS CUALES SE ENCUENTRAR DENTRO DE UNA TABLA DEL MDB.

ENCONTRE ESTE CODIGO PERO PARECE QUE LE FALTA ALGO EN PUES NOSE CUAL ES LA VARIABLE DEL RECORDSET NI COMO CREAR EL MISMO ALGUIEN DE CORAZON ME PUEDE AYUDAR CON ESTE CASO

RELACIONO EL CODIGO QUE TENGO;

Option Explicit

' Flag
Dim OK As Boolean

' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS )
Const C_CADENA = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "D:Bases de DatosSchoolsoftMdbSchool.mdb" & ";"

' Variable para el recordset
Dim Rst_Login As Recordset

' crea el recordset
Set Rst_Login = New Recordset

Dim SQL As String

' consulta SQL ( Campos: Nombre y Password) _
Textbox ( txt_Usuario y txt_Password) _
Tabla: Usuarios

SQL = "SELECT Nombre, Password " & _
"FROM Usuario " & _
"WHERE Nombre = '" & Txt_Usuario.Text & "'" _
& "AND Password = '" & Txt_Password.Text & "'"

With Rst_Login
' Abre el recordset
.Open SQL, C_CADENA

' Si el recordset está vacío es por que es incorrecto
If .EOF Then
MsgBox " El usuario o Password es incorrecto ", _
vbCritical, " Login incorrecto "
' Cierra y descarga el Recordset
Rst_Login.Close
Set Rst_Login = Nothing
Exit Sub
End If
End With

' Cierra y descarga el Recordset
Rst_Login.Close
Set Rst_Login = Nothing

'Cambia el Flag para que no cierre el programa con End
OK = True

' Descarga el formulario y prosigue en el SubMain
Unload Me

End Sub

Private Sub cmdSalir_Click()
OK = False
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Frmlogin = Nothing
If OK = False Then
End
End If
End Sub

AGRADEZCO LA COLABORACION PRESTADA, PUES NOSE QEU ME HACE FALTA, O QUE HAGO MAL
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

¿Cambiaste de nombre?

Publicado por Lolazo (1 intervención) el 16/07/2008 00:28:29
Pero lo que no cambiaste fue tu gramática. Además de que ya te respondimos, consulta el enlace:

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=93&texto=Visual+Basic&n1=502480&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

No llenes el foro con tus preguntitas, pues.
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