VB.NET + MySQLDataReader 連接 MySQL |
Imports MySql.Data.MySqlClient Sub Select_MySQL_Data() DataGridView1.Columns.Add("ID","ID") DataGridView1.Columns.Add("News_Names", "News_Names") Dim connectionString As String Dim conn As MySqlConnection Dim SQL_Statement As String Dim cmd As MySqlCommand Dim dr As MySqlDataReader Dim String1 As String Dim String2 As String connectionString = (Connection String) conn = New MySqlConnection(connectionString) SQL_Statement = "SELECT Test.ID AS `ID`, Test.Name AS `Name` FROM Test " cmd = New MySqlCommand(SQL_Statement, conn) conn.Open() dr = cmd.ExecuteReader If dr.HasRows Then Do While dr.Read String1 = dr.Item("ID").ToString.Trim() String2 = dr.Item("Test").ToString.Trim() 'Add Item into DataGridView DataGridView1.Rows.Add(New String() {String1, String2}) Loop End If dr.Close() conn.Close() conn.Dispose() End Sub |
註: 建立 Project 前 需要先安裝 MySQL .net driver 及 係 Project add reference <MySQL.Data>