Aplikasi CRUD dengan vb.net dan database MySql

Pada dasarnya setiap aplikasi relative membutuhkan yang namanya database, yang mana secara otomatis pasti akan melakukan yang proses menampilkan data, input, edit, dan delete data yang ada pada table di database yang sering disingkat dengan CRUD (Create, Read, Update, Delete).

Pada tutorial kali ini kita akan membuat sebuah aplikasi dengan vb.net dan database MySql yang mana aplikasi tersebut nantinya berfungsi untuk menampilkan data, edit data, delete data dan input data pada table yang ada di database.

Langkah pertama siapkan dulu databasenya dengan nama aplikasi_penjualan lalu buat table dengan nama barang yang berisi field sebagai berikut

Nama field	Tipe
No	Integer (PK)
Nama_barang	Varchar
harga_barang	Integer
Jumlah_barang	integer

Setelah selesai sekarang kita buat formnya di vb.net kira-kira tampilanya seperti berikut:

Jangan lupa tambahkan reference MySql Connector pada project kita lalu buat folder AccessData dan juga Entity.

Kita mulai membuat koneksi kedatabase buat class di folder AccessData dengan nama koneksi lalu ketikkan kode berikut:

Imports MySql.Data.MySqlClient

 

Namespace AccessData

    Public Class koneksi

        Dim conn As New MySqlConnection(“server=localhost;user id=root; database=aplikasi_penjualan; pooling=false;Connection Timeout=10”)

 

        Public Function open() As MySqlConnection

 

            If conn.State <> ConnectionState.Open Then

                conn.Open()

            End If

            Return conn

 

        End Function

 

        Public Function close() As MySqlConnection

            conn.Close()

            Return conn

 

        End Function

 

    End Class

End Namespace

Setelah selesai buat Class dengan nama DataControl lalu ketikkan kode berikut:

Imports MySql.Data.MySqlClient

Namespace AccessData

    Public Class DataControl

        Private MyConnection As New AccessData.koneksi

        Public Function GetdataSet(ByVal SQL As String) As DataSet

            Dim adapter As New MySqlDataAdapter(SQL, MyConnection.open)

            Dim myData As New DataSet

            adapter.Fill(MyData, “Data”)

            Return myData

        End Function

    End Class

End Namespace

Masih tetap di folder AccessData buat Class dengan nama AccessBarang lalu ketikkan kode berikut:

Imports MySql.Data.MySqlClient

Namespace AccessData

    Public Class AccessBarang

        Private myconnection As New AccessData.koneksi

        Public Function barangInsert(ByVal barang As barang) As MySqlDataReader

            Try

                Dim StrSQL As String = “INSERT INTO barang ” & _

                ” (no,nama_barang,harga_barang,jumlah_barang) ” & _

                ” VALUES (@no,@nama_barang,@harga_barang,@jumlah_barang) ;”

                Dim myCommand As MySqlCommand = New MySqlCommand(StrSQL, myconnection.open)

                myCommand.CommandType = CommandType.Text

 

                Dim parameterno As MySqlParameter = New MySqlParameter(“@no”, MySqlDbType.Int32, 30)

                parameterno.Value = barang.no

 

                Dim parameternama_barang As MySqlParameter = New MySqlParameter(“@nama_barang”, MySqlDbType.String, 50)

                parameternama_barang.Value = barang.nama_barang

 

                Dim parameterharga_barang As MySqlParameter = New MySqlParameter(“@harga_barang”, MySqlDbType.Int32, 50)

                parameterharga_barang.Value = barang.harga_barang

 

                Dim parameterjumlah_barang As MySqlParameter = New MySqlParameter(“@jumlah_barang”, MySqlDbType.Int32, 30)

                parameterjumlah_barang.Value = barang.jumlah_barang

 

                With myCommand.Parameters

                    .Add(parameterno)

                    .Add(parameternama_barang)

                    .Add(parameterharga_barang)

                    .Add(parameterjumlah_barang)

                End With

 

                Dim result As MySqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)

                Return result

            Catch SqlEx As MySqlException

                Throw New Exception(SqlEx.Message.ToString())

            End Try

        End Function

 

    End Class

 

End Namespace

Sekarang kita beralih ke Folder Entity buat Class dengan nama Barang lalu ketikkan kode berikut ini:

Public Class barang

    Private e_no As Integer

    Private e_nama_barang As String

    Private e_harga_barang As Integer

    Private e_jumlah_barang As Integer

    Public Property no() As Integer

        Get

            Return e_no

        End Get

        Set(ByVal value As Integer)

            e_no = value

        End Set

    End Property

    Public Property nama_barang() As String

        Get

            Return e_nama_barang

        End Get

        Set(ByVal value As String)

            e_nama_barang = value

        End Set

    End Property

    Public Property harga_barang() As Integer

        Get

            Return e_harga_barang

        End Get

        Set(ByVal value As Integer)

            e_harga_barang = value

        End Set

    End Property

    Public Property jumlah_barang() As Integer

        Get

            Return e_jumlah_barang

        End Get

        Set(ByVal value As Integer)

            e_jumlah_barang = value

        End Set

    End Property

End Class

Hemmm, Class-class sudah selesai di buat sekarang kita beralih ke formnya dobel klik pada form lalu ketikkan kode berikut :

Imports MySql.Data.MySqlClient

Public Class frminput

    Dim MyConnection As New AccessData.koneksi

    Dim ObjdataTable As New DataTable

    Dim DtDataView As New DataView

Dim KontrolData As New AccessData.DataControl

        Dim MyData As DataSet = KontrolData.GetdataSet(“Select * From barang”)

        Me.Text = “CRUD Apps”

        ObjdataTable = MyData.Tables(“data”)

        DtDataView.Table = ObjdataTable

        DataGridView1.DataSource = DtDataView

        DataGridView1.GridColor = Color.Cyan

        DataGridView1.Columns(“no”).Width = 35

Kode di atas berfungsi untuk meload data pada database dan menampilkanya pada DataGridView sehingga pada saat program dijalankan data tabel akan tampil di DataGridview.

Sejauh ini seharusnya untuk fungsi Input Data sudah bisa dilakukan. Coba jalankan program lalu masukkan beberapa data pada input box jika berhasil cek di database apakah data benar-benar masuk atau belum.

Oke sakian dulu untuk pembuatan program CRUD untuk selanjutnya kita akan belajar mengedit data yang sudah ada pada tabel database