Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu

Program simpan, edit, hapus pada Visual Basic (VB)

· · 20 comments
Assalamu'alaikum, wr.wb

Melengkapi artikel sebelumnya cara koneksi database acces di Visual Basic (VB) 6.0 dengan metode AdoDc , pada tutorial Visual Basic dasar di postingan kali ini  (entri data buku) kita akan membuat sebuah program sederhana dengan fasilitas simpan edit dan hapus data di Visual Basic (VB) 6.0 . Bagi sahabat yang masih kesulitan dalam membuat database acces sebagai fasilitas penyimpanan setiap entri data yang kita input silahkan baca artikel saya cara membuat database visual basic dengan visual data manager di VB 6.0 . Struktur database yang kita gunakan di program simpan, edit, hapus entri data buku kali ini adalah database yang telah di create dipembahasan sebelumnya disini. untuk sobat ingin blajar VB dari ebook silahkan baca tutorial VB .

Nama database : databuku.mdb
Nama tabel  : daftarbuku
Nama field : kode, judulbuku, penulis, tahunterbit

Desain Form entri data buku seperti gambar berikut :

cara buat edit hapus simpan data di VB 6.0
Bumi lancang kuning Riau


















Untuk pengaturan koneksi database AdoDc dan DataGrid silahkan baca artikel saya  Cara Koneksi Database di Visual Basic dengan AdoDc

Pada command simpan masukan formula berikut :
penambahan dialog box di command simpan ini saudara bisa lihat cara membuat messagebox atau dialogbox di visual basic.

Private Sub Command1_Click()

If Not Text1.Text = Empty Then
    With Adodc1.Recordset
        If Not .BOF = True Then
            .MoveFirst
            .Find "kode='" & Text1.Text & "'"
            If Not .EOF Then
                !kode = Text1.Text
                !judulbuku = Text2.Text
                !penulis = Text3.Text
                !tahunterbit = Text4.Text
                .Update
            Else
                .AddNew
                !kode = Text1.Text
                !judulbuku = Text2.Text
                !penulis = Text3.Text
                !tahunterbit = Text4.Text
                .Update
            End If
        Else
            .AddNew
            !kode = Text1.Text
            !judulbuku = Text2.Text
            !penulis = Text3.Text
            !tahunterbit = Text4.Text
            .Update
        End If
        DataGrid1.Refresh
    End With
End If
   Dim p As Integer
       p = MsgBox("Isi Data Lagi ?", vbInformation + vbYesNo, "Aplikasi Perpustakaan Danish. F")
       If p = vbYes Then
          Text1.Text = ""
          Text2.Text = ""
          Text3.Text = ""
          Text3.Text = ""
          Text4.Text = ""
          Text1.SetFocus
        Else
          End
       End If
End Sub


Logika program pencarian data yang akan kita buat di program sederhana entri data buku menggunakan Visual Basic (VB) 6.0 ini adalah,  ketika kita melakukan input kode buku di text1 diiringin tombol TAB (keyboard) maka program akan mencari data kode yang sama di database, jika ditemukan maka program akan menampilkan data-datanya (penulis, judul buku, tahun terbit) untuk selanjutnya dilakukan perbaikan atau pengeditan data yang diperlukan sebelum melakukan proses penyimpanan kembali, jika data dengan kode yang di input di text1 tidak ditemukan maka kursor akan pindah ke text2 untuk melanjutkan penginputan data. pahamkan kawan ???, hehehe. jika tidak orak opo2 lanjut saja, insyaallah setelah program sudah jadi kawan  juga akan tahu kaleesss apa yang saya maksud. wkwkwk.

















script yang untuk pencarian data akan kita tanamkan di text1 (kode) :

Private Sub Text1_LostFocus()
If Not Text1.Text = Empty Then
    With Adodc1.Recordset
        If Not .BOF = True Then
            .MoveFirst
            .Find "kode='" & Text1.Text & "'"
            If Not .EOF Then
                Text2.Text = !judulbuku
                Text3.Text = !penulis
                Text4.Text = !tahunterbit
               
            Else
                Text2.SetFocus
            End If
        Else
            Text2.SetFocus
        End If
    End With
End If

End Sub


Pada command Hapus data masukan formula berikut :

Private Sub Command4_Click()
If Not Text1.Text = Empty Then
    With Adodc1.Recordset
        If Not .BOF = True Then
            .MoveFirst
            .Find "kode='" & Text1.Text & "'"
            If Not .EOF Then
                .Delete
                Text1.Text = ""
                Text2.Text = ""
                Text3.Text = ""
                Text3.Text = ""
                Text4.Text = ""
                Text1.SetFocus
            End If
        End If
        DataGrid1.Refresh
    End With
End If
End Sub


Setelah proses penghapusan data dilakukan pada kode buku A9





Demikian tutorial membuat program sederhana entri data buku dilengkapi dengan fasilitas simpan, edit, hapus data , semoga bermanfaat. untuk variasi tampilan form sobat bisa membaca artikel saya membuat teks berjalan di judul form visual basic



Riau, 23 Sya'ban 1435/ 21 Juni 2014

Ketika IP conect 39 TKP Riau tak bersahabat
di koneksi drobear port 443



Content Creator by : DAnish Fathurrahman


20 comments:

  1. terimakasih info nya gan, ditunggu kunjungan balik nya
    http://salingkabar.blogspot.com/

    ReplyDelete
  2. terima kasih juga atas kunjungannya.
    Segera meluncur ke TKP :)

    ReplyDelete
  3. Terima kasih, atas tutorialnya, Kalau cara membuat aplikasi penyimpanan video di vb.06 bagaimana caranya?
    Tolong bantuan nya gan, maklum pemula :D

    ReplyDelete
  4. Terima kasih kembali atas kunjungannya mbak nurmala. untuk membuat aplikasi penyimpanan video belum ada saya tulis di blog ini. Saya kira itu sama dengan konsep penyimpanan file image. Insyaallah saya akan mencoba menulisnya kedepan.

    Saya juga nubifol, hehe.

    ReplyDelete
  5. Alhamdulillah sangat membantu, terimakasih :)

    ReplyDelete
  6. selalu muncul kuning pada tek ini:
    If Not .BOF = True Then
    mohon babtuannya

    ReplyDelete
  7. saya boleh reques ga menginput data pelanggan buat tugas akhir nihh heheh pusing pake php atau my sql atau java

    ReplyDelete
  8. Gan ane request boleh ga ?
    data input pelanggan buat tugas akhir heheh

    ReplyDelete
  9. Gan saya mau request
    Pada (.Find "kode=" & Text1.Text & "'") selalu muncul warna kuning, minta solusinya ya gam

    ReplyDelete
  10. Terimakasih Bang Atas Postingannya Cakep Tu Mantab Dan Bikin Ger dan semangat belajar.

    Oh Ya Bang Apakah Komponen OCX OsenXPSuite 2006 itu bisa Dipasang Di VB Net Mohon Solusi Ditunggu Balesannya,Maaf Masih Belajar

    DITUNGGU BALESANNYA DISINI PAK BOS

    ReplyDelete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan