#Region "Listar Usuarios BD"
Private Sub listar()
Dim str = "Select * From T002PRODUCTOS"
Dim comando As New SqlCommand(str, strcnnbd)
adapter.SelectCommand = comando
adapter.SelectCommand.CommandType = CommandType.Text
adapter.SelectCommand.ExecuteNonQuery()
adapter.Fill(dataset, "Usuarios")
mydatagrid.DataSource = dataset
mydatagrid.DataBind()
grilla()
Me.Controls.Add(mydatagrid)
strcnnbd.Close()
End Sub
#End Region
#Region "Setting Grilla"
Private Sub grilla()
mydatagrid.BorderColor = mydatagrid.BorderColor.Black
mydatagrid.GridLines = GridLines.Both
mydatagrid.CellPadding = 3
mydatagrid.CellSpacing = 0
mydatagrid.Font.Bold = True
mydatagrid.HeaderStyle.BackColor = mydatagrid.HeaderStyle.BackColor.Cornsilk
paginar()
End Sub
#End Region
#Region "PAGINAR GRILLA"
Private Sub paginar()
mydatagrid.AllowPaging = True
mydatagrid.PageSize = 3
mydatagrid.PagerStyle.Mode = PagerMode.NumericPages
mydatagrid.PagerStyle.Position = PagerPosition.TopAndBottom
End Sub
#End Region