介紹

MySQL是一款常見的關系型數據庫管理系統，廣泛應用于Web應用程序的開發中。在VB中，我們可以通過與MySQL進行交互來實現數據的讀寫。本文將針對MySQL查詢結果在VB中顯示這一主題進行探討。

連接MySQL數據庫

在VB中連接MySQL數據庫的方式有很多種，這里我們以使用ADODB為例進行說明。我們需要先添加對“Microsoft ActiveX Data Objects 2.8 Library”的引用，然后使用以下代碼與數據庫建立連接。

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" _ & "SERVER=127.0.0.1;" _ & "PORT=3306;" _ & "DATABASE=my_data;" _ & "UID=my_username;" _ & "PWD=my_password;"

conn.Open

查詢MySQL數據庫

連接成功后，我們可以使用以下代碼進行數據庫的查詢操作。其中，需要先定義一個Recordset對象用于存放查詢結果。

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

rs.Open "SELECT * FROM my_table", conn, adOpenStatic, adLockReadOnly

顯示MySQL查詢結果

以上代碼完成查詢后，我們需要將其結果展示給用戶。在VB中，我們一般使用Listview或者Datagrid控件來實現這個功能。

使用Listview控件：

Dim itmX As ListItem

Do While Not rs.EOF

Set itmX = lvwResult.ListItems.Add(, , rs(0))

itmX.SubItems(1) = rs(1)

rs.MoveNext

Loop

其中，lvwResult是我們已經在VB窗體中添加的Listview控件，rs(0)和rs(1)是查詢結果中的兩列數據。

使用Datagrid控件：

Set dgResult.DataSource = rs

其中，dgResult是我們已經在VB窗體中添加的Datagrid控件。

關閉連接

當不再需要使用數據庫連接時，我們需要手動關閉連接以釋放資源。

rs.Close

conn.Close