Cara Input Ke Database Dengan VB 6.0

12:40:00 AM
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

Silahkan KLIK DISINI untuk download Project diatas

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

18 komentar

Write komentar
karanglotecno
AUTHOR
September 3, 2014 at 8:12 AM delete

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

makasih

Reply
avatar
Tutarni Aliya
AUTHOR
September 16, 2014 at 11:36 AM delete

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

Reply
avatar
Sardi aysard
AUTHOR
September 19, 2014 at 10:13 AM delete

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..

Reply
avatar
Sardi aysard
AUTHOR
September 19, 2014 at 10:23 AM delete

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..

Reply
avatar
Tutarni Aliya
AUTHOR
September 19, 2014 at 10:37 AM delete

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...

Reply
avatar
Tutarni Aliya
AUTHOR
September 19, 2014 at 10:41 AM delete

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

Reply
avatar
February 17, 2015 at 8:06 PM delete

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

Kalau iya, boleh kah saya meminta Aplikasi Mic Access nya

Terima Kasih

Reply
avatar
Tutarni Aliya
AUTHOR
February 17, 2015 at 8:16 PM delete

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

Reply
avatar
Tutarni Aliya
AUTHOR
April 18, 2015 at 10:52 AM delete

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?

Reply
avatar
ARI SUSANTO
AUTHOR
October 18, 2015 at 2:30 PM delete

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

Reply
avatar
Tutarni Aliya
AUTHOR
October 18, 2015 at 9:34 PM delete

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

Reply
avatar
fa goemelar
AUTHOR
October 26, 2015 at 9:12 AM delete

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

Reply
avatar
fa goemelar
AUTHOR
October 26, 2015 at 9:13 AM delete

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

Reply
avatar
wahyudi indra
AUTHOR
November 26, 2015 at 11:15 AM delete

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

Reply
avatar
Tutarni Aliya
AUTHOR
December 8, 2015 at 8:22 PM delete

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..

Reply
avatar
CumiBintang
AUTHOR
October 30, 2016 at 10:44 PM delete

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

Reply
avatar
Tutarni Aliya
AUTHOR
October 31, 2016 at 1:28 AM delete

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

Reply
avatar