Membuat Aplikasi Crud Di Vb.Net Dengan Database Mysql (Part 1)
halo sobat blogger semuanya, lama tidak berjumpa…, balik lagi bersama saya guzko di coretan coretan kecil ini. Mudah mudahan mampu mengatakan sedikit manfaat bagi agan agan blogger semuanya.
setuju kali ini saya mau membahas bagaimana caranya membuat fitur insert atau tambah data dari vb.net ke database mysql. berikut tahapannya gan :
1. MENAMBAHKAN OBJECT REFERENCE PADA VB.NET
jikalau agan belum sempet membaca gesekan pena di blog saya sebelumnya, agan mampu baca disini ihwal cara membuat koneksi serta menambahkan object reference…baca disini gan.
2. MEMBUAT TABEL DATABASE
pada tahap ini kita akan membuat tabel untuk databasenya. silahkan agan buat database dengan nama “pelanggan” (tanpa tanda petik) dan kemudian agan buat sebuah tabel dalam database pelanggan dengan nama “user” (tanpa tanda petik). struktur tabel seperi gambar berikut gan :
3. MEMBUAT MODUL KONEKSI
kemudian kita lanjut ke tahapan yang kedua, kita akan membuat modul koneksinya. silahkan agan ketikkan instruksi berikut ini :
ketikkan instruksi ini pada serpihan paling atas atau di general declaration
Imports MySql.Data.MySqlClient Imports MySql.Data
fungsinya instruksi diatas ialah untuk menambahkan mysql.data pada aplikasi yang akan kita buat sehingga mampu tersambung atau terhubung dengan database mysql.
kemudian ketikkan instruksi dibawah ini :
Public konek As String = "SERVER = localhost;USERID = root; PASSWORD = ;DATABASE = pelanggan; Convert Zero Datetime = True; Allow Zero Datetime = True;" Public sqlConnection As New MySqlConnection Public sqlCommand As New MySqlCommand Public sqlAdapter As New MySqlDataAdapter Public konfirmasi As New MsgBoxResult Public sqlReader As MySqlDataReader Public cur As New Form
ganti settingan koneksi ke database diatas dengan settingan xampp agan sendiri.
kemudian kita akan buat instruksi untuk buka tutup databasenya, kodenya mirip dibawah ini gan :
Public Sub bukaDB() If sqlConnection.State = ConnectionState.Closed Then sqlConnection.ConnectionString = konek sqlConnection.Open() 'MsgBox("sukses") End If End Sub Public Sub TutupDB() With sqlConnection .Dispose() .Close() End With End Sub
instruksi lengkap module koneksi mirip ini gan :
Imports MySql.Data.MySqlClient Imports MySql.Data Module modKoneksi Public konek As String = "SERVER = localhost;USERID = root; PASSWORD = ;DATABASE = dbusb; Convert Zero Datetime = True; Allow Zero Datetime = True;" Public sqlConnection As New MySqlConnection Public sqlCommand As New MySqlCommand Public sqlAdapter As New MySqlDataAdapter Public konfirmasi As New MsgBoxResult Public sqlReader As MySqlDataReader Public cur As New Form Public Sub bukaDB() If sqlConnection.State = ConnectionState.Closed Then sqlConnection.ConnectionString = konek sqlConnection.Open() 'MsgBox("sukses") End If End Sub Public Sub TutupDB() With sqlConnection .Dispose() .Close() End With End Sub End Module
4. MEMBUAT DESIGN DAN CODING INSERT DATA
setelah kita membuat modul koneksi, sekarang waktunya kita mendesain gan.., desain simple saya mirip ini. silahkan kreasikan desain agan sendiri :
pada gambar diatas terdapat 4 buah textbox yang fungsinya untuk menampung data yang akan disimpan. Disamping textbox ID Pelanggan terdapat sebuah button untuk meng-generate id gres untuk pelanggan baru. Sedangkan fungsi button simpan dan hapus data ialah sudah jelas untuk menghapus dan menyimpan data gan. Dan dibagian bawah ada sebuah datagrid yang fungsinya untuk menampilkan data yang kita simpan tadi, jadi data yang disimpan secara realtime akan pribadi kelihatan di datagrid.
setuju gan, cukup jelas ya untuk penjelasan desainnya, sekarang kita lanjut ke tahap codingnya :
kita buat sebuah fungsi dimana pada dikala diload atau pada dikala proses simpan selesai, inputan sudah bersih dan kosong, kodenya mirip ini :
Sub segarkan() txtIDPelanggan.Text = "" txtAlamatPelanggan.Text = "" txtNamaPelanggan.Text = "" txtNoTelp.Text = "" txtIDPelanggan.Focus() txtIDPelanggan.Enabled = False End Sub
dimana instruksi tersebut akan ditaruh pada dikala form load
instruksi untuk button id gres :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click 'membuat instruksi pelanggan gres dengan menggunakan kombinasi 'awalan PEL dengan tanggal dan tahun serta dengan jam menit dan detik pada waktu dicreate txtIDPelanggan.Text = "PEL" & DateTime.Now.ToString("ddyy") & DateTime.Now.ToString("HHmmss") End Sub
fungsi instruksi diatas ialah untuk membuat id pelanggan gres dimana id pelanggan gres itu diambil berdasarkan : awal “PEL” dikombinasikan dengan tanggal dan tahun serta dengan jam,menit dan detik pada dikala dibuat.
kemudian pada event keypress text no telp, inputkan instruksi berikut ini :
Private Sub txtNoTelp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNoTelp.KeyPress If Not (e.KeyChar >= "0" And e.KeyChar <= "9" Or e.KeyChar = vbBack) Then e.Handled = True End If End Sub
dimana fungsi dari instruksi diatas ialah untuk mencegah user menginputkan nilai selain angka kemudian buat sebuh sub yang bernama sub aturtampilan dan ketik instruksi dibawah ini :
Try With DataGridView1 .Columns(0).Width = 100 .Columns(0).HeaderText = "ID Pelanggan" .Columns(1).Width = 200 .Columns(1).HeaderText = "Nama Pelanggan" .Columns(2).Width = 250 .Columns(2).HeaderText = "Alamat Pelanggan" .Columns(3).Width = 100 .Columns(3).HeaderText = "No. Telp" End With Catch ex As Exception End Try
fungsi dari instruksi diatas ialah untuk mengatur tampilan datagrid kemudian buat kembali sub dengan nama sub tampilpelanggan dengan instruksi berikut :
Try bukaDB() Dim mDA As New MySqlDataAdapter("SELECT * FROM user", konek) Dim dt As New DataTable mDA.Fill(dt) DataGridView1.DataSource = dt Catch ex As Exception MsgBox(ex.Message) End Try
dan letakkan kedua sub diatas pada dikala form load selanjutnya, pada button hapus data ketikkan instruksi berikut ini :
Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click txtIDPelanggan.Text = "" txtNoTelp.Text = "" txtNamaPelanggan.Text = "" txtAlamatPelanggan.Text = "" txtIDPelanggan.Focus() End Sub
kemudian sekarang kita masuk pada code intinya ialah instruksi simpannya, ketikka instruksi berikut ini :
Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click 'membuat validasi input If txtIDPelanggan.Text = "" Then MsgBox("Klik tombol id gres untuk membuat instruksi pelanggan", vbExclamation, "Tutorial Blog Guzko") cmdBaru.Focus() Exit Sub ElseIf txtNamaPelanggan.Text = "" Then MsgBox("Kolom nama pelanggan harus diisi", vbExclamation, "Tutorial Blog Guzko") txtNamaPelanggan.Focus() Exit Sub ElseIf txtAlamatPelanggan.Text = "" Then MsgBox("Kolom alamat pelanggan harus diisi", vbExclamation, "Tutorial Blog Guzko") txtAlamatPelanggan.Focus() Exit Sub ElseIf txtNoTelp.Text = "" Then MsgBox("kolom no telp pelanggan harus diisi", vbExclamation, "Tutorial Blog Guzko") txtNoTelp.Focus() Else Dim sqlSimpan As String = "INSERT INTO user(idPelanggan,namaPelanggan,alamatPelanggan,noTelpPelanggan)" & _ "VALUES('" & txtIDPelanggan.Text & "','" & txtNamaPelanggan.Text & "','" & txtAlamatPelanggan.Text & "', " & _ "'" & txtNoTelp.Text & "')" Try With sqlCommand .CommandText = sqlSimpan .Connection = sqlConnection .ExecuteNonQuery() tampilPelanggan() aturTampilan() segarkan() MsgBox("Data Pelanggan Berhasil Disimpan", vbInformation, "Tutorial Blog Guzko") End With Catch ex As Exception MsgBox(ex.Message) sqlCommand.Dispose() TutupDB() End Try End If End Sub
silahkan sekarang agan jalankan agenda diatas, jikalau sesuai prosedur kesudahannya akan mirip ini gan :
jika aga ingin melihat dan mendownload source lengkapnya, mampu di download melalui link yang telah saya sediakan dibawah. sekian dulu, dech udah lumayan pegel ni tangan ngetik, hehe.. kita sambung lagi tutorialnya dilain waktu... seeee uuuuu ...........
Sumber http://guz-kopyok.blogspot.com/