-
Notifications
You must be signed in to change notification settings - Fork 0
/
GestionarUsuarios.vb
45 lines (41 loc) · 1.82 KB
/
GestionarUsuarios.vb
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
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class GestionarUsuarios
Private Sub btn_salir_Click(sender As Object, e As EventArgs) Handles btn_salir.Click
Me.Hide()
Usuarios.Show()
End Sub
Private Sub GestionarUsuarios_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub GestionarUsuarios_Activated(sender As Object, e As EventArgs) Handles Me.Activated
AbrirConexion()
Dim consultaSucursales As String = "SELECT * FROM usuario"
Dim cmd = New SqlCommand(consultaSucursales, Conexion.con)
Dim adapter As New SqlDataAdapter(cmd)
Dim table As New DataTable
adapter.Fill(table)
DataGridView1.DataSource = table
Conexion.con.Close()
End Sub
Public codigo_editar As Integer
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
codigo_editar = DataGridView1.CurrentRow.Cells(0).Value
EditarUsuarios.Show()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim codigo As Integer = DataGridView1.CurrentRow.Cells(0).Value
Dim respuesta As Integer
respuesta = MsgBox("Estás seguro que deseas eliminar este Usuario?", vbYesNo, "SisFerreteria")
If respuesta = vbYes Then
AbrirConexion()
Dim borrarSucursal As String = "DELETE FROM usuario WHERE codigo_usuario=" & codigo & ""
Dim cmd = New SqlCommand(borrarSucursal, Conexion.con)
Dim lector As SqlDataReader
lector = cmd.ExecuteReader
Conexion.con.Close()
MsgBox("Usuario eliminado con éxito", vbReadOnly, "SisFerreteria")
Me.Update()
Me.Refresh()
End If
End Sub
End Class