Wednesday, May 2, 2012

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:



 

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"

0 comments:

Post a Comment