PROGRAM SEDERHANA SIMPAN,EDIT,HAPUS

Pada postingan kali ini ,saya akan menjelaskan tentang cara membuat program sederhana simpan,edit dan hapus data dalam suatu form.Selamat membaca !

Langkah-langkah pembuatan database(jika belum tahu langkah-langkahnya bisa dilihat pada postingan saya sebelumnya) :

Pada program kali ini struktur database yang saya gunakan adalah Microsoft Access,dengan rincian sebagai berikut :
1.Nama Database : caridata.mdb
2.Nama Tabel : tbcaridata
3.Field dari tbmhs : nim,namasiswa
4.Type Data : semua field (short text) dengan size masing-masing 50

Save Database dan buka visual basic 6.0 anda.

1.Tarik 2 Label,2 Textbox dan 4 Commandbutton.
2.Ubah Caption Label menjadi Nomor Induk Siswa dan Nama Siswa
3.Hapus Caption pada Textbox menjadi kosong
4.Ubah Caption Commandbutton menjadi Simpan Data,Edit Data,Hapus Data dan Exit
5.Untuk Name pada Textbox ubah menjadi nim dan nama
6.Untuk Name pada CommandButton ubah menjadi simpan,edit,hapus dan exit
7.Kemudian hubungkan form dengan database
8.Pertama tariklah Adodc dan datagrid ke dalam form(caranya ada di postingan sebelumnya)
9.Kemudian pada adodc klik kanan pilih properties,dan pilih build Microsoft OLEDB 4.0 Provider dan cari database yang tadi anda simpan.
10.Kemudian Test Connection apabila sudah successful,klik Ok,dan pilih tab RecordSource ,pilih acmd Text dan ketikkan di kolom Command Text (SQL) select * from tbcaridata,pilih OK.
11.Pada datagrid anda,lihat di properties nya ,dan cari datasoure ,pilih Adodc1 dan ubah name datagrid anda menjadi "data"
12.Setelah itu ketikkan coding berikut

CODE PROGRAM

Private Sub TampilkanKeTextBox()
    Adodc1.RecordSource = "select * from tbcaridata where nim ='" & IDKelas & "'"
 
    nim.Text = Adodc1.Recordset.Fields(0)
    nama.Text = Adodc1.Recordset.Fields(1)
End Sub

Private Sub data_Click()
    TampilkanKeTextBox
    simpan.Enabled = False
End Sub

Private Sub simpan_Click()
If nim.Text = "" Or nama.Text = "" Then
    MsgBox ",Data Belum Lengkap", vbInformation, "DATA"
Else
    Adodc1.Recordset.AddNew
    Adodc1.Recordset!nim = nim.Text
    Adodc1.Recordset!namasiswa = nama.Text
    Adodc1.Recordset.Update
 
    nim.Text = ""
    nama.Text = ""
End If
End Sub


Private Sub edit_Click()
    If nim.Text = "" Or nama.Text = "" Then
    MsgBox "Pilih Data Yang Ingin Diedit atau Dihapus", vbInformation, "DATA"
    Else
    Adodc1.Recordset.Update
    Adodc1.Recordset!nim = nim.Text
    Adodc1.Recordset!namasiswa = nama.Text

    nim.Text = ""
    nama.Text = ""
    simpan.Enabled = True
End If
End Sub

Private Sub hapus_Click()
    If nim.Text = "" Or nama.Text = "" Then
    MsgBox "Pilih Data Yang Ingin Diedit atau Dihapus", vbInformation, "DATA"
    Else
    Adodc1.Recordset.Delete
    End If
 
    nim.Text = ""
    nama.Text = ""
    simpan.Enabled = True
End Sub

Private Sub exit_Click()
    If MsgBox("Anda Ingin Keluar ?", vbYesNo, "DATA") = vbNo Then
        Cancel = 1
        nim.SetFocus
        Else
    End
    End If
End Sub

Hasilnya akan menjadi seperti gambar di bawah



Silahkan mencoba untuk menyimpan data,edit data dan hapus data !Jika ada coding atau penjelasan yang kurang jelas bisa ditanyakan di comment box.Semoga ilmu yang dibagikan dapat bermanfaat.Terima Kasih !

Comments