Cara Cepat Simpan,Edit,Hapus,Cari

 Assalamualaikum Wr. Wb.

        Selamat siang teman-teman semoga dalam keadaan selahat selalu, kali ini saya akan membagikan tutorial Cara Cepat Simpan,Edit,Hapus,Cari Data di VB 6, walaupun ini cara cepat namun tidak terlalu banyak coding-coding yg di dibuat. Caranya sangat mudah simple dan mudah di pahami. ok langsung ke tutorialnya.

Buat Project baru, silahkan dengan form sesuai  dengan gambar di bawah ini :

kemudian koneksi database dengan menggunakan Adodc, bagi yang belum paham cara koneksi database dengan Adodc Silahkan Baca tutorial Koneksi Database dengan ADODC , tuliskan coding di bawah ini :

Private Sub Command1_Click()

With Me.Adodc1.Recordset

    .AddNew

    !kode_barang = Text1.Text

    !nama_barang = Text2.Text

    !satuan = Text3.Text

    !harga_jual = Text4.Text

    !stok = Text5.Text

    .Update

End With

HapusTxt

MsgBox "Data Tersimpan  ", vbInformation, ""

End Sub

Sub HapusTxt()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

With Me.Adodc1.Recordset

    !kode_barang = Text1.Text

    !nama_barang = Text2.Text

    !satuan = Text3.Text

    !harga_jual = Text4.Text

    !stok = Text5.Text

    .Update

End With

HapusTxt

MsgBox "Data Diperbaharui  ", vbInformation, ""

End Sub

Private Sub Command3_Click()

HapusTxt

End Sub

Private Sub Command4_Click()

Me.Adodc1.Recordset.Delete

Me.Adodc1.Recordset.MoveNext

MsgBox "Data Terhapus   ", vbInformation, ""

HapusTxt

End Sub

Private Sub DataGrid1_dblClick()

Text1.Text = Me.DataGrid1.Columns(0).Text

Text2.Text = Me.DataGrid1.Columns(1).Text

Text3.Text = Me.DataGrid1.Columns(2).Text

Text4.Text = Me.DataGrid1.Columns(3).Text

Text5.Text = Me.DataGrid1.Columns(4).Text

End Sub

Private Sub Text6_Change()

On Error GoTo Kembali

Me.Adodc1.Recordset.Filter = "nama_barang like '" & Text6.Text & "*'"

Set Me.DataGrid1.DataSource = Me.Adodc1

Exit Sub

Kembali:

    Me.Adodc1.Refresh

Exit Sub

End Sub

Sekarang Jalankan Program....

selamat Mencoba, Semoga berhasil....