Boa tarde,
Abaixo segue o código que estou usando p/ paginar um datagrid com DataAdapter e DataSet e eu não estou conseguindo acessar as outras páginas da paginação, me listando apenas a 1ª página. Já olhei em vários posts e artigos deste fórum e artigo do linhadecodigo.com.br e AINDA NÃO CONSEGUI FAZER ESTA PAGINAÇÃO FUNCIONAR NORMALMENTE como no ASP:
<<anterior 1 2 3 4 5 próximo>>
Só me aparece um sinal de menor < e outro de maior >, já olhei todas as propriedades do datagrid e ainda não notei qual mais devo alterar!
Segue o código:
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Call ControleSessao() '>>Chamada a procedimento(método) p/ controle de sessão.
Call MontarGrid() '>>Chamada a procedimento(método) p/ montar o datagrid.
End Sub
Sub MontarGrid()
'>>INÍCIO: Abre conexão com BD.
BDCli = TratarSaida(Convert.ToString(Session.Item("BDCli"))) 'Trata a variável p/ saída.
Provedor = System.Configuration.ConfigurationSettings.AppSettings("appConexao") & BDCli
'>>INÍCIO: Tratamento de erro(exceção) na abertura da conexão.
Try
objConexao = New OleDbConnection(Provedor)
objConexao.Open()
Catch Excecao as OleDbException
Response.Redirect("gestao_controle_sessao_fechar.asp")
End Try
'>>FIM: Tratamento de erro(exceção) na abertura da conexão.
'>>FIM: Abre conexão com BD.
'>>Instrução SQL p/ pegar os dados a serem listados.
strSQL = "Select * from HT_DBGeral_DEmp order by EmCod"
objDataAdapter = New OleDbDataAdapter(strSQL, objConexao)
objDataAdapter.Fill(objDataSet, "HT_DBGeral_DEmp")
dtgResultados.DataSource = objDataSet.Tables("HT_DBGeral_DEmp").DefaultView
dtgResultados.DataBind()
End Sub
Sub dtgResultados_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs)
dtgResultados.CurrentPageIndex = e.NewPageIndex 'essa linha q vc procura neh?
Call MontarGrid() '>>Chamada a procedimento(método) p/ montar o datagrid.
End Sub
<asp:DataGrid
id="dtgResultados"
AutoGenerateColumns="False"
Width="100%"
BackColor="#FFFFFF"
BorderColor="black"
ShowFooter="false"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8"
HeaderStyle-BackColor="#CCCCCC"
OnItemDataBound="myItems_ItemDataBound"
AllowPaging="true" AllowSorting="true" PageSize="10"
runat="server">
<Columns>
<asp:HyperLinkColumn
HeaderText="Código"
DataTextField="EmCod"
DataNavigateUrlFormatString="javascript:PassarValores('{0}');"
DataNavigateUrlField="EmCod"
ItemStyle-Font-Name="Verdana"
ItemStyle-Font-Size="8"
HeaderStyle-Font-Bold="true">
</asp:HyperLinkColumn>
<asp:BoundColumn
DataField="EmNome"
HeaderText="Nome"
ItemStyle-Font-Name="Verdana"
ItemStyle-Font-Size="8"
HeaderStyle-Font-Bold="true">
</asp:BoundColumn>
</Columns>
</asp:DataGrid>
---------------
Grato,
Vilmar Brazão de Oliveira