刷新文本框

Question

如何刷新我的文本框时，在数据库 输入数据这里是我的代码....

Imports MySql.Data 
Imports MySql.Data.MySqlClient 

Public Class Form1 
    Dim dbCon As MySqlConnection 
    Dim strQuery As String = "" 
    Dim SQLCmd As MySqlCommand 
    Dim DR As MySqlDataReader 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     GetDBData() 
    End Sub 

    Private Sub GetDBData() 
     Try 
      dbCon = New MySqlConnection("Server=localhost; Database=mydatabase;Uid=root;Pwd=;") 
      strQuery = "SELECT *" & _ 
        "FROM tbl_user" 

      SQLCmd = New MySqlCommand(strQuery, dbCon) 
      dbCon.Open() 
      DR = SQLCmd.ExecuteReader 

      While DR.Read 
       txtData.Text = txtData.Text & DR.Item("CostumerOrder") & Space(10) & DR.Item("OrderPrice") & vbCrLf 
      End While 

     Catch ex As Exception 
      MsgBox("FAIL CONNECT!" & vbCrLf & vbCrLf & ex.Message) 
     End Try 
    End Sub 

    Private Sub txtData_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtData.TextChanged 

    End Sub 
End Class 

Answer 1

这是一个丑陋的解决方案，但您可以尝试这个..

While DR.Read 
    txtData.Text = txtData.Text & DR.Item("CostumerOrder") & Space(10) & DR.Item("OrderPrice") & vbCrLf 
    Application.DoEvents() 
End While 

Answer 2

 While DR.Read 
      txtData.Text &= DR.Item("CostumerOrder") & Space(10) & DR.Item("OrderPrice") & vbCrLf 
      txtData.Update() 
     End While