如何将SELECT查询结果显示在vb.net的文本框中

我想允许用户查询数据库中特定的customer_id ，并使用它来填充textboxes(tbFName, tbLName, tbPhoneNum, etc)与用户表中的相关信息，然后可以在另一个按钮上编辑按下更新数据库。以下是我目前的代码副本和我正在尝试创建的表单的图像。如何将SELECT查询结果显示在vb.net的文本框中

Public Class searchcustomers 

    Dim sql As New sqlcontrol 

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click 
     Me.Close() 
    End Sub 

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click 
     If sql.HasConnection = True Then 
      sql.RunQuery("SELECT order_id, date_ordered, order_total, collection_method, staff_id FROM orders WHERE customer_id=" & tbSearchID.Text & " ORDER BY date_ordered") 
      If sql.sqldataset.Tables.Count > 0 Then 
       dgvPOrders.DataSource = sql.sqldataset.Tables(0) 

      End If 
     End If 
     'queries database to search for customer id to then display relevant data in data grid view' 

    End Sub 

    Private Sub searchcustomers_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    End Sub 

    Private Sub btnSearchName_Click(sender As Object, e As EventArgs) Handles btnSearchName.Click 
     If sql.HasConnection = True Then 
      sql.RunQuery("SELECT customers.customer_id, order_id, date_ordered, order_total, collection_method, staff_id FROM (customers INNER JOIN orders on orders.customer_id=customers.customer_id) WHERE customers.first_name=" & tbSearchFName.Text & "") 
      If sql.sqldataset.Tables.Count > 0 Then 
       dgvPOrders.DataSource = sql.sqldataset.Tables(0) 
      End If 
     End If 
     'queries database to search for customer name to then display relevant data in data grid view' 
    End Sub 
End Class

FYI我已经设法使先前的订单部分正常工作。

image of form

来源

2016-07-14 J S

编辑的一切都很好，但我想要一些回应，即使只是为了告诉我我很愚蠢...... –

为什么不制作查询命令的字符串，然后在文本框中显示该字符串？ – Werdna

您可以运行单独的查询检索基于客户ID的客户信息和使用结果来填充表单。然后运行查询以获取订单信息并填充DataGridView。

来源

2016-07-14 18:32:23 CrazySpace

如何将SELECT查询结果显示在vb.net的文本框中

回答

相关问题