Tutorial ADODC Koneksi Database Access Dengan ADODC

Akhirnya Bisa Corat-Coret lagi nie setelah hampir 1 bulan disibukan dengan pembuatan tugas akhir vb6 dengan Project Penjualan alokasi Di Waloja Motor.. :D

Pada Tutor Kali ini saya akan berbagi sedikit ilmu yang mungkin bisa bermanfaat bagi kalian yang baru belajar Pemrograman visual basic..khusunya masalah mengenai pemrograman database.. :)

Tapi pada kesempatan Kali ini saya hanya akan memberikan tutorial dasar mengenai ADODC Dan Cara MENGKONEKSIKAN DATABASE ACCESS DENGAN ADODC.. bagi yang sudah master gak usah dibaca ya.. :))

Oke langsung saja.. pertama2 buat database di access dengan nama mahasiswa.mdb buat tabel dengan nama mahasiswa juga dan isikan filed NPM,NAMA,ALAMAT seperti gambar dibawah ini.

setelah Database mahasiswa.mdb di buat simpan dan close database tersebut..

Langkah selanjutnya Buka Editor VB kalian dan buat sebuah form dengan menambahkan 3 Label,3Textbox,4Buah CommandButton,1 Buah DataGrid Dan Tentunya 1 Buah ADODC.. Lihat Gambar Dibawah ini

Sebelum kita masuk Dalam coding buat dahulu suatu module yang berisi coding seperti di bawah ini:

Public Conn As New ADODB.Connection

Public Sub koneksi()

On Error GoTo konekErr

If Conn.State = 1 Then Conn.Close

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mahasiswa.mdb;Persist Security Info=False"

Exit Sub

konekErr:

    MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"

End Sub

Coding diatas berfungsi sebagai APP.PATH atau kalu dijabarkan adalah untuk menentukan letak database yang telah kita buat.. karena dari kebanyakan kasus dan dari pengalaman saya juga ketika kita membuat program ini di kampus maupun di komputer lain ketika kita pindahkan ke flashdisk atau dijalankan di komputer yang lain akan muncul pesan erorr mengenai Letak DataBase mahasiswa.mdb yang telah kita buat Tadi karena saat kita Memasukan Database kita secara manual lewat properti lewat ConnectionString bisa saja letak database mahasiswa.mdb yang telah kita buat berada di folder D:\mahasiswa.mdb dan ketika kita pendah ke Flashdisk dan dijalankan lewat flashdisk maka ADODC tidak menemukan leatk database.mdb tersebut Karena mungkin letaknya Berpindah Di G:\mahasiswa.mdb makanya di perlukan Coding tambahan APP.PATH tersebut sehingga ketika kita menjalankan Program tersebut di lain komputer tidak akan terjadi erorr database.. Dan Hal penting yang Harus Di ingat adalah Letakan Database Mahasiswa.mdb tersebut berada pada satu folder dengan project vb yang kita buat tadi..

Oke Selanjutnya setelah itu double click pada form1 project sehingga kita menuju pada form menu editor untuk coding..

silahkan ya langsung Copas kan saja koding dibawah ini.. tapi jika kalian ingin belajar silahkan di ketik manual.. :D

Private Sub Form_Load()

koneksi

Adodc1.ConnectionString = Conn.ConnectionString

Adodc1.RecordSource = "select * from mahasiswa"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Command1_Click()

  Adodc1.Recordset.AddNew    'Berfungsi untuk mengosongkan text dan mengisi data untuk disimpan..

  Me.Text1.Text = ""

  Me.Text2.Text = ""

  Me.Text3.Text = ""

End Sub

Private Sub Command2_Click()

'Berfungsi untuk Menghapus Data dengan konfirmasi terlebih dahulu

If MsgBox("Yakin Ingin Menghapu Data..??", vbQuestion + vbOKCancel, "konfirmasi") = vbOK Then

Adodc1.Recordset.Delete

Me.DataGrid1.Refresh

End If

End Sub

Private Sub Command3_Click()

'pencarian nama dengan inputbox

Dim sNPM As String

  sNPM = InputBox("NAMA:")

  

  Adodc1.Recordset.MoveFirst

  Adodc1.Recordset.Find "NAMA='" & sNPM & "'"

End Sub

Private Sub Command4_Click()

'berfungsi untuk menyimpan data  masukan pada textbox 

Adodc1.Recordset.Fields("NPM") = Me.Text1.Text

  Adodc1.Recordset.Fields("NAMA") = Me.Text2.Text

  Adodc1.Recordset.Fields("ALAMAT") = Me.Text3.Text

  MsgBox "Data Berhasil Disimpan..!!", vbOKOnly + vbInformation, "Konfirmasi"

  Me.DataGrid1.Refresh

End Sub

Nah Koding Diatas berfungsi Untuk MENAMPILKAN DATA ADODC PADA DATAGRID dan Coding TAMBAH,HAPUS,SIMPAN,CARI PADA ADODC..

Setelah Coding diatas sudah anda ketikan semua jalankan program anda dengan menekan F5 dan jika tidak terjadi erorr maka tampilannya adalah sebagai berikut.. 

Coding diatas Dibuat otomatis untuk mengkoneksikan database adodc kita ke database access secara otomatis.. jadi kita tidak perlu lagi menset ConnectionString dan memilih database pada properti vb karena semuanya sudah diset di module yang telah kita buat diatas..

Bagi yang ingin lebih lanjut silahkan Download project contoh saya di Sini DOWNLOAD

Chintya