Torna al Thread

Dim cnn As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Giannicola\JayKayPromo\App_Data\ASPNETDB.MDF;Integrated Security=True;Connect Timeout=30;User Instance=True") Dim cmd1 As New SqlClient.SqlDataAdapter("SELECT foto_percorsofile, descrizione_foto, commento_foto, squadra_di_appartenza FROM foto_squadra ", cnn) Dim dt As New DataTable() Dim startRecord As New Integer Protected Sub Button_Avanti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Avanti.Click startRecord = Avanti.CommandArgument startRecord = startRecord + 2 Avanti.CommandArgument = startRecord Indietro.CommandArgument = startRecord dt.Clear() cmd1.Fill(startRecord, 2, dt) If dt.Rows.Count = 0 Then startRecord = startRecord - 2 Avanti.CommandArgument = startRecord Indietro.CommandArgument = startRecord dt.Clear() cmd1.Fill(startRecord, 2, dt) End If DataList1.DataSource = dt Page.DataBind() End Sub Protected Sub Button_Indietro_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Indietro.Click If Indietro.CommandArgument <> "" Then If Indietro.CommandArgument >= 4 Then startRecord = Indietro.CommandArgument startRecord = startRecord - 2 Indietro.CommandArgument = startRecord dt.Clear() cmd1.Fill(startRecord, 2, dt) DataList1.DataSource = dt Page.DataBind() ElseIf Indietro.CommandArgument < 4 Then startRecord = 0 dt.Clear() cmd1.Fill(startRecord, 2, dt) DataList1.DataSource = dt Page.DataBind() End If End If End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If IsPostBack = False Then startRecord = 0 Avanti.CommandArgument = startRecord End If dt.TableName = "Foto" cmd1.Fill(startRecord, 2, dt) DataList1.DataSource = dt Page.DataBind() cnn.Close() End Sub
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5