-3

我需要让 VB 从我的 MySQL 数据库中获取信息并将其放在列表框中。所以请你帮帮我。我似乎无法理解如何将其插入列表框中。

4

1 回答 1

1

我希望这段代码能帮助你了解你在寻找什么。

Private sub FillListBox

    Dim stringConn As String
    Dim stringCmd As String
    Dim myConn As MySqlConnection
    Dim myCmd As MySqlCommand

    'Frame your query here.
    stringCmd = "SELECT yourData FROM yourTable"

    'Frame your connection string here.
    stringConn = "SERVER=localhost;DATABASE=DBName;UID=root;PASSWORD=;"

    'Get your connection here.
    myConn = New MySqlConnection(stringConn)

    'Get a command by using your connection and query.
    myCmd = New MySqlCommand(stringCmd, myConn)

    'Open the connection.
    myConn.Open()

    'create a reader to store the datum which will be returned from the DB
    Dim myReader As MySqlDataReader

    'Execute your query using .ExecuteReader()
    myReader = myCmd.ExecuteReader()

    'Reset your List box here.
    ListBox1.items.clear()

    While (myReader.Read())
            'Add the items from db one by one into the list box.
        ListBox1.items.add(myReader.GetString(1))
    End While

    'Close the reader and the connection.
    myReader.Close()
    myConn.Close()

End Sub
于 2013-03-23T05:34:33.793 回答