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