Imports System.Data.OleDb Imports System.Data.SqlClient Public Class default Inherits System.Web.UI.Page Dim Sqll As String Dim dst As New DataSet Dim MaxRows As Integer Dim SQLConnection As Object Dim uid As Integer Dim da As OleDb.OleDbDataAdapter Dim cmd As SqlCommand Dim conn As New OleDb.OleDbConnection Dim actualid As Integer = Convert.ToInt32(txt_id.Value) Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Navigate(actualid) End Sub Private Sub Navigate(int As Integer) Dim actualid As Integer = Convert.ToInt32(txt_id.Value) Dim conn As New OleDb.OleDbConnection Dim strConn As String = "Provider=SQLOLEDB; Data Source=; Initial Catalog=; User ID=; Password=" conn.ConnectionString = strConn conn.Open() Dim dst As New DataSet Dim da As OleDb.OleDbDataAdapter Sqll = "SELECT * FROM Person WHERE Id ='txt_id.value'" da = New OleDb.OleDbDataAdapter(Sqll, conn) da.Fill(dst, "Person") Max = dst.Tables("Customer").Rows.Count txt_name.Value = ds.Tables("Person").Rows(inc).Item("2") txt_surname.Value = ds.Tables("Person").Rows(inc).Item("3") txt_city.Value = ds.Tables("Person").Rows(inc).Item("4") txt_id.Value = dst.Tables("Person").Rows(int).Item("Id") conn.close() End Sub Protected Sub btn_next_Click(sender As Object, e As EventArgs) Handles btn_next.Click If actualid <> MaxRows Then actualid = actualid + 1 Navigate(actualid) End If End Sub Protected Sub btn_first_Click(sender As Object, e As EventArgs) Handles btn_first.Click If (actualid <> 0) Then actualid = 0 Navigate(actualid) End If End Sub Protected Sub btn_previews_Click(sender As Object, e As EventArgs) Handles btn_previews.Click If (actualid > 0) Then actualid = actualid - 1 Navigate(actualid) End If End Sub Protected Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click If (actualid <> (MaxRows - 1)) Then actualid = MaxRows - 1 Navigate(actualid) End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)