VB6.0 :: TUTORIAL KONEKSI ADODC DATABASE MS ACCESS DI VB6

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 CodingTAMBAH,HAPUS,SIMPAN,CARI PADA ADODC..

Setelah Coding diatas sudah anda ketikan semua jalankan program anda dengan menekan F5.

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