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