时间戳

首页 > 解决方案 > 如何在 Visual Basic 中自动检测数据库中的数据？

vb.net - 如何在 Visual Basic 中自动检测数据库中的数据？

问题描述

大家好，我想在 Visual Basic 2008 的数据库中自动检测价格并显示在文本框中，这是我的代码，但它不起作用。任何建议谢谢

表名：transporter_profile 列名：价格

Private Sub load_transportation()
    Dim sqlquery As String
    Dim myCommand As New MySqlCommand
    Dim myData As MySqlDataReader
    tb_test.Clear()
    sqlquery = "SELECT price FROM transporter_profile ORDER BY 
    price"

    ConnectmyDB()
    myCommand.Connection = conn
    myCommand.CommandText = sqlquery
    myData = myCommand.ExecuteReader

    If myData.HasRows = False Then

    Else
        While myData.Read()
            tb_test.Text = myData.GetString("price")

        End While
    End If
    DisconnectDatabase()
End Sub

标签： vb.net

解决方案

试试这个源代码：

  Private Sub load_transportation()
    Dim sqlquery As String
    Dim myCommand As New MySqlCommand
    Dim myData As MySqlDataReader
    tb_test.Items.Clear()
    sqlquery = "SELECT price FROM transporter_profile ORDER BY price"

    ConnectmyDB()
    myCommand.Connection = conn
    myCommand.CommandText = sqlquery
    myData = myCommand.ExecuteReader

    If myData.HasRows = False Then

    Else
        While myData.Read()
            tb_test.Items.Add(myData.GetDouble("price"))
        End While
    End If
    DisconnectDatabase()
  End Sub

推荐阅读