Belajar Membuat Aplikasi CRUD Barang di Visual Basic 2008 dengan MySQL


Assalamualaikum Wr.Wb...
dengan diberikan nikmat dan rezeki dari Allah SWT, saya Mr.GagalTotal666 akan
berbagi kepada anda yaitu tentang belajar membuat aplikasi CRUD Barang
di Visual Basic 2008 dengan MySQL.

sedikit iseng membuat CRUD di visual basic 2008, CRUD singkatan dari
create, read, update, delete. Bagi anda yang masih awam cocok untuk belajar
diartikel ini, oh iya pastikan anda sudah mengenal atau sudah
belajar perintah MySQL dasar dan visual basic dasar,
oke ikut langkah berikut

pertama anda buat database nya di MySQL, dan pastikan anda sudah menginstall Xampp
di sistem operasi anda, kemudian buat database barang contoh seperti ini
$ create database dbbarang;
buat juga untuk table
CREATE TABLE barang (
kode_barang varchar(6),
nama_barang varchar(30),
jenis varchar(30),
satuan enum('pcs','bh','kg'),
harga int(11),
primary key(kode_barang)
);

setelah sudah di buat database serta table dan field-field nya, baru anda buka visual basic nya
kemudian siapkan dan buat form 1 dan form 2 serta module untuk koneksi ke MySQL
di contoh ini saya menggunakan 2 form dan pake splashscreen, kalau anda ingin
mengikuti nya silakan saja, dan siapkan attribut toolbox button, label, commbo box, textbox,
dan datagridview.

sebelum nya pastikan anda sudah menginstall Mysql konektor di Pc/Laptop anda,
kalau anda belum punya silakan download [disini], disini saya menggunakan
MySQL konektor versi 5.2.7, karena tanpa MySQL konektor Visual basic tidak bisa
terkoneksi dengan database MySQL.
Cara pakai nya sangat lah mudah, klik project kemudian pilih Add Reference
setelah muncul add reference cari MySQL Data dan klik ok



selanjut nya buat module karena nanti nya untuk perintah mengkoneksikan ke MySQL
cara buat module nya, klik project di menu bar dan pilih add module
setelah muncul add module langsung saja klik add



isi code module untuk koneksi ke database MySQL, seperti ini
Imports MySql.Data.MySqlClient.MySqlConnection
Imports System.Data
Module Module1
    'koneksi mysql
    Public connDB As New MySql.Data.MySqlClient.MySqlConnection
    Public comDB As New MySql.Data.MySqlClient.MySqlCommand
    Public comBuilderDB As New MySql.Data.MySqlClient.MySqlCommandBuilder
    Public rdDB As MySql.Data.MySqlClient.MySqlDataReader
    Public da As MySql.Data.MySqlClient.MySqlDataAdapter
    Public dt As New DataTable
    Public myError As MySql.Data.MySqlClient.MySqlError
    Public SQL As String
    'cara manggil dbnya
    Public Sub conecDB()
        Dim strServer As String = "127.0.0.1"
        Dim strDbase As String = "nama database anda"
        Dim strUser As String = "root"
        Dim strPass As String = ""
        'mysql koneksi string
        If connDB.State <> ConnectionState.Open Then connDB.ConnectionString = "server=" & strServer.Trim & "; database=" & strDbase.Trim & "; user=" & strUser.Trim & "; password=" & strPass & " "
        If connDB.State <> ConnectionState.Open Then connDB.Open()
    End Sub
End Module

akan saya jelaskan sedikit dari code module di atas

Imports MySql.Data.MySqlClient.MySqlConnection
Imports System.Data > code ini berfungsi untuk memanggil atau terhubung nya
vb.net 2008 ke MySQL, coba saja jika anda tidak menggunakan code ini pasti akan error

Public connDB As New MySql.Data.MySqlClient.MySqlConnection
Public comDB As New MySql.Data.MySqlClient.MySqlCommand > membuat variabel
public class untuk koneksi ke MySQL

Public Sub conecDB()
        Dim strServer As String = "127.0.0.1"
        Dim strDbase As String = "nama database anda"
        Dim strUser As String = "root"
        Dim strPass As String = "" > memanggil database MySQL

buat contoh form 1 seperti ini
disini toolbox yang saya pakai MenuStrip dan Picturebox
terserah anda design se-kreatif anda sendiri ^_^
nah di bagian menustrip isi : File dan View, contoh ya
tambahkan input dropdown di view dengan nama barang


isi code nya mudah, klik 2x di barang, dan isi seperti ini
untuk menampilkan form 2
Form2.ShowDialog()

code diatas itu berfungsi untuk menampilkan form 2, karena sudah jelas showdialog()

cara buat form baru klik project klik add windows form klik add form
dibagian form 2 contoh design seperti ini
disini saya pakai toolbox button 5, textbox 4, label 5, combo box


isi code form 2, contoh seperti ini
Imports MySql.Data.MySqlClient.MySqlConnection
Imports System.Data
Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call conecDB()
        tampilgrid()
    End Sub
membuat sub kosong dan sub tampilgird
apa itu sub ? sub atau sub prosedur ialah Suatu blok program atau perintah yang
dijalankan sebagai tanggapan atas terbentuknya kejadian(event)
Sub kosong()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        ComboBox1.Text = ""
        TextBox5.Text = ""
        TextBox1.Focus()
    End Sub
    Sub tampilgrid()
        Call conecDB()
        dt = New DataTable 'untuk mengosongkan table
        SQL = ("SELECT * FROM barang")
        da = New MySql.Data.MySqlClient.MySqlDataAdapter(SQL, connDB)
        'untuk edit data gridview
        comBuilderDB = New MySql.Data.MySqlClient.MySqlCommandBuilder(da)
        da.Fill(dt)
        DG.DataSource = dt
        DG.Refresh()
    End Sub
oh iya karena saya ubah name datagridview1 menjadi DG
jadi jika anda kalau masih default name datagridview1, ubah DG nya sesuaikan
name datagridview nya yah, perintah ini untuk menyesuaikan isi data dari MySQL
Private Sub DG_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DG.MouseClick
        Dim i As Integer
        i = Me.DG.CurrentRow.Index
        With DG.Rows.Item(i)
            TextBox1.Text = .Cells(0).Value
            TextBox2.Text = .Cells(1).Value
            TextBox3.Text = .Cells(2).Value
            ComboBox1.Text = .Cells(3).Value
            TextBox5.Text = .Cells(4).Value
        End With
    End Sub
di code button 4 ini perintah reload/refresh
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        tampilgrid()
    End Sub
di code button 1 ini perintah tambah/insert
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error GoTo pesan
        SQL = "INSERT INTO barang VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & TextBox5.Text & "')"
        comDB = New MySql.Data.MySqlClient.MySqlCommand(SQL, connDB)
        comDB.ExecuteNonQuery()
        MsgBox("tambah data berhasil loh ^_^")
        tampilgrid()
        Exit Sub
pesan:  MsgBox("eits isi data dulu yah ^_^ nanti ga bakal masuk ^_<")
    End Sub
di code button 3 ini perintah delete
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        On Error GoTo pesan
        SQL = "DELETE FROM barang WHERE kode_barang='" & TextBox1.Text & "'"
        comDB = New MySql.Data.MySqlClient.MySqlCommand(SQL, connDB)
        comDB.ExecuteNonQuery()
        MsgBox("Hapus data berhasil loh ^_^")
        tampilgrid()
        Exit Sub
pesan:  MsgBox("eits pilih data dulu yah ^_^ nanti ga bakal bisa di delete ^_<")
    End Sub
di code button 5 ini perintah clear text karena pemanggilan dari sub kosong
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        kosong()
    End Sub
di button 2 ini perintah edit/update
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        On Error GoTo pesan
        SQL = "Update barang set kode_barang='" & TextBox1.Text & "',nama_barang='" & TextBox2.Text & "',jenis='" & TextBox3.Text & "',satuan='" & ComboBox1.Text & "',harga='" & TextBox5.Text & "'where kode_barang='" & TextBox1.Text & "'"
        comDB = New MySql.Data.MySqlClient.MySqlCommand(SQL, connDB)
        comDB.ExecuteNonQuery()
        MsgBox("edit data berhasil loh ^_^")
        tampilgrid()
        Exit Sub
pesan:  MsgBox("eits pilih data dulu yah ^_^ nanti ga bakal bisa di edit ^_<")
    End Sub
End Class



run program tekan f5


oke cukup mungkin itu saja yang bisa saya berbagi, kalau anda masih kurang mengerti
silakan komentar, dan jika ada kesalahan dan kekurangan nya mohon berikan masukan nya
ya mohon maaf nih kalau ada kesalahan ^_^

jika anda ingin belajar alur program sederhana ini silakan unduh dibawah ini


Password Rar : [gagaltotal666]

oh iya jika anda menggunakan MySQL konektor beda versi contoh 6.2.7 atau berapa lah
silakan anda mengulangi kembali perintah memakai MySQL data, karena kalau langsung
run program dari yang saya buat ini akan terjadi error jika MySQL konektor berbeda

oke mungkin itu saja tambahan nya, sekian dan semoga bermanfaat

Wasalamualaikum Wr.Wb...
Previous
Next Post »