Cara MENGKONEKSIKAN DATABASE ACCESS DENGAN ADODC


TUTORIAL KONEKSI ADODC DATABASE MS ACCESS DI VB6

Akhirnya Bisa Corat-Coret lagi nie setelah hampir 1 bulan disibukan dengan pembuatan tugas akhir vb6 dengan Project Penjualan alokasi Di Waloja Motor.. 😀
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.

ujung harapan

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.. 😀

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..

https://zoemalang.wordpress.com
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..

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Mari kita bersama meningkatkan kesadaran kita - Mulailah berpikir cerdas, Kita semua beragama !!! Agama bukan identitas...jadikanlah agama untuk keluar dari kebodohan

Tulisan di blog ini mungkin sangat ngawur tapi mungkin juga benar. Merdekakan pikiran anda, sentuh hati nurani anda. Yang ada tinggal KASUNYATAN SEJATI

Zoemalang's community at www. zoemalang.wordpress.com

ujung malang adalah Sebuah desa yang hilang terganti dengan ujung harapan

YoYo Games Blog Feed

Tulisan di blog ini mungkin sangat ngawur tapi mungkin juga benar. Merdekakan pikiran anda, sentuh hati nurani anda. Yang ada tinggal KASUNYATAN SEJATI

Dealer Termurah

Menjual Segala Jenis Motor Baru Di Indonesia Cash Maupun Kredit

%d blogger menyukai ini: