通过数据库导航

Helloo
我正在使用vb.net来构建Web应用程序
我有3个用于从数据库检索数据的文本框和4个拳头，上一个，下一个和最后一个按钮，可帮助我浏览表的记录.
但似乎我的代码不起作用.
我使用一个变量，procedualid来传递显示记录ID的文本框的值.
问题出在哪里?

Helloo
I am using vb.net to build a web app
I have 3 text boxes that retrieve data from the database and 4 buttons fist, previous, next and last that help me to navigate through the records of the table.
But it seems that my code doesnt work.
i use a variable, actualid to pass the value of the textbox where the id of the record is shown.
where is the problem?

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