Oleh : Uus Rusmawan Hal - 1 -

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 1 -

BAB KONEKSI 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


10.

Double klik create table in design view

11.

Buatlah struktur tabel sebagai berikut

No 1

Nama field

Type

Size

Ket

Kodebrg

Text

6

Primary key

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 3 2

Namabrg

Text

30

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)

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 4 16.

Klik OK

17.

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


24.

Atau tekan tombol CTRL + T

25.

Atau klik kanan ToolBox > Lalu pilih components

26.

Aktifkan dua checkbox seperti gambar di bawah ini


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


37.

Pilih microsoft jet 4.0 OLE DB Provider

38.

Klik next


39.

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


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


46.

Klik OK

47.

Klik OK sekali lagi

48.

Klik tabulasi recordsource


49.

Klik Button Command Type

50.

Pilih 2 - adCmdTable

51.

Klik button Table Or Stored Procedur Name

52.

Pilih Tabel “Barang”


53.

Klik apply

54.

Klik OK

55.

Klik datagrid1

56.

Hubungkan ke adodc1 pada properti datasource


57.

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

58.

Jalankan program dan hasilnya seperti gambar di bawah ini

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

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan 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

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.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

Jalankan program dan lihat hasilnya

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan 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

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 20 '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

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



Tulis nama DSN Klik select


Pilih database target Klik OK


Klik tabulasi recordsource


Klik apply Klik OK Jalankan program dengan start objek pada form2

Hasil


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


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



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)




Kembali ke VB


Klik apply Klik OK Jalankan program dan hasilnya sebagai berikut:


Dengan cara ODBC ini provider adodc terlihat sebagai berikut:


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

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

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 36 List1.AddItem RSBarang!kodebrg & vbTab & RSBarang!HargaBrg RSBarang.MoveNext Loop End Sub


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.


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.

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 38 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" 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 '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

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan Hal - 40 Jalankan program dan hasilnya terlihat sebagai berikut

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




Klik apply Klik OK

www.konsultasivb.com, www.belajarvb.com, www.pemrogramanvb.com, www.tugasakhirvb.com Oleh : Uus Rusmawan 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

Demikianlah beberapa cara koneksi database yang dapat dilakukan oleh VB

Oleh : Uus Rusmawan Hal - 1 -

Recommend Documents