Home » , , , , » Cara Koneksi database Office Access ke Visual Basic 6.0 (VB)

Cara Koneksi database Office Access ke Visual Basic 6.0 (VB)



Langkah-langkahnya sebagai berikut :



  • Buat Database Microsoft Office Access, disini saya menggunakan Microsoft Office Access 2007, yang lain sesuaikan... :D
  • Simpan didalam folder dimana project kita akan di simpan (save) dengan format db_barang.mdb..



  • klick Create..
  • Buat sebuah tabel dengan nama "barang"
  • Kemudian desain fieldnya sebagai berikut :

Field Name

Data Type

Field Size

Format

kode_barang
Text
5
nama_barangText
25
jenis_barangText
15
harga_barangCurrencyCurrency (Rp.xxx.xxx)
jumlahNumber
Long Integer

  • Kemudian buka Visual Basic 6.0, pilih VB Enterprise Edition Control.
  • Kemudian Desain Form seperti dibawah ini :

  • Berikut SourceCode nya :

Dim db As Connection
Dim rs As Recordset

Sub koneksi()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_barang.mdb;Persist Security Info=False"
End Sub

Private Sub Command1_Click()
Set rs = New Recordset
rs.Open "barang", db, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("kode_barang") = Text1.Text
rs.Fields("nama_barang") = Text2.Text
rs.Fields("jenis_barang") = Combo1.Text
rs.Fields("harga_barang") = Text3.Text
rs.Fields("jumlah") = Text4.Text
rs.Update
MsgBox "Data tersimpan"
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
koneksi
Set rs = New Recordset
rs.Open "barang", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

66 comments:

  1. Izin copas ya bro,buat masukin dalam Doc.PDF.. Soalnya mau belajar VB scr otodidak bro... hehehe

    Makasih Bro..

    ReplyDelete
  2. numpang copas juga mas bro lagi butuh nih makasih dah sangat membantu......

    ReplyDelete
  3. numpang copas juga mas bro lagi butuh nih makasih dah sangat membantu......

    ReplyDelete
  4. itu kan koneksinya pake OLEDB, Kalu ODBC gimana gan?

    ReplyDelete
  5. gan ane mau nanya, itu kan saat milih vb ente menggunakan cv enterprise. nah jika di ubah menggunakan yang standart pilihan yang paling atas dan pertama gmn? apakah bisa di koneksikan ke access?

    ReplyDelete
  6. cara input databasenya gimana bro?

    ReplyDelete
    Replies
    1. di running aja programnya bro, ntar setelah datanya di input tekan aja save..

      Delete
  7. error mas

    db as conection
    (user defined type not defined)

    gimana ya mas?terima kasih

    ReplyDelete

  8. Private Sub Form_Load()
    koneksi
    Set rs = New Recordset(ERROR bagian ini mas gimana ya?)
    rs.Open "barang", db, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
    DataGrid1.Refresh
    End Sub

    ReplyDelete
    Replies
    1. Q juga sama bang.. gimana nih

      Delete
    2. This comment has been removed by the author.

      Delete
    3. pada script itu ada yang kurang di instansiasi nya
      di tambahin ADODB .
      punyaku sih mau,,coba aja :D

      biasa orang2 tuh kl kasi tutorial mst setengah2,,gk iklas :P
      Pisss

      Delete
    4. dibagian mana yg ditambah om?

      Delete
  9. invalid use of new keyword

    ReplyDelete
    Replies
    1. This comment has been removed by a blog administrator.

      Delete
  10. kalo gk pake VB Enterprise Edition Control tp pake yg standard bisa gk? apakah SourceCode nya beda ?

    ReplyDelete
  11. Thank's kunjungannya gan.........

    ReplyDelete
  12. numpang copas ya bray.,

    thx very much.,

    ReplyDelete
    Replies
    1. Silahkan Copas aja sepuasnya bray,, Semoga bermanfaat..

      Delete
  13. PROGRAMNNYA JELEK KALI MACAM MUKA ORANGNYA , MENDING DISKOTIK LAGI HAHAH :D

    ReplyDelete
    Replies
    1. Thank's atas masukan dan Kunjungan-nya Bro.. (Y)

      Delete
  14. PROGRAM SAMPAH ! CUIH !

    ReplyDelete
    Replies
    1. TAIMU MOCNROT.....CCCCCUUUUIHHHHHHHH

      Delete
  15. Mau Tanya, gimana caranya membuat perintah sercing pda data base?

    ReplyDelete
    Replies
    1. Maksudnya Filter gan??

      Pake Perintah WHERE aja..
      Ex :
      - SELECT * FROM DataBarang WHERE NamaBarang = '(Keyword-nya)'
      - SELECT * FROM DataBarang WHERE NamaBarang LIKE '% (Keyword-nya) %'

      Delete
  16. Bro gimana ya caranya buat sub objek aktif,nonaktif,kosong,tampil,,pada VB,,lupa ane?

    ReplyDelete
  17. kode :
    Dim db As Connection
    Dim rs As Recordset

    Sub koneksi()
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_barang.mdb;Persist Security Info=False"
    End Sub

    kode ini di tulis dimana ?
    maksud nya, klo kita klik 2 x tuh misalnya command1 dgn sendirnya akan keluar tu lembar kode nya, klo kode yg ini dimana ?
    tu masalah yang di temui bro waktu di coba.

    ReplyDelete
    Replies
    1. Klik view trus code , nah ketik ajah koding nya

      Delete
  18. gan, kalau pake standart exe bisa ga gan? vb enterprisenya error

    ReplyDelete
  19. gan kok pas di run "New Recordset" gagal gitu ya?

    ReplyDelete
  20. admin, tanya ne....saya pakai data1, ms acces, setelah dijadikan file.exe di install di pc lain, kenapa tidak terkoneksi database acces tadi?
    makasih sblmnya admin

    ReplyDelete
    Replies
    1. Coba cek Lokasi & Nama Data Source (database Accesnya) mas, seperti script di atas...
      Data Source=" & App.Path & "\db_barang.mdb;Persist Security Info=False"
      Maksudnya nama data base nya = db_barang, dan lokasinya bersamaan dengan lokasi direktori app/exe trsebut berada.

      Delete
  21. Terima kasih ya om informasinya


    http://webartikelinformasi.blogspot.co.id/

    ReplyDelete
  22. mas boleh minta pasword ms.accesnya gak buwat pembelajaran.

    ReplyDelete
  23. mas boleh minta pasword ms.accesnya gak buwat pembelajaran.

    ReplyDelete
  24. Replies
    1. gan, kalok menggunakan ListView gimana?
      itukan menggunakan Data Grid.
      Thanks

      Delete
  25. gan, kalok menggunakan ListView gimana?
    itukan menggunakan Data Grid.
    Thanks

    ReplyDelete
    Replies
    1. Untuk ListView ntar saya bikin tutorialnya mas, makasih udah berkunjung..

      Delete
  26. Di command_click 1 eror..
    Pada bagian nama_barang text2.text
    Bisa minta solusi nya gan ??

    ReplyDelete
    Replies
    1. coba cek penulisan source code nya mas, kalau bisa kirimin jg sekalian pesan error nya biar lebih jelas.

      Delete
  27. This comment has been removed by a blog administrator.

    ReplyDelete
  28. Terima kasih gan atas informasi yang diberikan

    ReplyDelete
  29. IZIN copy yang diatas. moga manfaat ilmu

    ReplyDelete
  30. thanks, sangat membantu
    http://blog.binadarma.ac.id/imamsolikin/

    ReplyDelete
  31. Terimakasih.. tulisannya sangat bermanfaat..
    My blog
    My Campus

    ReplyDelete
  32. Makasih mas, sy lg belajar vb 6 ini sangat membantu
    Kalau boleh minta kontaknya mas

    ReplyDelete
  33. Mau tanya master.. Kalo kita sudah jadi aplikasi nya dan berjalan dengan baik ketika mau di didistribusikan ke computer client dan berjalan dengan baik juga... Pertanyaan nya membuat aplikasi distribusi vb6 kan harus di sertakan juga ya database nya.. Tapi ko ketika coba mau di buka database nya kosong gak ada data... Sedangkan kalo di lihat melalui aplikasi data nya ada..
    Terimakasih banyak mohon untuk menjawab pertanyaan saya

    ReplyDelete
  34. Sorry mas.. Mau tanya. Ini kenapa eror terus ya tak koneksikan ke vb.

    ReplyDelete
  35. ijin copas, alhamdulillah bisa, terima kasih :)

    ReplyDelete
  36. Mau tanya, gmna cara untuk menghandle error ketika databasenya tidak ada saat aplikasi di load, terima kasih.

    ReplyDelete

Blogger templates

Followers

Popular Posts

Lencana Facebook

Popular Posts