Formulario MDI se cierra
Publicado por Pedro44 (1 intervención) el 01/05/2017 23:32:08
Buenas noches,
Cuando ejecuto el programa, introduzco nombre usuario y contraseña en un formulario, si es correcto debe entrar en el formulario MDI y mantenerlo, pero no lo hace, se cierra. Esto es lo que he puesto;
Un saludo,
Pedro
Cuando ejecuto el programa, introduzco nombre usuario y contraseña en un formulario, si es correcto debe entrar en el formulario MDI y mantenerlo, pero no lo hace, se cierra. Esto es lo que he puesto;
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
Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
Dim consultar As String
Dim lista As Byte
If txtNom_Usuario.Text = "" And txtContrasena.Text = "" Then
MsgBox("Introducir nombre usuario y contraseña", vbInformation, "Error")
txtNom_Usuario.Focus()
Exit Sub
End If
If txtNom_Usuario.Text = "" Then
MsgBox("Introduzca nombre usuario", vbInformation, "Error")
txtNom_Usuario.Focus()
Exit Sub
Else
If txtContrasena.Text = "" Then
MsgBox("Introduzca contraseña", vbInformation, "Error")
txtContrasena.Focus()
Exit Sub
End If
End If
consultar = "SELECT * FROM CONTRASENA WHERE NOM_USUARIO = '" & txtNom_Usuario.Text & "' and CONTRASENA ='" & txtContrasena.Text & "'"
adaptador = New OleDbDataAdapter(consultar, conexion)
registros = New DataSetadaptador.Fill(registros, "CONTRASENA")
lista = registros.Tables("CONTRASENA").Rows.Count
If lista <> 0 Then
registros.Clear()
conexion.Close()
MenuPrincipal.Show()
Me.Close()
Else
MsgBox("No existe nombre usuario o contraseña", vbCritical, "Atención")
txtNom_Usuario.Text = ""
txtContrasena.Text = ""
txtNom_Usuario.Focus()
End If
End Sub
Un saludo,
Pedro
Valora esta pregunta
0