Assalammualaikum ....
Waaahh....akhirnya ada juuga waktu untuk membuat postingan lagi..lama rasa.a blog tercintaku ini ku biarkan..hehehe
oke..kali ini saya akan membagi ilmu tentang bagaimana melakukan sebuah fungsi CRUD (" Create ", " Update ", " Delete ") dan View menggunakan VB.Net 2005...
Tiap kali melihat desain form punya temen, fungsi-fungsi CRUD selalu berada didalam satu form...seperti pada contoh form dibawah ini
nah sekarang..bagaimana kalo fungsi CRUD tersebut ada di Form yang lain..misalnya ketika Tombol Tambah ditekan maka akan muncul Form Tambah, begitu juga seperti Tombol yang lainnya...
Oke..langsung ajah..sekarang kita coba untuk membuat Aplikasi Pendaftaran Praktikan Sederhana...
1. Buka VB.Net kalian......
2. Buat Sebuah Project varu dengan pilih File-->New-->Project...
Beri nama project sesuka kalian misal " cobacoba "
3. Kemudian disebelah kanan ada Solution Explorer..klik kanan nama project kalian..kemudian pilih Add Reference..Maka akan keluar kotak dialog..pilih pada bagian .NET...Karena disini saya memakai database MySql..maka pilih MySql.Data..kemudian OK...Seperti pada gambar dibawah ini
4. Buat Sebuah module..Dengan klik kanan nama project, kemudian pilih Add-->New Item-->Module...dan berilah nama Koneksi...Kemudian Ketikan potongan Code berikut ini :
Imports MySql.Data.MySqlClient.MySqlConnection
Module koneksi
Public comm As New MySql.Data.MySqlClient.MySqlCommand
Public da As New MySql.Data.MySqlClient.MySqlDataAdapter
Public ds As New DataSet
Public conn As New MySql.Data.MySqlClient.MySqlConnection
Public Sub konek(ByVal server As String, ByVal user As String, ByVal pass As String, ByVal db As String)
If conn.State = ConnectionState.Closed Then
Dim myString As String = "server=" & server _
& ";user=" & user _
& ";password=" & pass _
& ";database=" & db
Try
conn.ConnectionString = myString
conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
MsgBox("Koneksi Gagal")
End
End Try
End If
End Sub
Public Sub disconnect()
Try
conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
End Try
End Sub
End Module
5. Kemudian design form kalian seperti gambar dibawah ini...dengan memanfaatkan menu toolbox yang ada di sebelah kiri ..
Kemudian pada ComboBox, pilih properties--items, dimana items yang ada didalam ComboBox berisi Npm, Nama dan Sesi...kemudian double klik pada form..dan ketikan kode berikut:
Imports MySql.Data.MySqlClient.MySqlConnection
Public Class dataPraktikan
Public dai As New MySql.Data.MySqlClient.MySqlDataAdapter
Public dsi As New DataSet
Public Sub tampil()
ds.Clear() 'utk menghapus data lama di memory/g double
Dim query As String
query = "Select * from praktikan"
comm.CommandText = query
da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
da.Fill(ds, "praktikan")
tablePraktikan.DataSource = ds.Tables("praktikan").DefaultView
tablePraktikan.ReadOnly = True 'supaya data d grid tidak bisa diubah
End Sub
Public Sub Editdata()
Try
ubahPraktikan.txtNPM.Text = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 0)
ubahPraktikan.txtNama.Text = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 1)
ubahPraktikan.comSesi.SelectedItem = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 2)
ubahPraktikan.txtNPM.Enabled = False
ubahPraktikan.Show()
Catch ex As Exception
End Try
End Sub
Sub cari()
ds.Clear()
Dim query As String
If comboCari.SelectedItem.ToString.Contains("Nama") Then
query = "Select * from praktikan Where nama like '%" & txtCari.Text & "%'"
comm.CommandText = query
da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
da.Fill(ds, "praktikan")
tablePraktikan.DataSource = ds.Tables("praktikan").DefaultView
tablePraktikan.ReadOnly = True
ElseIf comboCari.SelectedItem.ToString.Contains("NPM") Then
query = "Select * from praktikan Where npm like '%" & txtCari.Text & "%'"
comm.CommandText = query
da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
da.Fill(ds, "praktikan")
tablePraktikan.DataSource = ds.Tables("praktikan").DefaultView
tablePraktikan.ReadOnly = True
ElseIf comboCari.SelectedItem.ToString.Contains("Sesi") Then
query = "Select * from praktikan Where sesi like '%" & txtCari.Text & "%'"
comm.CommandText = query
da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
da.Fill(ds, "praktikan")
tablePraktikan.DataSource = ds.Tables("praktikan").DefaultView
tablePraktikan.ReadOnly = True
End If
End Sub
Private Sub dataPraktikan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
konek("localhost", "root", "", "psi")
tampil()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tp As New tambahPraktikan()
tp.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Editdata()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
hapus()
Catch ex As Exception
End Try
End Sub
Sub hapus()
ubahPraktikan.txtNPM.Text = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 0)
ubahPraktikan.txtNama.Text = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 1)
ubahPraktikan.comSesi.SelectedItem = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 2)
Dim tanya As DialogResult
tanya = MessageBox.Show("Yakin akan menghapus recordini??", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If tanya = Windows.Forms.DialogResult.Yes Then
Dim query As String
query = "delete from praktikan where npm= '" & ubahPraktikan.txtNPM.Text & "' "
comm.CommandText = query
da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
da.Fill(ds, "praktikan")
MessageBox.Show("Data sudah dihapus", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
tampil()
End If
End Sub
Private Sub btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click
Try
cari()
If txtCari.Text = "" Then
MsgBox("Data Tidak ada")
tampil()
End If
Catch ex As Exception
End Try
End Sub
End Class
6. Nah sekarang klik kanan pada nama project kalian...kemudian pilih Add-->New Item-->Windows Form-->Add...Maka akan muncul Halaman Form kosong..form kosong tersebut yag akan kita gunakan sebagai form tambah..jadi ketika Tombol tambah ( No.4 ) ditekan..maka Form tambah inilah yang akan tampil..Design seperti dibawah ini
Kemudian double klik pada form dan ketikan code beikut :
Imports MySql.Data.MySqlClient.MySqlConnection
Public Class tambahPraktikan
Sub simpan()
Dim query As String
query = "Insert Into praktikan values (" & _
"'" & txtNPM.Text & "'" & _
",'" & txtNama.Text & "'" & _
",'" & comSesi.SelectedItem & "')"
comm.CommandText = query
da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
da.Fill(ds, "praktikan")
MessageBox.Show("Data Tersimpan")
End Sub
Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
Me.Close()
End Sub
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
If txtNPM.Text = "" Or txtNama.Text = "" Then
MsgBox("Tidak Boleh ada yang kosong!!")
ElseIf Len(txtNPM.Text) > 10 Then
MsgBox("NPM Tidak boleh > 10 Digit!!")
ElseIf Len(txtNPM.Text) < 10 Then
MsgBox("NPM Tidak boleh < 10 Digit!!")
ElseIf Not IsNumeric(txtNPM.Text) = True Then
MsgBox("NPM harus angka")
Else
simpan()
dataPraktikan.tampil()
Me.Close()
End If
End Sub
End Class
7. Nah sekarang klik kanan pada nama project kalian...kemudian pilih
Add-->New Item-->Windows Form-->Add...Maka akan muncul Halaman
Form kosong..form kosong tersebut yag akan kita gunakan sebagai form Ubah..jadi ketika Tombol Ubah ( No.4 ) ditekan..maka Form Ubah
inilah yang akan tampil..Design seperti dibawah ini
Kemudian double klik pada form dan ketikan code berikut ini :
Imports MySql.Data.MySqlClient.MySqlConnection
Public Class ubahPraktikan
Private Sub ubahPraktikan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dataPraktikan.Editdata()
End Sub
Sub ubah()
Dim query As String
query = "Update praktikan SET " & _
"nama='" & txtNama.Text & ",'" & _
",sesi='" & comSesi.SelectedItem & "'" & _
" WHERE npm like '" & txtNPM.Text & "'"
comm.CommandText = query
da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
da.Fill(ds, "praktikan")
MessageBox.Show("Data berhasil diubah")
dataPraktikan.tampil()
Me.Close()
End Sub
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
If txtNama.Text = "" Then
MessageBox.Show("Nama Tidak Boleh kosong!!")
Else
ubah()
End If
End Sub
Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
Me.Close()
End Sub
End Class
Selamat mencoba..semoga bermanfaat :)
Selengkapnya -
Fungsi Insert, Update, Delete , View di VB.Net 2005