Home » , , » Cara Koneksi database MySQL ke Visual Basic 6.0

Cara Koneksi database MySQL ke Visual Basic 6.0

Project dibawah ini merupakan contoh aplikasi vb 6.0 sederhana dengan koneksi database MySQL 



Berikut langkah-langkah pembuatan aplikasinya..

  • Jalankan Aplikasi server di PC/Laptop teman-teman (Apache/XAMPP/WAMPP/yg lainnya), disini saya menggunakan Aplikasi server WAMPP.

  • Buka alamat "localhost/phpmyadmin" di browser (Mozila Firefox/Google Chrome/Opera/IE/browser lainnya) untuk membuat database
  • Buat database dengan nama db_barang
























  • Buat tabel dengan nama "barang" dengan jumlah field 5


  • Kemudian desain fieldnya sebagai berikut :

    Field Name

    Data Type

    Field Size

    Format

    kode_barangvarchar
    15
    nama_barangvarchar
    25
    jenis_barangvarchar
    35
    harga_barangdoubleCurrency (Rp.xxx.xxx)
    jumlahint


  • Jalankan MySql ODBC Connector di (Control Panel\All Control Panel Items\Administrative Tools)
  • MySql ODBC bisa di download disini 
  • Pilih Data Sources (ODBC), maka tampil seperti dibawah ini :

  • Pilih MySql Odbc ConnectorMaka tampil seperti berikut :
  • Isikan seperti gambar diatas, klik ok
  • Kemudian buka Visual Basic 6.0, pilih VB Enterprise Edition Control.
  • 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 "ds_barang"
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

  • Selesai...  :)
Terimakasih telah berkunjung,, semoga bermanfaat... 


102 comments:

  1. gan bermasalh ni? "Set DataGrid1.DataSource = rs " nya erorr

    ReplyDelete
  2. tutorial yg sangat bermanfaat..:)

    ReplyDelete
  3. kok buka db nya gapake username password phpmyadmin ntya gan ?

    ReplyDelete
    Replies
    1. user nya bikin root gan, kalo passwordnya kosongin aja.......

      Delete
  4. Gan bisa ajarin tutorial bikin interface yg di vb nya?
    newbie nih gan :D

    ReplyDelete
    Replies
    1. waduh,, sekarang kayaknya belum sempat nih gan.... :D

      Delete
    2. Kak suhendri program saya running ikutin diatas.tapi pas disimpan cuma keganti gak bisa nambah. Misalnya kdbrg.nama.hrga. psm01.pasmina.30rb pas ditambah dan disimpan kdbrg yang ke 2 gak nambah cuma keganti kdbrg yang ke 1.saya harus bgaimana? trimakasih kak :)

      Delete
    3. Ganti dulu kode barang 1 nya sebelum simpan kode barang 2, soalnya di database kolom KdBarang kan di set Primary.

      Delete
  5. Replies
    1. entar mungkin gue coba. klo gagal berarti kodenya da yg salah atau kurang, klo bener' yah allahamdullilah..
      nanti gue coba dah .

      ma'af nih cuman kesimpulan gue doang. bisa pke module bisa enggak.
      maksdunya disitu kan ada kata-kata

      Dim db As Connection
      Dim rs As Recordset


      -klo kata-katanya " dim " gak pke module, isinya di dalam kode form tsb.

      -tpi klo pke module juga bisa
      isinya kayak gini

      Public db As Connection
      Public rs As Recordset


      -jdi menurut gue intinya gini klo pke module

      public db As Connection
      public rs As Recordset

      Sub koneksi()
      Set db = New Connection
      db.CursorLocation = adUseClient
      db.Open "ds_barang"
      End Sub

      - nah kodenya masukan/inputkan kedalam module.
      - klo ini

      Dim db As Connection
      Dim rs As Recordset

      Sub koneksi()
      Set db = New Connection
      db.CursorLocation = adUseClient
      db.Open "ds_barang"
      End Sub

      masukan di form tersebut. !!!

      seinget gue bgitu.. maaf agak lupa - coba ajah cek !!

      Delete
  6. itukan localhost gan.. kalo misalkan masuk ke mysql yang online gmn gan? biar bisa di akses di pc mana aja.. makasih gan sangat bermanfaat

    ReplyDelete
    Replies
    1. Koneksi database ke server-nya gan, tapi tutorialnya belum saya bikin... :D

      Sama2, semoga bermanfaat. :)

      Delete
    2. di mysql loh ganti ajah.. IP/TCP pc yg loh sambungin tsebut.

      localhost kan jatuhnya default gan.

      klo masalah ingin di kases di PC mana ajah gamapang tinggal ganti kata-kata localhost dengan IP/TCP PC loh.

      gue lom pernah gunain itu/lom pernah gue coba, coz gue gak punya PC lebih dr satu + gak ada kabel LAN nya ;'p

      kata guru komputer gue bilang bgitu 'yg gomong 3 orang guru komputer.

      jangankan cuman program vb dengan mysql. program php, asp, jsp (program web) bisa dengan database mysql. pake localhost - kode IP/TCP pc loh yg mau loh sambungin ! coba ajah gan. gue lom pernah coba. klo gagal tanya ama yg lain ajh. manusia banyak kok :p

      ma'af bukanya gue sok tahu - hanya mengingatkan saja pa yg gue dapet info dri guru gue !!!
      maaf klo ada kesalahan mohon kritik .

      Delete
  7. Aku nyoba gagal apanya ya gan yang bermasalah, mohon bantuanya.

    ReplyDelete
  8. coba cek lagi gan,mngkin ada salah ketik...

    ReplyDelete
  9. Error compile "Invalid use of new keyword"

    ReplyDelete
  10. Mantap Gan sharing nya bagus...
    maju terus programmer Indonesia
    .
    nih Ane ada nulis paket ebook buat programmer visual basic
    di sini!
    http://bit.do/NvRn

    ReplyDelete
  11. gan muncel pesan error :
    compile error
    User-defined type not defined

    ReplyDelete
    Replies
    1. kayaknya ada code yg ketinggal, cek aja lg mas..

      Delete
  12. gan kalo mau download odbcnya apa hrus masuk ke oracle dlu ....

    ReplyDelete
  13. gan bikin tombol hapus dan edit dong ...
    maaf boleh saya bikin tuk bahan ngajar khan ....

    ReplyDelete
    Replies
    1. Iya gan silahkan,, ntar saya tambahin buat tombol hapus dan editnya,,
      thanks atas masukan & kunjungannya,, semoga bermanfaat..

      Delete
  14. gan gak bisa download MySql ODBC nya nih .. :(

    ReplyDelete
    Replies
    1. bisa mbak,, link-nya masih berlaku kq.. coba ulang download lg..

      Delete
  15. tolong bantuannya
    eror di Form_Load()

    ada warning Invalid use of New Keyword

    mohon bantuannya

    ReplyDelete
    Replies
    1. di projek reference nya pilih microsoft dao 3.6

      Delete
  16. gak ada module di vb 6 nya?

    ReplyDelete
    Replies
    1. Aplikasi di atas masih dasar gan, blm masuk ke pemanggilan module..

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

    ReplyDelete
  18. Gan, Kalo dari modul gemana yak

    ReplyDelete
  19. sangat bermanfaat sekali gan, terimakasih
    jangan lupa kunjungi juga blog ane gan :
    http://masterkode.blogspot.com
    Tempat belajar pemrograman (Delphi,Visual Basic, C++, PHP, MySQL)

    ReplyDelete
  20. ko susah untuk mendownload connector/ODBC nya??
    gimna caranya ?
    ko harus daftar dulu oracle?

    ReplyDelete
  21. gan tolong buatin untuk hapus dan edit dong...ane utak atik masih belum bisa nih...thx

    ReplyDelete
  22. Gan Minta script untuk Edit Delete dan Search dong...

    ReplyDelete
  23. gan untuk kode New Recordset muncul pesan "Invalid use of New keyword". Mohon pencerahannya

    ReplyDelete
  24. bro, itu di adodc nya dikonekin "connectionstring" apa engga ? ane udh koneksiin, terus ane pilih Microsoft OLEDB Provider to ODBC driver, tp ko g bsa ya pas di 'test connection' ?

    ReplyDelete
  25. terima kasih mas...
    sudah bisa 100%,
    tapi saya mengkoneksikan database MYSQL ke vb6 di dalam vbnya menggunakan DataEnvirontment...

    ReplyDelete
    Replies
    1. Iya mas, sama2.
      Iya, di vb6 ini banyak sekali cara untuk koneksi ke database nya, tergantung kita nya mau pakai yg mana. hehe..

      Delete
  26. mas mau nanya,saya eror dengan pesan erornya sebagai berikut

    Compile Error:

    Invalid use of New Keyword


    Di line berikut yang ditunjukan oleh vb 6 erornya :
    Public Sub Form_Load()-> disini
    koneksi
    Set rs = New Recordset-> dan disini
    rs.Open "barang", db, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
    DataGrid1.Refresh
    End Sub

    ReplyDelete
    Replies
    1. Komponen ADODC nya udah ditambah ke form mas?

      Delete
    2. udah mas. gmna nih? tolong pencerahan.. sama kejadiannya sama saya. trimakasih

      Delete
  27. Replies
    1. Ntar saya bikin dulu buat edit sama delete nya sekalian mas..

      Delete
  28. Kaksuhendri program saya running ikutin diatas.tapi pas disimpan cuma keganti gak bisa nambah. Misalnya kdbrg.nama.hrga. psm01.pasmina.30rb pas ditambah dan disimpan kdbrg yang ke 2 gak nambah cuma keganti kdbrg yang ke 1.saya harus bgaimana? trimakasih kak :)

    ReplyDelete
  29. mas punya saya ketika di jalankan , keluar error seperti ini
    microsoft odbc driver manager . the specified dsn constains an architecture mismatch between the driver and application. mohon bantuan nya .thanks

    ReplyDelete
  30. mau tanya dongg bantu pencerahannya, aku ada tugas buat aplikasi penjualan pake VB Database nya MYSQL, aku dah koneksi kan seperti cara yang diatas, cuman pas buat form 1 untuk login, ketika kita masukan data terjadi sintak eror. itu kenapa yaa? mohon pencerahannya yaaa terima kasih
    mohon bantuannya yaaa

    ReplyDelete
    Replies
    1. Pesan error nya gmna mbak? kalo bisa kirimin aja screenshot nya sekalian.

      Delete
  31. Bisa jalan programnya.Keren, sangat berguna dan bermanfaat Kak Suhendri.

    Kak Suhendri tolong pencerahannya,Saya ada kasus ni Kak.Kak kalo mau bikin cooding Login nya gimana ?

    Saya dulu pake coding login nya saat pake ms.acces seperti ini Kak :
    Private Sub Command1_Click()
    Dim Username As String
    Dim Password As String
    Call BukaDB
    RSADMIN.Open "Select * from ADMIN where Username ='" & Text1 & "' and Password='" & Text2 & "'", koneksi
    If RSADMIN.EOF Then
    MsgBox "Maaf, ID Username atau Password yang Anda Masukkan Tidak Terdeteksi" _
    & vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!"
    Text1 = ""
    Text2 = ""
    Else
    FRMCONFIRMASIMENU.Show
    FRMLOGIN.Visible = False
    Unload Me
    End If
    End Sub

    tapi saat gunakan ODBC seperti postingan Kakak kok gk bisa.
    Tolong pencerahannya dan solusinya kak.
    Terima kasih

    ReplyDelete
  32. Gan, tau bikin modul koneksi dengan odbc versi 6.1 gak? Kalau versi 5 odbc ny kan untuk baris driver=mysql odbc 5.1 driver.. nah kalo untuk versi 6.1, dikasi driver=mysql odbc 6.1 driver. Kok error ya? Kalau ada boleh dong sharing gan. Terima kasih.

    ReplyDelete
  33. pembuatan aplikasiini ada sangkut paut yha dengan kecerdasan buatan?

    ReplyDelete
  34. gak ada kak, ini cuma contoh aplikasi sederhana aja...

    ReplyDelete
  35. om tertarik dengan makalah nya.
    bisa minta softcopy nya.
    kirim ke danielrsuryokusumo@yahoo.com

    makasih om.

    ReplyDelete
  36. mau tanya gan, kalau error di

    rs.Open "surat", db, adOpenDynamic, adLockOptimistic

    itu gimana benerinnya ya?? thanks..

    ReplyDelete
  37. Neng Endjelis Hilma Lovita
    coba Ganti :
    rs.Open "surat", db, adOpenDynamic, adLockOptimistic
    Dengan :
    rs.Open "select * from surat", db, adOpenDynamic, adLockOptimistic, -1

    ReplyDelete
  38. bagi anda yang membutuhkan kesembuhan untuk segala macam penyakit baik kronis maupun akut kami punya solusinya,kunjungi website kami di bawah ini

    http://qncjellygamattradisional.com//

    ReplyDelete
  39. This comment has been removed by the author.

    ReplyDelete
  40. Mas saya pake Visual Studio 2013, btw "ADODC1" gak ada di Toolbox Visual Studio 2013, solusi nya pakai apa ya?

    ReplyDelete
    Replies
    1. itu mah visual studio .net, ini kan tutor untuk vb6

      Delete
  41. sangat membantu gan .. http://anggiiqbal32.blogspot.co.id/

    ReplyDelete
  42. Gan mohon bantuannya, kalau untuk tombol editnya gimana kodingnya?

    ReplyDelete
  43. Sangat berguna. Indahnya saling berbagi ilmu dan keahlian.
    Silahkan berkunjung ke blog perkuliahan saya:

    http://rismonhasiholansianipar.blogspot.co.id

    http://rismonhsianipar.blogspot.co.id

    http://rhsianipar.blogspot.co.id

    ReplyDelete
  44. Mantabs Tutornya gan, bisa dijadikan referensi nih
    jangan lupa mampir juga gan
    http://carakuvb6.blogspot.co.id

    ReplyDelete
  45. sangat berguna, terima kasih
    http://blog.binadarma.ac.id/imamsolikin/"

    ReplyDelete
  46. Set rs

    rs disini maksudnya apa ya gan??

    ReplyDelete
    Replies
    1. oh, itu record set mbak. fungsinya menampung record yg kita tarik dari db nya.

      Delete
  47. gan gimana caranya cari berdasarkan kode tertentu dan di tampilkan pada textbox jika file ke temu di database

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

    ReplyDelete
  49. kak..masa kalo aku nambah form login di awal trus data barang ini di form ke2 ada errornya di "db as connection" nya jadi user not defined:( padahal sebelumnya aku bikin ini bisa:(

    ReplyDelete
  50. kak punya saya ketika di jalankan , keluar error seperti ini
    microsoft odbc driver manager . the specified dsn constains an architecture mismatch between the driver and application. mohon bantuan nya .thanks

    Kungjungi Website kampus saya http://www.atmaluhur.ac.id

    dan Website saya https://ernaningsih.mahasiswa.atmaluhur.ac.id


    ReplyDelete
  51. Mantap sekali teman pembahasannya ini saya sangat menyukainya karena menambah ilmu coding.

    Saya ingin memperkenalkan kepada anda ternyata anda pun bisa mendapatkan keuntungan uang yang cepat dengan mudah lho yang bisa anda rasakan dengan begitu mudahnya, yuk langsung aja sekarang anda kunjungi saja pkv games saja jamin anda pasti ketagihan dengan informasi yang di berikan.

    ReplyDelete
  52. Secara pribadi saya sangat kagum dengan cara anda menulis artikel ini.
    Isi artikel yang sangat mudah dimengerti dan juga bermanfaat, Saya sangat menyukai materi ini, Terima Kasih.
    Togel Online

    ReplyDelete
  53. artikel yang sangat mendukung apa yang kami kerjakan, terima kasih


    Joker123

    ReplyDelete
  54. This comment has been removed by the author.

    ReplyDelete
  55. numpang promosi yah siapa tau ada yang minat pakai..
    untuk saat ini framework yang ada REST API.
    untuk web apps client masih dalam development belum publish. Terimakasih.
    berikut linknya :

    http://xdevpusaka.com/framework/main/docs/v/1.0/api/start/

    ReplyDelete
  56. Udah gua coba. Gak jadi. Gak bisa di save. Dan tidak ada pesan apapun

    ReplyDelete

Blogger templates

Followers

Popular Posts

Lencana Facebook

Popular Posts