如何在运行时更新 DataBindings？

Question

这里的菜鸟程序员，如果答案很明显，请放轻松。 真的找不到合适的标题，但这是我得到的最接近的标题。

直截了当，我的程序中有一个文本框，我在文本框中输入的任何内容都应该直接进入我的数据库中的表格，然后当我单击特定按钮时，我最后放入表格的任何内容都应该显示通过 DataBindings 放在文本框旁边的标签上（至少，这就是我想要的方式）。

它在大多数情况下都有效。 当我输入内容并单击我的按钮时，文本会显示在标签上。 但是当我第二次这样做时，标签不会更新为我上次输入的内容（它只会在我停止并再次开始运行程序时更新。）

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    connection.Open()

    Dim test1 As String = "SELECT TOP 1 Letters From NewTable ORDER BY Id DESC"

    ExecuteQuery(test1)

    Dim command As New SqlCommand(test1, connection)

    Dim adapter As New SqlDataAdapter(test1, connection)

    adapter.Fill(TestDatabaseAgainDataSet1, "NewTable")
    randomlabel.DataBindings.Clear()
    randomlabel.DataBindings.Add("Text", TestDatabaseAgainDataSet1.NewTable, "Letters")

    command.ExecuteNonQuery()

    connection.Close()
End Sub

我知道有一些更简单的方法可以让用户生成的文本显示在标签上，但我有点需要它，所以当我点击按钮时，我输入的最后一件事仍然存在。

Answer 1

如果我理解正确，您只会在项目的第二部分遇到问题：您最后放入表格的任何内容都应显示在文本框旁边的标签上。

如果您在SQL Server ，则可以使用SqlDataReader类，该类提供了一种从 SQL Server 数据库读取行的只进流的方法。

Dim cmdLastLetter As SqlCommand = conn.CreateCommand()

cmdLastLetter.CommandText = "SELECT TOP 1 Letters From NewTable ORDER BY Id DESC"

Dim drLastLetter As SqlDataReader = cmdLastLetter.ExecuteReader()

If drLastLetter.Read() Then
    Me.Label1.Text = drLastLetter("Letter")
End If

drLastLetter.Close()
cmdLastLetter.Dispose()

如果您正在使用另一个数据库，请参阅此文档：您必须使用另一个类，但概念是相同的。