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 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 koneksi database dengan 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
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 :
Private Sub Form_Load()
connect
Set DataGrid1.DataSource = gaji
End
8. 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 Cara Koneksi Database ADODB VB6 dengan Metode AppPath. Silakan kreasikan sendiri program Anda sesuai dengan program yang anda miliki.Selamat mencoba semoga berhasil.