Skip Navigation Links
Home
Paket E-book
Toko online
Layanan
Forum
Panduan
E-book
Testimoni
Faq
Reseller
Tentang
Donasi

Skip Navigation Links.
Expand ArtikelArtikel
Expand Basis Data - DatabaseBasis Data - Database
Expand Pemrograman GrafisPemrograman Grafis
Expand E-Book TutorialE-Book Tutorial
Expand Video Kursus - TutorialVideo Kursus - Tutorial
Expand Software - Open Source codeSoftware - Open Source code
Expand Windows SystemWindows System
Expand Network ProgrammingNetwork Programming
Expand Bisnis ProsesBisnis Proses
Expand XBasicFrameworkXBasicFramework
Expand Pengen Jadi Programmer..!Pengen Jadi Programmer..!
Expand Quick BasicQuick Basic


Software gratis! Open Source Code


Hartoto

Buat Lencana Anda



Skip Navigation LinksMENU>Artikel>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

:: Klik Suka di FansPage XBasicPro Jika ANDA suka dengan Website ini klik di sini! ::




 Subscribe in a reader


  (C)XBasicPro 2007 - 2014 | Kursus Programmer Online | Software Gratis | Open Source Code |