Ayuda con login en .net
Publicado por Esme (1 intervención) el 27/11/2015 07:08:41
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
Imports System.DataImports System.Data.OleDb
Public Class Form1
Dim conexion As New OleDbConnection 'la conexion
Dim Comandos As New OleDbCommand 'ejecuta las ordenes o consultas
Dim adaptador As New OleDbDataAdapter 'compara lo del texbox con lo que se a ingresado
Dim lector, lista, lista2, lista3 As OleDbDataReader 'lee las consultas
Dim registros = New DataSet 'guarda toda la tabla en una sola variable
Dim consulta, consulta2, consulta3 As String
Dim consul As String
Dim tipo, tipo2, tipo3 As String
Private Sub limp() 'limpia los campos de: usuario, contrasena
txt_usuario.Clear()
txt_pass.Clear()
txt_usuario.Focus()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
'VERDAD
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=BD_Facturacion1.accdb"
conexion.Open()
Catch ex As Exception
'False
MsgBox("Error al conectar con la BD", vbCritical, "Sin conexion")
End Try
End Sub
Private Sub btn_aceptar_Click(sender As Object, e As EventArgs) Handles btn_aceptar.Click
Dim cont As Integer
Dim lista, lista2 As Byte If cont = 3 ThenIf txt_usuario.Text <> "" And txt_pass.Text <> "" Then
consulta = "SELECT * FROM login WHERE Usuario = '" & txt_usuario.Text & "' AND Contraseña ='" & txt_pass.Text & "'"
Comandos = New OleDbCommand(consulta, conexion)
adaptador = New OleDbDataAdapter(consulta, conexion)
registros = New DataSetadaptador.Fill(registros, "login")
lista = registros.Tables("login").Rows.Count
If lista <> 0 Then
tipo = registros.Tables("login").Rows(0).Item("id_categoria")
fecha1.Text = registros.Tables("login").Rows(0).Item("fecha_Ingreso")
fecha2.Text = registros.Tables("login").Rows(0).Item("fecha_fin")
TextBox1.Text = registros.Tables("login").Rows(0).Item("Id_login")
If Datesistema.Text = fecha2.Text Then
MsgBox("Su contraseña a Caducado, debe ingresar una nueva", vbCritical, "Datos no validos")
Dim DSQL As String = ("DELETE * FROM login WHERE Id_login =" & TextBox1.Text & "")
Dim Cmd As New OleDbCommand(DSQL, conexion)
Cmd.ExecuteNonQuery()
txt_usuario.Text = ""
txt_pass.Text = ""
Else
'While cont <= 3
consulta2 = "SELECT id_categoria FROM login "
Comandos = New OleDbCommand(consulta2, conexion)
adaptador = New OleDbDataAdapter(consulta2, conexion)
registros = New DataSetadaptador.Fill(registros, "login")
lista2 = registros.Tables("login").Rows.Count
If lista2 <> 0 Then
tipo2 = registros.Tables("login").Rows(0).Item("id_categoria")
If tipo = "2" Then
principal.Show()
Me.Hide()
ElseIf tipo = "3" Then
principal.Show()
Me.Hide()
ElseIf tipo = "4" Then
principal3.Show()
Me.Hide()
Else
principal2.Show()
Me.Hide()
End If
End If
End If
'cont = cont + 1
'If cont >= 3 Then
' MsgBox("Por 3 intentos fallidos el sistema se cerrara", vbInformation, "se vencieron los intentos comuniquese con su administrador")
' End
'End If
'End While
End If
End If
Else
MsgBox("Usuario o contraseña invalidos", vbCritical, "datos no validos")
'MsgBox("Datos vacios, completa los datos", vbCritical, "Datos no validos")
End If
End Sub
¿Qué hice mal recien entraba y hoy no puedo que hago?
Ayuda
Valora esta pregunta
0
