Asp.net Vb.net下一个和上一个按钮代码

Asp.net Vb.net下一个和上一个按钮代码,asp.net,vb.net,web-applications,crud,Asp.net,Vb.net,Web Applications,Crud,我正在制作一个vb.net crud web应用程序。我不想使用任何网格,而是想将sql数据库中的记录提取到文本框中。到目前为止,我已经成功地在sql数据库中按下按钮时在文本框中显示了一条记录。现在我的问题是,我们能否设计一个next和previous按钮来显示sql数据库中的下一个或上一个记录。如果任何机构都能共享代码来实现这一点,那就太好了 下面是我在文本框中获取单个记录的代码 Protected Sub Button2_Click(sender As Object, e As EventA

我正在制作一个vb.net crud web应用程序。我不想使用任何网格,而是想将sql数据库中的记录提取到文本框中。到目前为止,我已经成功地在sql数据库中按下按钮时在文本框中显示了一条记录。现在我的问题是,我们能否设计一个next和previous按钮来显示sql数据库中的下一个或上一个记录。如果任何机构都能共享代码来实现这一点,那就太好了

下面是我在文本框中获取单个记录的代码

Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
     Dim myConn As SqlConnection = New     SqlConnection("Server=.\SQLEXPRESS;AttachDbFilename=D:\MyFolder\MyDatabaseData.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

    Dim dt As New DataTable
    Dim a As Integer
    a = 2

    Try
        myConn.Open()

        Dim SelectCommand As New SqlClient.SqlCommand("SELECT names FROM enames", myConn)

        txtOEID.Text = CStr(SelectCommand.ExecuteScalar())
        MsgBox("data is selected and show in the textbox and the connection is also closing")
        myConn.Close()


    Catch ex As Exception
        MsgBox(ex.ToString())
            End Try

End Sub

您可以使用where子句

例如,在您的表中有:id(整数)、last_name(字符)、first_name(字符)。 您所要做的就是使用select命令“播放”。 您的选择类似于:
“从第一个索引和最后一个索引之间的表where id中选择*”
。 第一个索引和最后一个索引是要获取的记录的限制,在操作中,必须增加/减少这些索引

另一种解决方案是将获得的值复制到列表中


祝你好运。

如果你已经有了datatable,你可以从表中继续使用datarow

Dim dr As Datarow 

dr = dt.rows(currentRowIndex)
txtName = dr.item("name")
txtProf = dr.item("profession")

etc 

希望有帮助

非常感谢你的技巧对一个文本框有效,现在我想通过首先在数据库中添加一个冒号“profession”来增强这个应用程序,然后还要在另一个文本框中选择profession的值。如何做到这一点?