如何在 vb.net 中將 SELECT 查詢結果顯示到文本框

Question

我想允許用戶查詢數據庫中的特定customer_id並使用它來填充textboxes(tbFName, tbLName, tbPhoneNum, etc)與表中的用戶相關信息，然后可以在另一個按鈕上編輯按更新數據庫. 下面是我當前代碼的副本和我正在嘗試創建的表單的圖像。

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

僅供參考，我已經設法讓之前的訂單部分正常工作。

形像

Answer 1

您可以運行單獨的查詢以根據客戶ID檢索客戶信息，並使用結果填充表單。 然后運行查詢以獲取訂單信息並填充DataGridView。

Answer 2

是對還是錯

    Dim qry As String
    qry = "select max(i.comp_id) from inventory i "
    itemcode.Text = qry
    If RS.State > 0 Then RS.Close()
    RS.Open(qry, Form1.dB)
    RS.Close()