Koneksi VB.Net Dengan MySql

Langkah pertama adalah kita harus membuat databasenya, mari kita lakukan

Setelah  database selesai maka langkah kita selanjutnya adalah membuka aplikasi Microsoft visual studio 2008, 

 Kemudian pilih Microsoft visual studio  2008

Selanjutnya maka akan tampil seperti gambar dibawah,

Selanjutnya pilih file > new > project perhatikan gambar dibawah

  Maka akan tampil seperti gambar dibawah kemudian pilih windows form application, silahkan anda  tentukan nama,dan lokasi penyinpanannya > ok

 Selanjutnya anda desain seperti gambar dibawah ini

 Selanjuntya anda pilih project > add reference , perhatikan gambar dibawah

 Kemudian anda pilih  mysql.data > ok

 Kemudian klembali anda pilih project  > add module , perhatikan gambar dibawah

Maka akan tampil seperti gambar dibawah kemudian anda pilih ok

 Berikut adalah bentuk tampilan dari module

 Kemudian anda ketikkan koding berikun didalam module tersebut

Imports MySql.Data

Imports MySql.Data.MySqlClient

Module Module1

    Public MysqlTrans As MySqlTransaction = Nothing

    Public MySqlConn As MySqlConnection

    Public Mysqlcm As New MySqlCommand

    Public mysqladapter As New MySqlDataAdapter

    Public MySQLDr As MySqlDataReader

    Public gtransStat As Boolean

    'untuk koneksi kedalam database

    Dim server2 As String = "server=localhost;"

    Dim dbpro2 As String = "database=fachrul_toko;"

    Dim user2 As String = "uid=root;"

    Dim pass2 As String = "pwd=;"

    Dim gconnstring = server2 & dbpro2 & user2 & pass2

    Public Function Openconn()

        Try

            MySqlConn = New MySqlConnection(gconnstring)

            MySqlConn.Open()

            MysqlTrans = MySqlConn.BeginTransaction

        Catch ex As Exception

            '   MsgBox(ex.Equals.ToString & ":" & vbCrLf & ex.Message(), MsgBoxStyle.OkOnly, "pesan")

        End Try

        Return MySqlConn

    End Function

    Public Function closeconn()

        Try

            If gtransStat Then

                MysqlTrans.Commit()

            Else

                MysqlTrans.Rollback()

            End If

            MySqlConn.Close()

        Catch ex As MySqlException

            MsgBox(ex.Number().ToString & ":" & vbCrLf & ex.Message(), MsgBoxStyle.OkOnly, "pesan")

        Finally

            MySqlConn.Dispose()

            MySqlConn = Nothing

        End Try

        Return MySqlConn

    End Function

End Module

Kemudian kembali kepada form 1 dan silahkan anda klick pada formk1 prhatikan panak dibaawah

 Maka akan tampil seperti gambar dibawah

 Kemudian ketikkan koding berikut

Imports MySql.Data

Imports MySql.Data.MySqlClient

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TAMPILBARANG()

    End Sub

    Private Sub TAMPILBARANG()

        Openconn()

        Dim DS As New DataSet("DATA")

        Dim SQl As String = "select * from barang "

        Dim aCol() As Integer = {5, 15, 15, 15, 15}

        Dim iCol As Integer

        Using vadapter As New MySqlDataAdapter()

            Try

                Using CMD As MySqlCommand = New MySqlCommand(SQl, MySqlConn)

                    With vadapter

                        .SelectCommand = CMD

                        .Fill(DS, "DATA")

                    End With

                    With DataGridView1

                        .DataSource = DS

                        .DataMember = "DATA"

                    End With

                End Using

            Catch ex As Exception

                MsgBox(ex.Message, MsgBoxStyle.Information, "information")

            End Try

        End Using

        closeconn()

        DS.Dispose()

        'untuk setting lebar kolom

        For iCol = 0 To 4

            DataGridView1.Columns(iCol).Width = (DataGridView1.Width / 100) * aCol(iCol)

        Next

        DataGridView1.Sort(DataGridView1.Columns(0), System.ComponentModel.ListSortDirection.Ascending)

    End Sub

End Class

selanjutnya jalankan program dan berikut adalah hasilnya

semoga bermanfaat.....................................