Public Sub CARGARDATAGRID()
Try
Dim sentencia_sql As String
sentencia_sql = "SELECT * FROM t_usuario ORDER BY id_usuario"
If Mconexion.State = ConnectionState.Closed Then
Mconexion.Open()
End If
Dim comando As New MySqlCommand(sentencia_sql, Mconexion)
Dim MDR As MySqlDataReader
MDR = comando.ExecuteReader
Dim MDT As New DataTable
MDT.Load(MDR)
Frmbuscarusuario.Dgvlistarusuarios.DataSource = MDT
Frmbuscarusuario.Dgvlistarusuarios.Refresh()
'LBLCONTADOR.Text = "CLIENTES ENCONTRADOS: " & MDT.Rows.Count
' If MDT.Rows.Count = 0 Then
'BTNSELECCIONAR.Enabled = False
'BTNIMPRIMIR.Enabled = False
'Else
'BTNSELECCIONAR.Enabled = True
'BTNIMPRIMIR.Enabled = True
'End If
comando.Dispose()
MDR.Close()
MDT.Dispose()
Mconexion.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message.ToString)
End Try
Frmbuscarusuario.Dgvlistarusuarios.Columns(0).Width = 80
Frmbuscarusuario.Dgvlistarusuarios.Columns(1).Width = 80
Frmbuscarusuario.Dgvlistarusuarios.Columns(2).Width = 80
Frmbuscarusuario.Dgvlistarusuarios.Columns(3).Width = 80
'Frmbuscarusuario.Dgvlistarusuarios.Columns(4).Width = 80
Frmbuscarusuario.Dgvlistarusuarios.AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
End Sub
Crear cuenta
