Visual Basic - FORM PARA VALIDAR USUARIO Y CALVE CON BASE DE DATO

Life is soft - evento anual de software empresarial
   
Vista:

FORM PARA VALIDAR USUARIO Y CALVE CON BASE DE DATO

Publicado por ANDRES GUEVARA (2 intervenciones) el 15/07/2008 00:32:24
HOLA TENGO ESTE CODIGO, Y QUIERO SABER QUEMA HCE FALTA PARA COMPLETARLO PUES ME GENERA ERROR

8. Private Sub cmdEntrar_Click()
9.
10. ' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS )
11. Const C_CADENA = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
12. "Data Source=" & "c:d1.mdb" & ";"
13.
14. ' Variable para el recordset
15. Dim Rst_Login As Recordset
16.
17. ' crea el recordset
18. Set Rst_Login = New Recordset
19.
20. Dim SQL As String
21.
22. ' consulta SQL ( Campos: Nombre y Password) _
23. Textbox ( txt_Usuario y txt_Password) _
24. Tabla: Usuarios
25.
26. SQL = "SELECT Nombre, Password " & _
27. "FROM Usuarios " & _
28. "WHERE Nombre = '" & txt_Usuario.Text & "'" _
29. & "AND Password = '" & txt_Password.Text & "'"
30.
31. With Rst_Login
32. ' Abre el recordset
33. .Open SQL, C_CADENA
34.
35. ' Si el recordset está vacío es por que es incorrecto
36. If .EOF Then
37. MsgBox " El usuario o Password es incorrecto ", _
38. vbCritical, " Login incorrecto "
39. ' Cierra y descarga el Recordset
40. Rst_Login.Close
41. Set Rst_Login = Nothing
42. Exit Sub
43. End If
44. End With
45.
46. ' Cierra y descarga el Recordset
47. Rst_Login.Close
48. Set Rst_Login = Nothing
49.
50. 'Cambia el Flag para que no cierre el programa con End
51. OK = True
52.
53. ' Descarga el formulario y prosigue en el SubMain
54. Unload Me
55.
56. End Sub
57.
58. Private Sub cmdSalir_Click()
59. OK = False
60. Unload Me
61. End Sub
62.
63. Private Sub Form_Unload(Cancel As Integer)
64. Set frmLogin = Nothing
65. If OK = False Then
66. End
67. End If
68. End Sub

AL APLICARLO ME GENREA UN ERRO ALGUIEN PUEDE CORREGIRLO GRACIAS
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

Yo lo corrijo

Publicado por Lolazo (1 intervención) el 15/07/2008 01:12:59
Sí, como no, Yo te lo corrijo y te mando la factura a tu cuenta de correo, previo depósito a mi cuenta bancaria.

Pero antes por favor dime qué demonios significan estas palabras que has escrito en tus 2 mensajes:

PESPERO
DESARROLANDO
USUSRIO
QEU
SELOS
AGRADECEIRA
CALVE
SUARIO
QUEMA
HCE
GENREA
ERRO

Dices que estás desarrollando una aplicación para un colegio ¿por qué no aprovechas y de una vez tomas clases de gramática y ortografía, que buena falta te hacen? Y no me salgas con no las necesitas, porque la gramática y la programación no están reñidas, boludo.
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