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...

Post a Comment

0 Comments