從SQL顯示數據到vb.net文本框

Question

我正在嘗試將數據從sql server檢索到vb.net文本框，但我不知道該怎么做，我所擁有的所有教程只是將記錄從數據庫檢索到datagrid視圖..請幫助。

Private Sub txtrfid_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtrfid.KeyPress
    cn.Open()

    With cmd
        .Connection = cn
        .CommandText = "SELECT * FROM Students WHERE RFID like '%" & txtrfid.Text & "%'"
    End With
    MsgBox("Record Found!", MsgBoxStyle.Information, "Update")

    da.SelectCommand = cmd
    dt.Clear()
    da.Fill(dt)
    cn.Close()


    txtname.Text = 'Firstname'

Answer 1

您正在用數據庫中的數據填充DataTable ，因此必須將數據從該DataTable到TextBox 。 您可以通過數據綁定來做到這一點，這就是您可能看到它通過網格完成的方式，例如

txtname.DataBindings.Add("Text", dt, "Firstname")

如果您要檢索多個要導航的記錄，那肯定是這么做的方法，盡管您可能會在兩者之間使用BindingSource 。 如果只有一條記錄，那么您可以改為手動移動數據，例如

txtname.Text = CStr(dt.Rows(0)("Firstname"))

Answer 2

如果您只想顯示Table中的單個值（ FirstName ），請參見以下代碼

Using conn As New SqlConnection("connstr")
      conn.Open()
      Dim cmd As New SqlCommand("", conn)
      Dim txtName As String
      cmd.CommandText = "SELECT firstname FROM Students WHERE RFID ='" & txtrfid.Text & "'"
      txtName = IIf(IsDBNull(cmd.ExecuteScalar), "", cmd.ExecuteScalar)
      If txtName <> "" Then
         MsgBox("Record Found!", MsgBoxStyle.Information, "Update")
         Textbox1.Text = ""
         Textbox1.Text = txtName
      else
         MsgBox("No Record Found!", MsgBoxStyle.Information, "INFO.")
      End If
 End Using

Answer 3

有很多方法可以檢索數據。 您可以使用sql數據讀取器將數據從sql數據庫檢索到文本框，這是我的最愛之一。 讓我分享給你。 注意：不要忘記導入system.data.sqlclient

Private Sub txtrfid_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtrfid.KeyPress
        strConn = "Data Source=" & servernamehere & ";Initial Catalog=" & databasenamehere & ";User ID=" & userid & ";Password=" & password
        sqlConn = New SqlConnection(strConn)
        sqlConn.Open()
        Dim sqlcmd As New SqlCommand("Your query here", sqlConn)
        Dim myreader As SqlDataReader
        myreader = sqlcmd.ExecuteReader()
        myreader.Read()
        If myreader.HasRows Then
            txtrfid.Text = myreader.Item("column name from sql database table").Tostring
        End If
        sqlConn.Close()
End Sub

您可以使用嘗試捕獲技術來捕獲異常。