Visual Basic.NET - Ayuda con login en .net

   
Vista:

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.Data
Imports 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 Then
 
            If 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 DataSet
                adaptador.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 DataSet
                        adaptador.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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Wilfredo Patricio Castillo

Ayuda con login en .net

Ya no puedes ingresar?, no te habrán eliminado las tablas?, ya que así como está, pues está pero muy inseguro y facil para que te hagan una sql injection.
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