No title

www.konsultasivb.com Oleh : Uus Rusmawan

Hal - 1 –

VB Dan Database Access KONEKSI MENGGUNAKAN OBJEK To the point… Yang dimaksud dengan menggunakan objek adalah menggunakan adodc. Ikuti langkahnya step by step pada redaksi dan gambar di bawah ini. 1.

Buatlah folder khusus sebagai tempat menyimpan database, form dan project.

2.

Klik menu start

3.

All programs

4.

Microsoft office

5.

Microsoft office access 2003

6.

Klik menu file > new (atau klik icon new, atau klik create new file)

7.

Buka dan aktifkan folder yang telah dibuat di langkah 1

8.

Tulis nama database misalnya DBMaster

9.

Klik create


Hal - 2 –

10.

Double klik create table in design view

11.

Buatlah struktur tabel sebagai berikut

No

Nama field

Type

Size

Ket

1

Kodebrg

Text

6

Primary key

2

Namabrg

Text

30


Hal - 3 –

3

Hargabrg

Numeric

Long integer

5

Jumlahbrg

Numeric

Integer

12.

Klik kanan field kodebrg

13.

Pilih primary key (atau klik icon Primary Key Gambar kunci warna kuning)

14.

Simpan struktur tabel > Klik ikon save (gambar disket)

15.

Tulis nama tabel (barang)

16.

Klik OK


17.

Hal - 4 –

Isilah tabel barang secara manual dengan data sebagai berikut

PROSES PEMBUATAN FOLDER, DATABASE, TABEL DAN INDEX SELESAI

SEKARANG MULAILAH BEKERJA DENGAN VB 18.

Aktifkan VB

19.

Pilih standard exe

20.

Klik OK


21.

Tambahkan komponen adodc dan datagrid caranya

22.

Klik menu project

23.

Pilih components

Hal - 5 –


24.

Atau tekan tombol CTRL + T

25.

Atau klik kanan ToolBox > Lalu pilih components

26.

Aktifkan dua checkbox seperti gambar di bawah ini

Hal - 6 –


Hal - 7 –

27.

Klik apply

28.

Klik OK (close)

29.

Tambahkan adodc dan datagrid ke dalam form

30.

Caranya cukup dengan melakukan klik pada objek adodc di toolbox kemudian drag dalam form

31.

Klik datagrid di toolbox kemudian drag dalam form

32.

Hasilnya sebagai berikut


33.

Klik kanan adodc1

34.

Pilih adodc properties

35.

Pilih use connection string

36.

Klik build

Hal - 8 –


37.

Pilih microsoft jet 4.0 OLE DB Provider

38.

Klik next

Hal - 9 –


39.

Klik browse (ellips) di sebelah kanan kotak 1 Select or ….

Hal - 10 –


Hal - 11 –

40.

Cari dan pilih database DBMaster.mdb yang telah dibuat sebelumnya

41.

Klik open


42.

Klik test connection

43.

Jika muncul pesan error seperti ini, artinya database sedang dibuka

44.

pindah ke Access, Tutup database, lalu klik lagi test connection

45.

Sampai muncul pesan sukses seperti gambar di bawah ini

Hal - 12 –


46.

Klik OK

47.

Klik OK sekali lagi

48.

Klik tabulasi recordsource

Hal - 13 –


49.

Klik Button Command Type

50.

Pilih 2 - adCmdTable

51.

Klik button Table Or Stored Procedur Name

52.

Pilih Tabel “Barang”

Hal - 14 –


53.

Klik apply

54.

Klik OK

55.

Klik datagrid1

56.

Hubungkan ke adodc1 pada properti datasource

Hal - 15 –


57.

Simpan form dan project di folder yang telah dibuat di langkah 1

58.

Jalankan program dan hasilnya seperti gambar di bawah ini

Hal - 16 –

Jadi driver untuk objek adodc adalah sebagai berikut:

Provider=microsoft.jet.oledb.4.0;data source=f:\e-boOK VB\data VB\DBMaster.mdb;persist security info=false


Hal - 17 –

Anda dapat melihatnya (bahkan meng-copy-nya untuk keperluan koneksi database selanjutnya) di properti connectionstring

IMPLEMENTASI DALAM PEMROGRAMAN

Cara koneksi ini dapat dimanfaatkan dalam aplikasi program anda, contohnya adalah sebagai berikut:

Buatlah form dengan sebuah combobox

Kemudian ketiklah koding berikut ini


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

Jalankan program dan lihat hasilnya


Hal - 19 –

Dengan cara ini anda tidak memerlukan objek adodc lagi

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 :

F:\E-Book VB\Data VB\DBMaster Sementara posisi database telah dipindahkan ke folder lain. Cara yang cukup aman adalah dengan menggunakan APP.PATH. caranya adalah dengan mengganti F:\EBook VB\Data VB\DBMaster dengan koding sebagai berikut : “ & APP.PATH & “\DBMASTER.MDB Jadi koding lengkapnya adalah sebagai berikut:

'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=" & App.Path & "\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


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

KONEKSI MENGGUNAKAN DSN MENGGUNAKAN OBJEK

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


Hal - 21 –


Tulis nama DSN Klik select

Hal - 22 –


Pilih database target Klik OK

Hal - 23 –


Klik tabulasi recordsource

Hal - 24 –


Klik apply Klik OK Jalankan program dengan start objek pada form2

Hasil

Hal - 25 –


Dengan cara DSN ini provider adodc terlihat sebagai berikut:

KONEKSI MODEL DSN TANPA OBJEK ADODC

Implementasi dalam program adalah sebagai berikut: Buatlah form degan sebuah listbox

Hal - 26 –


Hal - 27 –

Kemudian ketiklah koding berikut ini '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 "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



Hal - 28 –

Dengan cara ini anda tidak perlu lagi objek adodc

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.

CARA KONEKSI ACCESS MODEL ODBC MENGGUNAKAN OBJEK ADODC

Tambahkan form baru (form3) dan buatlah seperti form1 (dengan menambahkan adodc dan datagrid) Klik menu start Control panel Klik dua kali administrative tools


Klik dua kali data source (ODBC)

Hal - 29 –


Hal - 30 –


Kembali ke VB

Hal - 31 –


Hal - 32 –


Klik apply Klik OK Jalankan program dan hasilnya sebagai berikut:

Dengan cara ODBC ini provider adodc terlihat sebagai berikut:

Hal - 33 –


KONEKSI MODEL ODBC TANPA OBJEK ADODC Implementasi dalam program adalah sebagai berikut: Buatlah form degan sebuah listbox

Hal - 34 –


Hal - 35 –

Kemudian ketiklah koding berikut ini '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 "DSN=Coba ODBC" '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!HargaBrg RSBarang.MoveNext Loop End Sub


Hal - 36 –


Dengan cara ini anda tidak perlu lagi objek adodc

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.


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"


Hal - 38 –

Adodc1.RecordSource = "barang" Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End Sub

Perhatikan dengan baik koding di atas….

F:\E-Book VB Diganti dengan " & App.Path & "\ Cara ini lebih aman karena kemanapun database di pindahkan program akan menemukannya dengan catatan penting: Form Dan Project Harus Disimpan Bersamaan Dengan Posisi Database

KONEKSI TANPA OBJEK ADODC

Buatlah form (form5) dengan hanya menambahkan datagrid saja

Ketik koding di bawah ini:

'definisikan Bookmark sebagai variant Dim mvBookMark As Variant 'definisikan string koneksi Dim Conn As ADODB.Connection


Hal - 39 –

'definisikan recordset baru untuk tabel barang Dim RSBarang As ADODB.Recordset

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

Jalankan program dan hasilnya terlihat sebagai berikut


Hal - 40 –

KONEKSI MODEL GABUNGAN (MENGGUNAKAN STRING DSN ATAU ODBC)

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


Hal - 41 –


Hal - 42 –


Klik apply Klik OK

Hal - 43 –


Hal - 44 –

Jalankan program dan lihal hasilnya

String koneksi model gabungan ini dapat dilihat pada properti connectionstring berikut ini :

Koding lengkapnya adalah sebagai berikut :

Provider=MSDASQL.1;Persist Security Info=False;Data Source=Coba DSN Catatan : Jika DSN atau ODBC telah dibuat, maka anda bebas memilih salah satunya

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


• • • • • • • • • • •

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

TUTORIAL DAT ABASE

• • • • • • • • • • • • • • • • • • • • • • • • •

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

TUTORIAL CRYST AL REPORT

• • • • • • • • • • • • • • •

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

Hal - 45 –


• • • • • • • • • • • • • • • • • • • • • • • • • •

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

Hal - 46 –


• • • • • • • • • • • • • • • • • • • • • • • • • • • •

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

Hal - 47 –

No title

Recommend Documents