Cara Input Ke Database Dengan VB 6.0

Pada pembelajaran VB 6.0 kali ini akan dibahas mengenai : Cara Input Ke Database Dengan VB 6.0

Berikut langkahnya :
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang dengan Design Tabel seperti gambar dibawah ini :

Baca Juga : Cara Hapus Database Menggunakan VB 6.0

2. Membuat Project VB 6.0 dan Design Form
Buka Aplikasi VB 6.0 anda
Simpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder tersebut
Kemudian buatlah Design Form seperti gambar dibawah ini :
Cara Input Ke Database Dengan VB 6.0
Masukan Koding dibawah ini :
Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
    Set Koneksi = New ADODB.Connection
    Set RSBarang = New ADODB.Recordset
    Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBBelajarvb.mdb"
End Sub
Private Sub Command1_Click()
    Call BukaDB
    If Text1 = "" Or Text2 = "" Or Text3 = "" Then
    MsgBox "Data Belum Lengkap"
    Else
    Dim TambahBarang As String
        TambahBarang = "Insert Into Barang values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
        Koneksi.Execute TambahBarang
        MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
        Call KondisiAwal
        Form_Activate
    End If
End Sub
Private Sub Command2_Click()
    End
End Sub
Private Sub Form_Activate()
    Call BukaDB
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBBelajarvb.mdb; "
    Adodc1.RecordSource = "Barang"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Load()
    Text1.MaxLength = 6
    Call KondisiAwal
End Sub
Sub KondisiAwal()
    Text1 = ""
    Text2 = ""
    Text3 = ""
End Sub

Silahkan Jalankan Aplikasi VB 6.0 anda. dan silahkan dicoba untuk Input data dan klik Simpan
Cara Input Ke Database Dengan VB 6.0
Mudah bukan??? Ikuti terus pembelajaran Visual Basic kami selanjutnya :)

Baca Juga : Cara Edit Database Menggunakan VB 6.0

Subscribe to receive free email updates:

18 Responses to "Cara Input Ke Database Dengan VB 6.0"

  1. cara Koneksi database Menggunakan Adodc gmn bu ? klo pke VB6 yg portable apa fiturnya beda ?

    makasih

    ReplyDelete
    Replies
    1. HI Karang,
      Source code VB diatas juga menggunakan adodc, atau bisa perjelas maksud dari pertanyan kamu seperti apa ya?

      Delete
  2. mbak.. cara buat tombol yang jika disentuh mouse akan muncul keterangannya..
    misalnya neh tombol Open,, jika tombol mouse di geser ke tombol itu maka akan muncul keterangan open.... maksih mbak sblmnya..

    ReplyDelete
    Replies
    1. Hi Sardi,
      Untuk itu saya belum pernah nyoba, tapi nanti saya coba carikan ya..
      Terima kasih :)

      Delete
  3. saya sudah coba mbak buat aplikasi diatas,, tpi kok masih ada maslah
    masalhny atuh di bagian kode dibawa ini (yang huruf KAPITAL)
    Dim TambahBarang As String
    TambahBarang = "Insert Into Barang values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
    KONEKSI.EXECUTE TAMBAHBARANG

    Mohon penerangannya...
    makasih sblmnya mbak..

    ReplyDelete
    Replies
    1. Hi Sardi,
      Jika dilihat koding mu diatas harusnya sih sudah benar,
      Mohon info nya Pesan Errornya apa ya? sebelum menuju ke huruf kapital, biasanya ada pesan errornya, mohon diinfokan ya...

      Delete
    2. iya sama,errornya di bagian itu
      pesan errornya ="syntax error in insert into statement."

      Delete
  4. Maaf Mba Turarni, Apakah ini menggunakan Microsoft Access 2003 ..?

    Kalau iya, boleh kah saya meminta Aplikasi Mic Access nya

    Terima Kasih

    ReplyDelete
    Replies
    1. Hi Irham,
      betul sekali, itu menggunakan database Access 2003.
      di komputer kamu menggunakan Microsoft Access versi berapa ya?

      Delete
  5. Replies
    1. Hi Bagus,
      RSBarang adalah singkatan dari RecordSetBarang, itu hanya penamaan saja.
      kamu juga bisa menggunakan dengan nama yang lain.
      kenapa saya namakan itu agar lebih bisa diingat untuk keperluan koding
      apakah cukup jelas?

      Delete
  6. MF MB KODING
    Dim Koneksi As New ADODB.Connection
    Dim RSBarang As ADODB.Recordset
    Sub BukaDB()
    Set Koneksi = New ADODB.Connection
    Set RSBarang = New ADODB.Recordset
    Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBBelajarvb.mdb" DI COPAZ DIMANA TERIMAKSAIH

    ReplyDelete
    Replies
    1. Hi Ari,
      Silahkan di copy semua koding diatas, pada Fom1 ya..
      Apakah ada kendala???

      Delete
  7. Maaf mbak, kalau untuk mencegah duplikasi data dari coding di atas gimana ya?

    ReplyDelete
  8. Maaf mbak, kalau untuk mencegah duplikasi data dari coding di atas gimana ya?

    ReplyDelete
    Replies
    1. Hi Fa,
      Ada banyak cara :
      1. Silahkan gunakan kode otomatis
      2. Buat Query jika kode ada yang sama, maka ada msgbox.
      dan masih banyak yang lainnya.

      Semoga membantu ya..

      Delete
  9. Makasih admin,,, post ini menambah ilmu saya... Ijin sedot dan sudah bisa di Running min...

    ReplyDelete
    Replies
    1. Hi cumi,
      Sama-sama, selamat belajar VB bersama belajarvb.com :)

      Delete