Cara Koneksi Database dengan ADODB dengan Metode AppPath di VB6

Cara Koneksi Database dengan ADODB dengan Metode AppPath di VB6 - Pada pertemuan kali ini di hari yang penuh barokah Saya ingin memberikan tips bagaimana cara membuat koneksi database dengan menggunakan ADODB dan AppPath.Sebenarnya banyak cara untuk bisa mengkoneksikan database di visual basic itu semua tergantung inat Anda yang menurut Anda lebih cocok.

Dengan menggunkan koneksi metode ini, kita tidak perlu lagi mengubah setingan Databasenya ketika program Anda ingin dibuka di komputer lain yang artinya database langsung terbaca. Berbeda dengan koneksi database menggunakan Connection String dengan Properties dimana pada saat Anda ingin membuka program yang Anda buat dan dibuka dengan komputer yang lain maka akan terjadi error dan mensetting ulang koneksi Databasenya.Dengan metode Apppath Anda lebih leluasa membuka program Anda di komputer manapun yang terdapat Visual Basic tanpa harus setting ulang databasenya.

Koneksi database ini adalah cara pavorit Saya, karena dalam pembuatan koneksinya tidak memerlukan objek yang berkaitan dengan Database alias tanpa objek.Untuk koneksi jenis ini yang perlu Anda ketik adalah kodenya agar dapat di baca sistem komputer supaya ditampilkan isi file databasenya.Untuk menampilkan isi database Anda perlu menanamkan satu buah Datagrid do form.

Baiklah kali ini Saya tidak akan panjang lebar, dan langsung saja ke tutorial berikut dibawah ini:

Cara membuat koneksi database dengan menggunakan ADODB dan AppPath.

1. Buka Form VB6 Anda pilih Standar EXE

2. Setelah itu kita tinggalkan dulu form sejenak.

3. Sekarang kita beralih ke menu bar klik menu Project > klik References, lihat gambar :

4. Selanjutnya cari Microsoft ActiveX Data Object 2.0 Library kemudian Ceklist  dan OK

5. Sekarang tambahkan Module, Project > Add Module

6. Kemudian ketik kode dibawah ini di bagian jendela Module :

Option Explicit

Public conn As ADODB.Connection 'nama koneksi Conn

Public gaji As ADODB.Recordset   ' nama record gaji

Sub connect()

Set conn = New ADODB.Connection

conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\DataKar.mdb; persist security info false"  'DataKar.mdb adalah nama database

'database gaji

Set gaji = New ADODB.Recordset

gaji.ActiveConnection = conn

gaji.CursorLocation = adUseClient

gaji.CursorType = adOpenDynamic

gaji.LockType = adLockBatchOptimistic

gaji.Source = "select*from Tabel_Gapok_Tunjangan"   'Tabel_Gapok_Tunjangan nama Tabel

gaji.Open

7. Sekarang kembali ke form,tanamkan dalam form sebuah Tabel Datagrid, ini berfungsi untuk  menampilkan isi Databse Anda

8. Kemudian buka jendela kode pada form ketik kode dibawah ini :

Private Sub Form_Load()

connect

Set DataGrid1.DataSource = gaji

End

9. Simpan hasil pekerjaan Anda jika koneksi berhasil maka akan muncul gambar dibawah ini :

Form Database

Penting

File Database harus di jadikan satu folder dengan form

Sebagai tambahan berikut di bawah ini adalah kode untuk TAMBAH, HAPUS dan EDIT

A. Kode Tambah Data :

Dim sqltambah As String

sqltambah = "insert into Tabel_Gapok_Tunjangan (nik,nama,jabatan,gapok,tunjab,tunj_transp,tunj_makan)values('" & Combo2.Text & "','" & Text2.Text & "','" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "')"

conn.Execute sqltambah

B. Kode Edit Data

sqlubah = "update Tabel_Gapok_Tunjangan set nama='" & Text2.Text & "',jabatan='" & Combo1.Text & "', gapok='" & Text3.Text & "',tunjab='" & Text4.Text & "', tunj_transp='" & Text5.Text & "', tunj_makan='" & Text6.Text & "' where nik='" & Combo2.Text & "'"

conn.Execute sqlubah

C. Kode Hapus Data

sqldel = "delete from Tabel_Gapok_Tunjangan where nik='" & Text1.Text & "'"

conn.Execute sqldel

Demikian tip cara Cara Koneksi Database dengan ADODB dengan Metode AppPath di VB6. Silakan kreasikan sendiri program Anda sesuai dengan program yang anda miliki.Selamat mencoba semoga berhasil.

Related Post: Koneksi Database