come avevo accennato, posto qua il codice dell'esempio 445 con le stringhe per Jet.OLEDB e ACCESS. Fatto sta che non riesco a cambiare l'ordine di visualizzazione dei record. Ho girato mezz'ora in internet e fatto mille prove ma non ho risolto, aiuto!
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb" %>
<SCRIPT LANGUAGE="VB" RUNAT="SERVER">
Dim PageSize as Integer = 5
Dim CurrentPage as string
Dim TotalPages as Integer
Dim TotalSize as Integer
' PUBLIC
Dim Public Chiave as String
Sub Page_Load(sender As Object, e As EventArgs)
' pagina corrente
CurrentPage = Request("p")
if CurrentPage is nothing then CurrentPage = 1
if not page.ispostback then
binddata()
end if
End Sub
Sub BindData()
Dim strSQL as String = "SELECT id,codice,codiceloro,nome,pax,camere FROM ville_pool_2 ORDER BY 'codiceloro' DESC;"
Dim conn as OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="+server.mappath("database/ibiza_2.mdb"))
Dim query As OleDbDataAdapter = New OleDbDataAdapter(strSQL, conn)
Dim querydataset As Dataset = new DataSet()
Dim startRecord as integer = (int32.Parse(CurrentPage) - 1) * int32.Parse(PageSize)
' databinding
query.Fill(querydataset, startRecord, int32.Parse(PageSize), "ext_content")
queryres.DataSource = querydataset
queryres.DataBind()
' conta i record totali
Dim strSQLCount as String = strSQL
' ricavo la query count
strSQLCount = "SELECT COUNT(*) as Totale " & strSQLCount.SubString(strSQLCount.IndexOf(" FROM "))
conn.open
Dim myCommand As OleDbCommand = New OleDbCommand(strSQLCount, Conn)
Dim reader as OleDbDataReader = myCommand.ExecuteReader()
' conto i risultati
reader.read()
TotalSize = reader("totale")
reader.Close
conn.Close
if TotalSize = 0 then
results.text = "Non ci sono risultati per questa ricerca"
else
TotalPages = int32.Parse(TotalSize)\int32.Parse(PageSize)+1
' fix per numero di pagine
if Fix(TotalSize/PageSize) = TotalSize/PageSize then TotalPages = TotalPages -1
' fix per record finale
Dim EndRecords as Integer = startRecord + int32.Parse(PageSize)
if EndRecords > TotalSize then EndRecords = TotalSize
end if
if totalsize = 0 then
paginazione.visible = false
end if
' costruisci la paginazione
BuildPagers()
End Sub
Sub BuildPagers()
' ciclo
dim i as integer
dim lb as Label
if TotalPages> 1 then
lb = New Label()
lb.Text = "Ci sono " & TotalPages & " pagine con i risultati: "
paginazione.controls.add(lb)
for i = 1 to (TotalPages)
lb = New Label()
lb.id = "ThisPage" & i
if currentPage = i then
lb.text = "[<b>" & i & "</b>] " & VbCrLf
else
lb.text = "[<a href=""" & Request.PathInfo.ToString & "?chiave=" & Server.URLEncode(chiave) & "&p=" & i & """>" & i & "</a>] " & VbCrLf
end if
paginazione.controls.add(lb)
next
end if
End sub
</SCRIPT>
<asp:label id="results" runat="server"/>
<asp:repeater id="queryres" runat="server">
<itemTemplate>
<br><%#Container.DataItem("ID")%> -
<%#Container.DataItem("codice")%><br><br>
</itemTemplate>
</asp:repeater>
<br>
<asp:placeholder id="Paginazione" runat="server"/>
