Question

我正在制作一个vb.net crud web应用程序。我不想使用任何网格，而是希望将sql数据库中的记录提取到文本框中。到目前为止，我已经成功地在sql数据库中按下按钮时在文本框中显示记录。现在我的问题是我们可以设计一个下一个和上一个按钮，它将显示来自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

Answer 1

您可以使用where子句。

例如，在您的表中，您有：id（整数），last_name（char），first_name（char）。您所要做的就是使用select命令“播放”。您的选择将如下："select * from aTable where id between first_index and last_index"。 first_index和last_index是您要获取的记录的限制，并且在按钮操作中，您必须递增/递减该索引。

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

祝你好运。

Answer 2

如果您已经拥有数据表，则可以继续使用表格中的数据行

Dim dr As Datarow 

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

etc

希望它有所帮助！

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

2 个答案: