Koneksi VB Dengan Database Access
Koneksi VB Dengan Database Access
Koneksi VB Dengan Database Access
com
Oleh : Uus Rusmawan Hal - 1
7. 8. 9.
Buka dan aktifkan folder yang telah dibuat di langkah 1 Tulis nama database misalnya DBMaster Klik create
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 2
10.
11.
No 1 2
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 3
3 5
Hargabrg Jumlahbrg
Numeric Numeric
12. 13.
Klik kanan field kodebrg Pilih primary key (atau klik icon Primary Key Gambar kunci warna kuning)
14.
15. 16.
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 4
17.
SEKARANG MULAILAH BEKERJA DENGAN VB 18. 19. 20. Aktifkan VB Pilih standard exe Klik OK
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 5
Tambahkan komponen adodc dan datagrid caranya Klik menu project Pilih components
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 6
Atau tekan tombol CTRL + T Atau klik kanan ToolBox > Lalu pilih components Aktifkan dua checkbox seperti gambar di bawah ini
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 7
Klik apply Klik OK (close) Tambahkan adodc dan datagrid ke dalam form Caranya cukup dengan melakukan klik pada objek adodc di toolbox kemudian drag dalam form
31. 32.
Klik datagrid di toolbox kemudian drag dalam form Hasilnya sebagai berikut
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 8
33. 34.
35. 36.
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 9
37. 38.
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 10
39.
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 11
40. 41.
Cari dan pilih database DBMaster.mdb yang telah dibuat sebelumnya Klik open
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 12
Klik test connection Jika muncul pesan error seperti ini, artinya database sedang dibuka pindah ke Access, Tutup database, lalu klik lagi test connection
45.
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 13
46. 47.
48.
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 14
49. 50.
51. 52.
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 15
Klik apply Klik OK Klik datagrid1 Hubungkan ke adodc1 pada properti datasource
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 16
57. 58.
Simpan form dan project di folder yang telah dibuat di langkah 1 Jalankan program dan hasilnya seperti gambar di bawah ini
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 17
Anda dapat melihatnya (bahkan meng-copy-nya untuk keperluan koneksi database selanjutnya) di properti connectionstring
Cara koneksi ini dapat dimanfaatkan dalam aplikasi program anda, contohnya adalah sebagai berikut:
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 18
'definisikan string koneksi Dim conn As New ADODB.Connection 'definisikan recordset Dim RSBarang As ADODB.Recordset
Private Sub Form_Load() 'buat koneksi baruke database Set conn = New ADODB.Connection 'buat recordset baru untuk membaca tabel barang Set RSBarang = New ADODB.Recordset 'buka koneksi database dengan model DSN conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\E-Book VB\Data VB\DBMaster.mdb;Persist Security Info=False" 'baca tabel barang berulang-ulang RSBarang.Open "select * from barang", conn 'bersihkan dulu isi Combo1 Combo1.Clear 'baca isi tabel barang Do Until RSBarang.EOF 'tampilkan kode dan nama barang di Combo1 Combo1.AddItem RSBarang!kodebrg & Space(5) & RSBarang!namabrg RSBarang.MoveNext Loop End Sub
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 19
Catatan : Cara koneksi model objek ini tidak aman, karena jika database dipindahkan posisinya ke folder lain maka program akan error karena database tidak ditemukan. Alasan utamanya karena koneksi ke database menuju ke :
'definisikan string koneksi Dim conn As New ADODB.Connection 'definisikan recordset Dim RSBarang As ADODB.Recordset
Private Sub Form_Load() 'buat koneksi baruke database Set conn = New ADODB.Connection 'buat recordset baru untuk membaca tabel barang Set RSBarang = New ADODB.Recordset 'buka koneksi database dengan model DSN
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 20
Do Until RSBarang.EOF 'tampilkan kode dan nama barang di Combo1 Combo1.AddItem RSBarang!kodebrg & Space(5) & RSBarang!namabrg RSBarang.MoveNext Loop End Sub
Pada bab ini hanya akan ditampilkan gambar gambarnya saja dan silakan diikuti sesuai PETUNJUK KURSOR atau nama-nama (kalimat) yang ditulis dalam tiap menunya)
Buatlah form baru (form2) seperti form pertama (dengan sebuah adodc dan datagrid) Klik kanan adodc1
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 21
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 22
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 23
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 24
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 25
Klik apply Klik OK Jalankan program dengan start objek pada form2
Hasil
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 26
Implementasi dalam program adalah sebagai berikut: Buatlah form degan sebuah listbox
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 27
Private Sub Form_Load() 'buat koneksi baruke database Set Conn = New ADODB.Connection 'buat recordset baru untuk membaca tabel barang Set RSBarang = New ADODB.Recordset 'buka koneksi database dengan model DSN Conn.Open "DSN=Coba DSN" 'baca tabel barang berulang-ulang RSBarang.Open "select * from barang", Conn 'bersihkan dulu isi list1 List1.Clear 'baca isi tabel barang Do Until RSBarang.EOF 'tampilkan kode dan nama barang di list1 List1.AddItem RSBarang!kodebrg & vbTab & RSBarang!namabrg RSBarang.MoveNext Loop End Sub
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 28
Catatan : Kelemahan model DSN ini adalah : jika program di copy ke komputer lain maka akan error karena DSN hanya terdapat di komputer asli pertama kali DSN dibuat.
Tambahkan form baru (form3) dan buatlah seperti form1 (dengan menambahkan adodc dan datagrid) Klik menu start Control panel Klik dua kali administrative tools
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 29
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 30
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 31
Kembali ke VB
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 32
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 33
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 34
KONEKSI MODEL ODBC TANPA OBJEK ADODC Implementasi dalam program adalah sebagai berikut: Buatlah form degan sebuah listbox
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 35
Private Sub Form_Load() 'buat koneksi baruke database Set Conn = New ADODB.Connection 'buat recordset baru untuk membaca tabel barang Set RSBarang = New ADODB.Recordset 'buka koneksi database dengan model DSN
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 36
Catatan : Kelemahan model ODBC ini adalah : jika program di copy ke komputer lain maka akan error karena ODBC hanya terdapat di komputer asli pertama kali ODBC dibuat.
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 37
KONEKSI MENGGUNAKAN OBJEK TAPI PROVIDER DIKETIK DALAM KODING (TIDAK DI SETING DI ADODC PROPERTIES)
Tambahkan form baru (form4) dengan sebuah adodc dan datagrid Lalu ketiklah coding di bawah ini:
Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\E-Book VB\DBMaster.mdb;Persist Security Info=False" Adodc1.RecordSource = "barang" Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End Sub
Cara di atas kurang aman, karena jika folder tempat penyimpanan database dipindahkan ke posisi lain maka akan muncul keterangan sebagai berikut (sebagai tanda bahwa database tidak ditemukan)
Perhatikan pesan error di atas, ini menandakan bahwa di drive D:\E-Book VB tidak terdapat file database dengan nama DBMaster.mdb, karena posisi asli database ada di drive F:\E-Book VB.
Cara amannya adalah dengan menggunakan APP.PATH, jadi codingnya sebagai berikut:
Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBMaster.mdb;Persist Security Info=False"
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 38
'definisikan Bookmark sebagai variant Dim mvBookMark As Variant 'definisikan string koneksi Dim Conn As ADODB.Connection
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 39
Sub BukaDB() 'buat string koneksi baru ke database Set Conn = New ADODB.Connection 'buat recordset baru untuk membuka tabel barang Set RSBarang = New ADODB.Recordset 'buka string koneksi ke database target Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBMaster.mdb;Persist Security Info=False" End Sub
Private Sub Form_Activate() 'buka database Call BukaDB 'tentukan lokasi kursor sebagai client Conn.CursorLocation = adUseClient 'buka tabel barang RSBarang.Open "select * from barang", Conn 'baca tabel barang hingga record terakhir With RSBarang If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If End With 'hubungkan datagrid ke tabel barang Set DataGrid1.DataSource = RSBarang.DataSource End Sub
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 40
Cara ini hanya dapat dilakukan jika DSN atau ODBC telah dibuat sebelumnya. Baiklah mari kita coba. Buatlah form6 dan tambahkanlah adodc dan datagrid Klik kanan adodc1 > adodc properties
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 41
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 42
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 43
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 44
String koneksi model gabungan ini dapat dilihat pada properti connectionstring berikut ini :
CO NTOH-CONTOH PROGR AM
Program Program Program Program Program Program Program Program Program Program Program
Dasar - gratis Pembelian - demo Penjualan - demo Seleksi Karyawan - demo Penggajian(1) - demo Perpustakaan - demo Rental VCD - demo Pemesanan Barang - demo Rekam Medis - demo Nasabah Bank - demo Penggajian(2) - demo
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 45
Program Program Program Program Program Program Program Program Program Program Program
Bengkel Bubut - demo Pinjaman Bank - demo Loundry - demo Koperasi - demo Pembayaran SPP - demo Pengolahan Nilai - demo Persediaan Barang - demo Kredit Motor - demo Ujian Digital - demo SPP (2) - demo Retail Toko - demo setup
Koneksi Database Access berpassword VB dan database access VB dan database sql server VB dan database mysql Konversi tabel access ke excel Konversi file txt ke database Konversi file database ke txt Konversi file excel ke access Membuka tabel access dalam bentuk excel Membuka tabel access dalam bentuk word Normalisasi file Query dalam visual basic Membuat database dengan coding VB Database access untuk multi user Konversi access ke sql server Konversi sql server ke excel Mengolah sql server dgn Access Komponen Dasar Visual Basic 6.0 Fungsi pencabangan dan perulangan Membuat kunci tamu dalam database access Manajemen database MySql Membuat Backup Dumping database MySql Konversi database access ke MySql Membuat database sql server dengan script vb 6.0 Membuat database MySql dengan script vb 6.0
Fungsi terbilang dalam Crystal Report Mengatur banyaknya record per halaman Membuat laporan dengan Crystal Report Membuat Laporan Harian Membuat Laporan mingguan Membuat laporan bulanan Membuat laporan dalam format PDF Membuat laporan berbentuk KHS / Absensi Membuat laporan berkolom Mengubah posisi database dlm Crystal report Mengatasi Error "Enabled To Open Database" Membuat laporan dengan Data Report Membuat laporan data awal s/d data akhir Membuat laporan dari database sql server Penanganan error jika data tidak tampil
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 46
Mengambil sebagian karakter Mengambil data bulan dan tahun Menampilkan faktur paling akhir Mengambil nilai langsung dari form (text1) Membuat laporan database berpassword Membuat laporan stok barang <= atau >= Menampilkan Gambar foto dlm crystal report Membuat laporan berbentuk grafik Membuat Laporan dengan parameter Cara koneksi Model ADO Mengubah lokasi OLE Object Menambahkan designer control Demo profil pegawai Maping field Demo Inventori Demo Memanggil gambar / foto Seting printer Object report dengan API Laporan dengan Variabel Laporan dengan wizard Mencari dan memilih data Demo sederhana Field yang terlepas Tentang viewer1 Tentang viewer2 File-file penting Crystal Report untuk SETUP
TUTORIAL UTILITY
Membuat program Trial dengan jumlah pakai Membuat program Trial dengan tanggal Cara me-register komponen Program Ganti password User Membuat Toolbar dalam Visual Basic Membuat Menu Bantu dalam Visual Basic Membuat Form Login Membuat background menu utama Menampilkan struktur tabel database Membuat Backup database Menampilkan sejumlah data Membuat File EXE dan Setup Dgn VB Pola input data dengan maskedit Program animasi form Program password Program angka terbilang Ado Wizard Generator Membuat Grafik dengan Visual Basic Satu aplikasi banyak project Program Barcode Nomor otomatis dengan pola tanggal Form ditutup mengecil Mengubah ukuran semua object dalam form Membuka file PDF dengan Visual Basic Mengganti "Gambar Command" ketika di klik Membuka file musik, film dengan Visual Basic
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 47
Membekukan Form Mengatasi masalah edit dan input data yang mengandung tanda petik ( ' ) Membuat hak akses Aplikasi untuk webcam dengan Visual Basic Menggabungkan beberapa buah aplikasi Mengatasi Out of stack space Error number 28 Membuat manual book dengan Helpndoc Menyimpan foto ke dalam database Program Finger Print Membuat menu dengan treeview Kumpulan OCX Driver ODBC Setup Maker Setup2Go VB dan control, VB dan konversi VB dan file DAT, VB dan encripsi VB dan extraksi, VB dan File VB dan Form, VB dan Grafik VB dan Icon, VB dan Image VB dan informasi, VB dan Keyboard VB dan membuat EXE, VB dan matematika VB dan Menu, VB dan MP3 VB dan Register, VB dan Security VB dan Shell, VB dan SQL VB dan Time, VB dan Windows SMS Gateway dengan VB Komponen untuk membuat sms gateway Tutup Facebook permanen untuk selamanya Halaman Berikutnya....
TUTORIAL VB.NET
Pendahuluan Pengenalan Komponen Dasar Cara Koneksi dgn ms access Mengolah Database ms access Database sql server Mengolah database sql server Database mysql Mengolah database mysql Crystal Report Aplikasi Penjualan Query menggunakan sql aplikasi penerimaan karyawan Deployment aplikasi