VB6.0 :: Cara Membuat Input, Hapus, Edit, Cari Data Dengan Visual Basic 6.0

Cara Membuat Input, Hapus, Edit, Cari Data Dengan Visual Basic 6.0

1. Jalankan program visual basic 6.0 
2. Buat form seperti gambar di bawah ini. jika sudah nanti anda tinggal mengisi source code dari form- form yang sudah di buat seperti ini :

3. Jangan lupa untuk membuat modul yang di fungsikan untuk pengkoneksian data base access. dengan nama "Module1" dan isilah koding seperti di bawah ini :

Public koneksi As ADODB.Connection
Public rs1 As ADODB.Recordset
Public rs2 As ADODB.Recordset
Public rs3 As ADODB.Recordset
Public profil As Integer 'VARIABLE YG MENENTUKAN ADMIN ATAU OPERATOR
Public nopeltiket As String 'VARIABLE TIKET LAN KONCO2
Public jamtiket As Date
Public tanggaltiket As Date

Sub starkoneksi()
Set koneksi = New ADODB.Connection
  If koneksi.State = adStateOpen Then
        koneksi.Close
        Set koneksi = New ADODB.Connection
  End If
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbsewa.mdb"
End Sub

4. Memulai pengisian koding pada form2 yang sudah kita buat seperti di atas dengan koding di bawah ini :

Private Sub urip()
txtidpenyewa.Enabled = True
txtnama.Enabled = True
txtalamat.Enabled = True
txtlahir.Enabled = True
DTPicker1.Enabled = True
cmbjeniskel.Enabled = True
txtpekerjaan.Enabled = True

End Sub
Private Sub mati()
txtidpenyewa.Enabled = False
txtnama.Enabled = False
txtalamat.Enabled = False
txtlahir.Enabled = False
DTPicker1.Enabled = False
cmbjeniskel.Enabled = False
txtpekerjaan.Enabled = False
End Sub
Private Sub bersih()
txtidpenyewa.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtlahir.Text = ""
cmbjeniskel.Text = ""
txtpekerjaan.Text = ""
End Sub

Koding diatas difungsikan untuk mempermudah atau mempersingkat pengkodingan dalam program ini, maka dari itu saya buatkan fungsi-fungsi seperti diatas agar gapat mempersingkat koding dan mudah dalam pengkodingan

5. buat koding 'Tambah' pada Command1Buttem yang bernama"Command1" seperti di bawah ini ya...

Private Sub Command1_Click()
Command2.Enabled = False
Command3.Enabled = False
If Command1.Caption = "Tambah" Then
Call urip
Call bersih
Command1.Caption = "Simpan"
   
ElseIf Command1.Caption = "Simpan" Then
If txtidpenyewa.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" Or txtlahir.Text = "" Or cmbjeniskel.Text = "" Or txtpekerjaan.Text = "" Then
MsgBox "DATA BELUM LENGKAP", vbCritical, "PERIKSALAH LAGI"
Else
pertanyaan = MsgBox("Apakah Anda Yakin...??", vbYesNo, "Pertanyaan")
 If pertanyaan = vbYes Then
 adopenyewa.Recordset.AddNew
    adopenyewa.Recordset!idpenyewa = txtidpenyewa.Text
    adopenyewa.Recordset!nama = txtnama.Text
    adopenyewa.Recordset!alamat = txtalamat.Text
    adopenyewa.Recordset!tempatlahir = txtlahir.Text
    adopenyewa.Recordset!tgllahir = Format(DTPicker1.Value, "dd/mm/yyyy")
    adopenyewa.Recordset!jeniskelamin = cmbjeniskel.Text
    adopenyewa.Recordset!pekerjaan = txtpekerjaan.Text
    adopenyewa.Recordset.Requery
    MsgBox "Data Berhasil di Simpan", vbInformation, "Simpan Data"
    Command1.Enabled = True
    Call mati
    Command1.Caption = "Tambah"
End If
End If
End If
End Sub

6. Jika sudah buat koding seperti di bawah ini pada "Command2" yang digunakan untuk 'Edit' adapun koding nya seperti di bawah ini :

Private Sub Command2_Click()

Command1.Enabled = False
Command3.Enabled = False
If Command2.Caption = "Edit" Then
Call urip
txtidpenyewa.Text = adopenyewa.Recordset!idpenyewa
txtnama.Text = adopenyewa.Recordset!nama
txtalamat.Text = adopenyewa.Recordset!alamat
txtlahir.Text = adopenyewa.Recordset!tempatlahir
DTPicker1.Value = adopenyewa.Recordset!tgllahir
cmbjeniskel.Text = adopenyewa.Recordset!jeniskelamin
txtpekerjaan.Text = adopenyewa.Recordset!pekerjaan
Command2.Caption = "Simpan"
   
ElseIf Command2.Caption = "Simpan" Then
If txtidpenyewa.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" Or txtlahir.Text = "" Or cmbjeniskel.Text = "" Or txtpekerjaan.Text = "" Then
MsgBox "DATA BELUM LENGKAP", vbCritical, "PERIKSALAH LAGI"
Else
pertanyaan = MsgBox("Apakah Anda Yakin Merubah Datanya...??", vbYesNo, "-Pertanyaan-")
 If pertanyaan = vbYes Then
    adopenyewa.Recordset.Update
    adopenyewa.Recordset!idpenyewa = txtidpenyewa.Text
    adopenyewa.Recordset!nama = txtnama.Text
    adopenyewa.Recordset!alamat = txtalamat.Text
    adopenyewa.Recordset!tempatlahir = txtlahir.Text
    adopenyewa.Recordset!tgllahir = Format(DTPicker1.Value, "dd/mm/yyyy")
    adopenyewa.Recordset!jeniskelamin = cmbjeniskel.Text
    adopenyewa.Recordset!pekerjaan = txtpekerjaan.Text
    adopenyewa.Recordset.Requery
    MsgBox "Data Berhasil di Rubah", vbInformation, "Simpan Data"
    Call mati
    Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
End If
End If
End If
End Sub
7. Koding hapus data dapat anda ketik kan seperti di bawah pada Command5 dengan nama 'Hapus'

Private Sub Command5_Click()
MsgBox "anda yakin menghapus data ini", vbOKOnly, "PERTANYAAN"
adopenyewa.Recordset.Delete
adopenyewa.Recordset.Requery
End Sub

8. Lalu untuk buttom "Batal" anda ketikkan koding seperti di bawah ini ..

Private Sub Command4_Click()
Command1.Enabled = True
Call bersih
Command1.Caption = "Tambah"
End Sub

9. Untuk DataGrid1 anda harus menambahkan koding dibawah ini agar ketika diklik untuk edit dan hapus datanya bisa tampil.

Private Sub DataGrid1_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
txtidpenyewa.Text = adopenyewa.Recordset!idpenyewa
txtnama.Text = adopenyewa.Recordset!nama
txtalamat.Text = adopenyewa.Recordset!alamat
txtlahir.Text = adopenyewa.Recordset!tempatlahir
DTPicker1.Value = adopenyewa.Recordset!tgllahir
cmbjeniskel.Text = adopenyewa.Recordset!jeniskelamin
txtpekerjaan.Text = adopenyewa.Recordset!pekerjaan
End Sub

10. Untuk yang terakhir kalinya anda tambahkan koding pada Form_Load agar ketika program input, hapus, edit dapat menampilkan datanya pada DataGrid 

Private Sub Form_Load()
Call starkoneksi
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from tbpenyewa", koneksi, adOpenStatic
End Sub