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... :)
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:
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?
ada cara yang lebih simpel
ngak...trims
(VB) dengan
AdoDc
Cara Koneksi Database Access
di Visual Basic 6.0 (VB) dengan AdoDc
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.
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
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
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
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..!!