vb.net

vb.net 連接mysql範例程式

davidou 2015 年 02 月 24 日

vbnetmysql

VB.NET連接MYSQL 的範例程式GOOGLE實在頗亂的.. 只好自己摸一摸來寫一篇看會不會比較好懂一點

VB.NET要連接MYSQL 你要必須安裝 MySql.Data 外掛

之後你可以創一個專案，然後如下圖顯示來加入參考

然後瀏覽你的MYSQL.DATA.DLL的路徑位置，後確定。像是我的話就會是下圖的路徑這樣。

這樣就完成了最重要的一關拉。剩下就是程式碼的複製貼上了

首先我的FORM長這樣。上面隨便擺一個Button 下面擺一個DataGridView

程式碼Imports MySql.Data.MySqlClient
 
Public Class Form1
    Public KDBconn As New MySqlConnection
    Public KDBconnBackUp As New MySqlConnection
    Public KDBconnLib As New MySqlConnection
    Public Sub GetKDBConn()
        Dim connString As String = "Database=test;Data Source=127.0.0.1;User Id=root;Password=0000;CharSet=utf8"
        Dim tmpSql As String
        If KDBconn.State = ConnectionState.Open Then KDBconn.Close() '若第二次重複連線需關閉
        KDBconn = New MySqlConnection(connString)
        KDBconn.Open()
 
        If KDBconn Is Nothing Then
            If connString = "" Then
                MsgBox("未設定連線字串" & connString)
            Else
                KDBconn = New MySqlConnection(connString)
                KDBconn.Open() '"正常連結資料庫"
                MsgBox("ok")
            End If
        Else
        End If
        If KDBconn Is Nothing Then MsgBox("MYSQL資料庫連線失敗")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SQL_Statement As String
        Dim cmd As MySqlCommand
        Dim da As New MySqlDataAdapter
        Dim ds As New DataSet
        GetKDBConn()
        Dim str1 As String = "select * from country"
 
        Dim adp1 As MySqlDataAdapter = New MySqlDataAdapter(str1, KDBconn)
 
        '將查詢結果放到記憶體set1上的"1a "表格內
 
        Dim set1 As DataSet = New DataSet
 
        adp1.Fill(set1, "1a")
 
        '將記憶體的資料集合存放到視窗畫面上的DataGrid上
 
        DataGridView1.DataSource = set1.Tables("1a")
 
        '關閉資料庫的連結
 
        KDBconn.Close()
 
    End Sub
End Class

程式碼
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51	`Imports MySql.Data.MySqlClient` `Public Class Form1` `Public KDBconn As New MySqlConnection` `Public KDBconnBackUp As New MySqlConnection` `Public KDBconnLib As New MySqlConnection` `Public Sub GetKDBConn()` `Dim connString As String = "Database=test;Data Source=127.0.0.1;User Id=root;Password=0000;CharSet=utf8"` `Dim tmpSql As String` `If KDBconn.State = ConnectionState.Open Then KDBconn.Close() '若第二次重複連線需關閉` `KDBconn = New MySqlConnection(connString)` `KDBconn.Open()` `If KDBconn Is Nothing Then` `If connString = "" Then` `MsgBox("未設定連線字串" & connString)` `Else` `KDBconn = New MySqlConnection(connString)` `KDBconn.Open() '"正常連結資料庫"` `MsgBox("ok")` `End If` `Else` `End If` `If KDBconn Is Nothing Then MsgBox("MYSQL資料庫連線失敗")` `End Sub` `Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click` `Dim SQL_Statement As String` `Dim cmd As MySqlCommand` `Dim da As New MySqlDataAdapter` `Dim ds As New DataSet` `GetKDBConn()` `Dim str1 As String = "select * from country"` `Dim adp1 As MySqlDataAdapter = New MySqlDataAdapter(str1, KDBconn)` `'將查詢結果放到記憶體set1上的"1a "表格內` `Dim set1 As DataSet = New DataSet` `adp1.Fill(set1, "1a")` `'將記憶體的資料集合存放到視窗畫面上的DataGrid上` `DataGridView1.DataSource = set1.Tables("1a")` `'關閉資料庫的連結` `KDBconn.Close()` `End Sub` `End Class`

程式碼部分就上面這些

當然你可以在裡面看到我的mysql是放在本機的(127.0.0.1)然後有一個資料庫叫做test 帳密為root 0000 裡面有一個資料表叫做
country

他會把撈到的資料全部放到DataGridView 上面去
如上圖所示，整個程式碼範例我丟到我的github vb.net 連接mysql的範例程式

裡面有包含一個mysql的資料庫可以匯入去玩玩看

One comment

看了大大的文章後很有幫助!!
但是不知道能不能麻煩大大寫一篇有關VB寫入資料進資料庫的文章
目前用定時器開啟一個檔案，但卻不知道要怎麼將檔案也一起自動寫入進去資料庫!!
最近剛開始學VB希望大大可以教我~~~

回覆

Davidou的 Blog

vb.net 連接mysql範例程式

發佈回覆給「Kun」的留言取消回覆

About Author

DAVIDOU

近期文章

文章分類

最新回應

我的社群網路

vb.net 連接mysql範例程式

發佈回覆給「Kun」的留言 取消回覆

About Author

DAVIDOU

近期文章

文章分類

最新回應

我的社群網路

發佈回覆給「Kun」的留言取消回覆