Hey sob,. postingan pertama ane ini, ane akan berbagi sedikit tentang tutorial membuat program CRUD pada Visual Basic 6.0 dan Microsoft Acces 2010. Hah.. CRUD itu apa?? Nah, CRUD itu adalah singkatan dari Create buat, Read (baca), Update (pembaharuan), Delete (hapus). Keempat aktifitas ini dapat kita jumpai dalam Data Base.. Untuk lebih memahaminya langsung aja kita praktekin yuuk...
Sebelumnya sobat harus Membuat DataBase nya terlebuh dahulu, jika belum sobat bisa di lihat di sini
Cara Bikin Program CRUD di Microsoft Visual Basic 6.0
1. Pertama dan utama sekali kita buka program Microsoft Visual Basic 6.0dengan cara meng-klik Start > All Programs > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0
2. Selanjutnya akan muncul kotak dialog New Project, pilih Standart EXE, lalu klik Open.
3. Ok, kalau sudah muncul tampilan seperti gambar di bawah ini,
4. Sekarang kita akan membuat UI (User Interface), tampilanya seperti gambar dibawah ini:
5. Eh.. kok bisa gitu, caranya gimana?? Caranya.. kalian gunakan tool yang ada di sebelah kiri seperti gambar dibawah ini:
6. Tools yang dapat sobat pakai adalah:
Yang no: 1 = Label1
2 = Label2
3 = Text1
4 = Text2
5 = Command1
6 = Command2
7 = Command3
8 = Command4
9 = Adodc1
10 = DataGrid1
11 = Command5
Kalau buat propeties masing2 komponen disesuaikan aja,. Kalau buat koponen Adodc1 visible = FALSE, biar pas dijalanin programnya dia tidak muncul.
7. Pada Command1 ubah name nya menjadi cmdsimpan dan caption menjadi simpan ketikan kode sebagai berikut:
If txtkdguru.Text = "" Or _
txtnip.Text = "" Or _
txtnamaguru.Text = "" Then
MsgBox " Data masih kosong ", vbInformation, "Informasi"
Else
With adoguru.Recordset
.AddNew
!kode_guru = txtkdguru.Text
!nip_guru = txtnip.Text
!nama_guru = txtnamaguru.Text
.Update
End With
Form_Load
End If
8. Lalu, Pada Command2 ubah name nya menjadi cmdubah dan caption menjadi ubah ketikan kode sebagai berikut:
Private Sub cmdubah_Click()
If txtkdguru.Text = "" Or _
txtnip.Text = "" Or _
txtnamaguru.Text = "" Then
MsgBox " Data masih kosong ", vbInformation, "Informasi"
Else
With adoguru.Recordset
!kode_guru = txtkdguru.Text
!nip_guru = txtnip.Text
!nama_guru = txtnamaguru.Text
.Update
End With
Form_Load
End If
End Sub
13. Pada Command3 ubah name nya menjadi cmdhapus dan caption menjadi hapus ketikan kode sebagai berikut:
Private Sub cmdhapus_Click()
If txtkdguru.Text = "" Or _
txtnip.Text = "" Or _
txtnamaguru.Text = "" Then
MsgBox "MOHON PERIKSA KEMBALI !", vbInformation, _
"INFORMASI"
Else
Hapus = _
MsgBox("anda yakin akan menghapus data ini ??", _
vbYesNo + vbInformation, "penghapusan")
If Hapus = vbYes Then
With adoguru.Recordset
.Delete
End With
Form_Load
Else
Exit Sub
End If
End If
End Sub
14. Pada Command4 ubah name nya menjadi cmdkeluar dan caption menjadi keluar ketikan kode sebagai berikut:
Private Sub cmdkeluar_Click()
If cmdkeluar.Caption = "KELUAR" Then
Unload Me
Else
Form_Load
End If
End Sub
16. Pada DataGrid1 ketikan kode sebagai berikut:
Private Sub DataGrid1_Click()
On Error Resume Next
txtkdguru.Text = DataGrid1.Columns(0)
txtnip.Text = DataGrid1.Columns(1)
txtnamaguru.Text = DataGrid1.Columns(2)
txtkdguru.SetFocus
cmdsimpan.Enabled = False
cmdubah.Enabled = True
cmdhapus.Enabled = True
cmdkeluar.Enabled = "&BATAL"
End Sub
17. Sekarang programnya udah jadi, tinggal di jalanin aja. Selamat mencoba untuk source code nya silahkan ambil disini
0 Response to "Cara simple membuat CRUD pada Visual Basic 6.0 dan Microsoft Acces "
Posting Komentar