 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
MENU>Artikel Visual Basic>Visual Basic 6.0 Database>Dasar Pegolahan Data ADODC
Aplikasi database dengan ADODC & Visual Basic 6.0
|
|
|
|
|
ADODC adalah komponen akses data yang disediakan Microsoft
untuk mempermudah pegkasesan data pada program kita.
Dengan ADODC kita dapat berhubungan dengan database SQL Server maupun database Access
lalu melakukan pengolahan data standar seperti menambah, menghapus, cari, hapus
simpan dan lain-lain.
ADODC bisa menjadi komponen pengikat data di database dengan kontrol pengolah data
seperti textbox, maupun kontrol MSHFlexGrid.
Kali ini kita akan melakukan pengolahan database MS-Access dengan kontrol ADODC
di visual basic 6.0
Buat database baru dengan Microsoft Access lalu buat
tabel Karyawan seperti gambar di bawah ini:
Simpan dengan nama dataku.mdb lalu tutup Microsoft Acces
Point penting dari ADODC adalah kita membuat connection stringnya dan melalui
property connection string menentukan recordsource melalui property recordsource.
contoh:
adodc1.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\artikel\vb6
db adodc\dataku.mdb;Persist Security Info=False"
adodc1.RecordSource="SELECT * FROM Karyawan"
Selanjutnya kita melakukan pengikatan data (binding) ke textbox melalui property
datasource dan datafield objek textbox.
Buatlah form seperti di bawah ini:
berikut ini adalah kode selengkapnya:
Private Sub cmdCari_Click()
Dim sNik As String
sNik = InputBox("NIK:")
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "nik='" & sNik & "'"
End Sub
Private Sub cmdHapus_Click()
Adodc1.Recordset.Delete
cmdTampil_Click
End
Private Sub cmdSimpan_Click()
Adodc1.Recordset.Fields("nik") = txtNik.Text
Adodc1.Recordset.Fields("nama") = txtNama.Text
Adodc1.Recordset.Fields("alamat") = txtAlamat.Text
cmdTampil_Click
End Sub
Private Sub cmdTambah_Click()
Adodc1.Recordset.AddNew
txtNik.Text = ""
txtNama.Text = ""
txtAlamat.Text = ""
End Sub
Private Sub cmdTampil_Click()
Set grd.Recordset = Adodc1.Recordset
grd.ColWidth(0) = 0
grd.ColWidth(1) = 1000
grd.ColWidth(2) = 2000
grd.ColWidth(3) = 3000
End Sub
Private Sub Form_Load()
cmdTampil_Click
End Sub
Jika program ini dijalankan maka akan terlihat seperti
gambar di bawah ini:
Download
download source code contoh koneksi vb6 adodc klik di sini!
Setelah Anda selesai membuat aplikasi database mungkin anda menemui masalah
ketika anda menginstall di komputer lain yang posisi path atau folder
penyimpanan database nya berbeda dengan di komputer anda misalnya waktu membuat
aplikasi anda simpan di
d:\program\dataku.mdb sedangkan waktu install mungkin di
c:\program\dataku
Hal ini bisa diatasi dengan membuat kata kunci App.Path
Sehingga connection string nya:
adodc1.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\artikel\vb6
db adodc\dataku.mdb;Persist Security Info=False"
kita ganti menjadi:
adodc1.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& app.path & "\dataku.mdb;Persist Security Info=False"
Hal yang sama dapat anda lakukan dengan objek data1 bawaah visual basic 6
Lihat kode di bawah ini:
Data1.DatabaseName
= App.Path & "\dataku.mdb"
Untuk memperoleh penjelasan detail mengenai wizard pembuatan connection string dan
recordsource pada ADODC beserta dengan penjelasan lengkap arti dari kode-kode pada
program ini anda bisa membaca E-Book saya yang berjudul
TRIK DATABASE VISUAL BASIC 6.0
Anda juga dapat melihat contoh penggunaan ADODC ini pada
Software Pegadaian
|
|
|
|