VB.NET + MySQLDataAdapter 連接 MySQL

 

   VB.NET + MySQLDataAdapter 連接 MySQL
 
   Imports MySql.Data.MySqlClient
 
   ……
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
      Dim connectionString As String
      Dim conn As MySqlConnection
      Dim SQL_Statement As String
      Dim cmd As MySqlCommand
      Dim da As New MySqlDataAdapter
      Dim ds As New DataSet
 
      connectionString = "server=<Host Name>;UId=<Login>;Pwd=<Password>;database=<Database Name>"
 
      conn = New MySqlConnection(connectionString)
 
      SQL_Statement = "SELECT * FROM `news_table` LIMIT 0 , 30"
 
      cmd = New MySqlCommand(SQL_Statement, conn)
 
      conn.Open()
 
      da.SelectCommand = New MySqlCommand(SQL_Statement, conn)
 
      da.Fill(ds)
 
      DataGridView1.DataSource = ds.Tables(0).DefaultView
 
      conn.Close()
      conn.Dispose()
 
   End Sub