Cara Koneksi database MySQL ke Visual Basic 6.0

Cara Koneksi database MySQL ke Visual Basic 6.0

Posted by Suhendri hendri Posted on 17.54 with 22 comments

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_barang	varchar	15
nama_barang	varchar	25
jenis_barang	varchar	35
harga_barang	double		Currency (Rp.xxx.xxx)
jumlah	int

• 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...  :)

Read more: http://belajar-dasar-pemrograman.blogspot.com/2013/07/cara-koneksi-database-mysql-ke-visual.html#ixzz3OL0ersfm

Cara Koneksi Database Access pada Visual Basic Menggunakan Adodc

Setelah membahas tentang tata cara dan teknik pembuatan database, sekarang saya akan membahas tentang bagaimana cara mengkoneksikan nya pada visual basic 6.0,, ada beberapa cara untuk koneksi database pada vb 6, yaitu dengan menggunakan Tool Data atau Adodc yang berfungsi sebagai jembatan penghubung koneksi database dengan vb. Selain menggunakan kedua tool tersebut, koneksi juga bisa dilakukan lewat modul, atau koding/perintah koneksi yang diletakkan di modul, sehingga kita bisa memanggil program perintah koneksi dari modul tersebut tanpa menggunakan tool penghubung seperti Data dan Adodc.

Pada pembahasan kali ini saya akan berbagi pengetahuan tentang koneksi database menggunakan Data dan Adodc.

Oke,,daripada lama2 n tambah bingung, kita mulai aja pembahasan nya...,,

Langkah pertama kita tambahkan dulu komponen pada toolbox nya dengan mngetikkan Ctrl+T atau klik menu projeck lalu pilih Componen.,

kemudian cari dan centang komponen Microsoft Ado Data Control 6 (OLEDB) dan Data Grid Control 6 (OLEDB), seperti pada gambar dibawah :

Setelah kedua komponen tersebut di centang lalu tekan tombol OK, kemudian masukkan kedua komponen tersebut ke dalam form., komponen tool data grid berfungsi untuk menampilkan isi dari database yang kita inputkan.

Kalau komponen adodc1 dan datagrid1 sudah diletakkan pada form, langkah berikutnya adalah cara untuk mengkoneksikan database lewat adodc1.

pertama, klik kanan pada tool adodc1, lalu pilih ADODC Properties.

Kemudian akan muncul Properties Page, Klik tabulasi general, kemudian pada frame source of connection pilih option Use Connection String lalu klik tombol Build...

Setelah itu akan muncul form Data Link Properties pada tab Provider pilih Microsoft Jet 4 OLE DB Provider, kemudian Klik Next.

Pada tab Connection pilih tombol cari (....) pada Select or Enter a Database Name untuk mencari database yang sudah kita buat sebelumnya,,

Setelah database dimasukkan kemudian klik tombol Test Connection, jika berhasil maka akan muncul pesan Test Connection Succeeded, kemudian Klik Tombol OK.

Kemudian kembali ke form Property Pages, klik tab Record Source kemudian pada Command Type Pilih adCmdTable dan pada Table or Stored Procedure Name pilih tabel dari database yang kita buat lalu klik OK.

Sampai disini kita sudah berhasil mengkoneksikan database access dengan visual basic..,untuk membuktikan database sudah terkoneksi kita gunakan datagrid1,,cara nya :

klik datagrid1, kemudian pada datagrid1 properties, Data Source nya pilih Adodc1..,

Kemudian klik kanan pada DataGrid1, lalu pilih Retrieve Fields, setelah itu klik OK,,maka akan muncul Field-fiel dari database yang kita buat sebelumnya pada datagrid.

Penulis : Black Angel ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Cara Koneksi Database Access pada Visual Basic Menggunakan Adodc ini dipublish oleh Black Angel pada hari Sabtu, 02 Maret 2013. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 3 komentar: di postingan Cara Koneksi Database Access pada Visual Basic Menggunakan Adodc

 

3 komentar:

Yataeli Gulõ19 April 2014 23.51

Menggunakan Access sebagai database dengan format mdb sebenarnya tidak aman karena dapat dibuka secara langsung pada filenya sehingga user dapat mengubah datanya pada file Databasenya. Bagaimana cara menggunakan Access ini sehingga tidak bisa dibuka secara langsung pada filenya? Atau bagaimana cara memproteksi database Microsoft Access?

Balas

medi bara10 Agustus 2014 04.26

ada cara yang lebih simpel ngak...trims

(VB) dengan AdoDc

Cara Koneksi Database Access di Visual Basic 6.0 (VB) dengan AdoDc

3:46 AM · DAnish FathurRahman · 4 comments

Assalamu'alaikum, wr.wb

Cara Koneksi Database Access di Visual Basic 6.0 (VB) dengan AdoDc - Pada sharing posting ketiga ini tentang bahasa pemograman VB (visual basic)  mengenai cara konekkan database ekstensi file *mdb acces baik yang database yang di create dengan VisData menggunakan Visual Data Manager bawaan VB (Visual Basic) yang telah kita bahas sebelumnya maupun dari microsoft access sendiri, karena konsepnya sama. sebelum mempelajari koneksi database access di VB (Visual Basic) 6.0 bagi sobat yang belum paham pembuatan database access silahkan pelajari sharing saya beberapa waktu lalu disini, karena program sederhana yang akan kita buat kali ini tidak akan membahas cara create database sebab kita akan menggunakan database yang sudah ada (red.postingan lalu).

Ada beberapa cara untuk koneksi database di Visual Basic, yang pertama dengan menggunakan Tool Data dan AdoDc sebagai penghubung database dengan Visual basic (VB), dan selain dua cara tersebut ada juga yang menggunakan modul sebagai mediasi pengkonekan database, untuk yang menggunakan modul dalam koneksi database tentunya tidak dapat dilakukan oleh orang-orang biasa seperti saya, xixixixixixixi.

Baik sobat, AdoDc adalah tool pilihan saya yang akan kita bahas dalam postingan blog pecundang kali ini. Sebelum melakukan aksi silahkan berdo'a dulu (point penting yang selalu saya tekankan disetiap postingan), siapkan cemilan murah ajah seperti kacang sukro (tanpa bermaksud iklan yee) supaya terlihat lebih hemat dan tabungan hajinya tidak berkurang, wkwkw.amboii.amboii.


Pertama aktifkan dulu tool AdoDc dan data Grid nya, tekan Ctrl + T untuk menambah komponen.

Desain program entri data buku seperti dibawah ini, untuk ukuran, warna, kata-kata label sesuaikan dengan selera sobat masing-masing. karena sampai hari ini masih banyak sahabat saya yang suka warna pink, jiahahaha.

Klik kanan AdoDc sesuai gambar untuk langkah koneksi ke database yang telah dibuat

Pilih tab provider dan select sesuai mantra dibawah ini

pilih database yang telah dibuat sebelumnya, ingat tempat penyimpanannya ya sob :)

Test dulu koneksi ke databasenya dengan klik tombol test connection, jika tampil seperti gambar dibawah ini berarti anda beruntung, jika tidak do'anya kurang manjur kali ya, hehehe. ganti cemilan dengan produk yang agak mahal walau warung tempat jualnya agak jauh (mungkin anda mengerti apa yang saya maksud).

Pada tampilan AdoDc setelah diklik kanan diatas pilih tab recordSource untuk menambahkan nama daftar tabel yang telah kita create di database sebelumnya. sampai disini nyali sobat kembali diuji untuk mengingat filename tabel yang telah dibuat, xixixixi.

Selanjutnya sikronkan DataGrid dengan AdoDc seperti mantra screen shoot yang saya buat dibawah ini

Okeh selanjutnya masukan coding di command 1 simpan

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   ' prses pnyimpnan,!kode(adlah field dtabase)Text1.text (yg di form)
                !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

Coding formula untuk commad 2 bersih (jika data yang kita masukkan ada kesalahan sebelum penyimpanan dilakukan)

Private Sub Command2_Click()
    Text1.Text = ""  'pengosongan
    Text2.Text = ""
    Text3.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text1.SetFocus   ' untuk memindahkan kursor otomatis ke entri kode
End Sub

Coding untuk tombol keluar

Private Sub Command3_Click()
End
End Sub

Penampakan program setelah melalui serangkaian acara yang kita lakukan diatas, mulai dari pembukaan MC sampai penutupan do'a.

    










Naahhhh... ituh! tata cara koneksi database acces di Visual Basic (VB) menggunakan AdoDc dilengkapi dengan fitur penyimpanan data. Muda-mudahan bermanfaat bagi bangsa dan agama. Selanjutnya untuk menambah fitur pengubahan data, penghapusan data, Insyaallah akan kita share lagi dilain kesempatan. soalnya saya sudah capek broh..!!