Thursday, April 19, 2018

Vb 6.0 – Cara Koneksi Database Access (.mdb)

visual basic 6.0


Halo sobat cerdas Askha Net, kali ini saya akan memberikan tutorial Gratis tentang Cara Koneksi Visual Basic 6.0 dengan Database Access (.mdb). Bagi kalian yang mau belajar pemograman, koneksi database termasuk penting. Karena hampir setiap program yang kita buat membutuhkan media penyimpanan yaitu mwngunakan database.
Yuk langsung saja kita buat databasenya, silahkan ikuti tahapan berikut ini.
1.      Pertama, kalian harus memiliki Software Microsoft Visual Basic 6.0 yang sudah terinstall di computer milik anda.
2.      Silahkan buka Microsoft Visual Basic 6.0 – pilih Standard EXE –  klik Open.
3.      Sebelum melakukan koneksi kita harus menambahkan References terlebih dahulu. (caranya klik Project – References – pilih Microsoft Activex Data Object 2.0 Library)
visual basic 6.0
visual basic 6.0

4.      Buatlah database dengan cara Klik Add-Ins – Visual Data Manager – File – New – Microsoft Access – 2007 MDB.. Kemudian Simpan Dengan Nama “DBLatian.mdb”
visual basic 6.0
visual basic 6.0

5.      Setelah selesai membuat database, sekarang kita buat tabelnya. (caranya klik kanan pada properties – new table – isi Table name dengan “TBL_1” – kill Add Field.
visual basic 6.0
visual basic 6.0

6.      Isi Name dengan “Kode” kemudian Klik ok, isi kembali Name dengan “Nama” kemudian klik Ok – Close.
visual basic 6.0

7.      Klik Add Index – kemudian isi seperti berikut.
visual basic 6.0

8.      Selanjutnya klik Build The Table.
9.      Kembali ke design Form,
10.  Lalu pada jendela Toolbox Klik Kanan – pilih Component (seperti pada gambar)
visual basic 6.0

11.  Kemudian tambahkan component Microsoft Data Grid Control 6.0 (OLEDB) dengan cara tekan ceklist – kemudian klik Ok.
visual basic 6.0

12.  Buatlah design Seperti Dibawah ini

13.  Lanjut ke koding, Tambahkan variable berikut pada area paling atas.
Dim DB As ADODB.Connection
Dim RS_A As ADODB.Recordset

14.  Masukan koding berikut pada area Private Sub Form_load() ……………… end sub

Set DB = New ADODB.Connection
DB.Open "Provider=microsoft.jet.oledb.4.0; data source =" & App.Path & "\DBLatian.mdb"

Set RS_A = New ADODB.Recordset
RS_A.CursorLocation = adUseClient
RS_A.Open "Select * From TBL_1 order by Kode", DB, 3, 2

With DataGrid1
Set .DataSource = RS_A
.Refresh
End With

visual basic 6.0
15.  Kemudian isi data terlebih dahulu padadatabasenya. Degan cara klik add.
visual basic 6.0

16.  Jalankan projectnya dengan cara menekan F5 pada keyboard dan lihat hasilnya.
Jika data sudah di isi maka hasilnya seperti dibawah ini.
visual basic 6.0
Tetapi jika belum diisi data maka yang tampil hanya “Kode” dan “Nama” saja…

Sekian tutorial kali ini, jika kalin sudah berhasil saya ucapkan Selamaat…. Bagi yang belum berhasil silahkan di cek lagi kodingnya, ikuti cara di atas dengan seksama, jangan mudah menyerah.
Selamat mencoba, silahkan tinggalkan komentar kalian dan tunggu tutorial menarik lainnya.. terimakasih…



EmoticonEmoticon