VB.NET + MySQLDataReader 連接 MySQL

 

   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>

發表留言