Pages

Untuk Mencapai Kesuksesan, Kita Jangan Hanya Bertindak, Tapi Juga Perlu Bermimpi, Jangan Hanya Berencana, Tapi Juga Perlu Untuk Percaya

Senin, 29 November 2010

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 source code vb6 adodc untuk mencoba program ini.

1 komentar:

Wildan mengatakan...

gan ane minta sih source codenya penting banget, tugas kuliah nih
ni emailnya tlng gan
danz.asrevenge@gmail.com

Posting Komentar