Cara Koneksi Database ADODB VB6 dengan Metode AppPath

Cara Koneksi Database dengan ADODB dengan Metode AppPath di VB6 - Pada pertemuan kali ini di hari yang penuh barokah kami 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 kami tidak akan panjang lebar, dan langsung saja ke tutorial berikut dibawah ini:

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 :

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

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

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

File Database harus di jadikan satu folder dengan form

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

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

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

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

conn.Execute sqldel

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