Koneksi VB 6.0 dengan database access

Koneksi Visual Basic dengan database Microsoft Access

Pada postingan kali ini, akan saya kupas tentang bagaimana caranya menghubungkan sebuah program visual Basic 6.0 dengan database.

Microsoft Visual Basic 6.0 telah mendukung sumberdaya database relational dan query, baik itu dengan MS Access, MySQL dan lain sebagainya, yang dibutuhkan disini hanyalah mengetahui jenis provider yang akan dihgunakan saja, juga jenis jenis objek untuk menghubungkanya.

Pasa VB 6.0 tersedia berbagai objek component yang dapat digunakan untuk mengkoneksikan database yaitu salah satunya komponen ADO ( Active Data Control ) dan DAO , namun sekarang teknologi DAO sudah banyak digunakan , dan para progammer telah beralih kepada Objek ADO , ADO sendiri dapat dibedakan lagi umumnya menjadi dua jenis yaitu ADODC ( Active Data Object Data Control ) dan ADODB , jika ADODB itu bukanlah sebuah komponen/objek berbasis GUI maka ADODC adalah GUI nya atau interfacenya.

Nah kali ini, kita akan sama-sama belajar membuat sebuah program input data mahasiswa dengan database Access dan dengan komponen ADODC berikut datagrid nya.

Langkah – langkahnya :

1.       Buka mIcrosoft VB 6.0 nya : start >> All Programs >> Microsoft Visual Basic 6.0

2.       Lalu desain form seperti dibawah ini :

Untuk menambahkan objek Adodc1 dan datagrid , caranya adalah

Klik kanan pada toolbox atau tekan Ctrl+T ,

Lalu pilih komponen2 pada tab control seperti dibawah ini :

Kalau sudah di check , tekan Apply  >> ok

3.       Jika sudah maka pada toolbox akan muncul 2 component baru, selanjutnya silahkan drag dan tambahkan kedalam form seperti tampilan diatas.

4.       Sebelum masuk ke cara pengkoneksian, terlebih dahulu dibuat dahulu databasenya dengan Microsoft Office Access 2003, jika adanya 2007 , maka harus disave as dahulu ke format 2002-2003

*) Buat Database dengan nama  : kampus.mdb

*) Buat 1 buah Tabel dengan nama : mahasiswa dan desain field2nya sebagai berikut :

               

Fields	Type	Field Size
nim ( Primary Key )	Text	8
nama	Text	25
kelas	Text	8
alamat	Text	25

5.       Langkah berikutnya adalah mengkoneksikan Adodc dengan database kampus yang sudah kita buat, caranya :

Klik kanan pada objek Adodc1 >> pilih Adodc properties >> pada tab General pilih option yang paling bawah ( use connection string ) >> build >> cari provider Microsoft JET 4.0 OLEDB

Lalu tekan Next >>

Pada Tab Connection pilih database name ( cari lokasi penyimpanan database dan klik databasenya ) >> lalu klik text connection , jika Success maka ok , jika gagal maka cek apakah database accessnya masih terbuka atau tidak ( harus ditutup dahulu databasenya )

6.       Lalu masih pada Adodc1 properties , pilih tab Recordsource , pilih command type : table dan pilih nama tabelnya : mahasiswa

7.       Jika Adodc sudah selesai, berikutnya adalah setting pada datagrid1 nya, untuk memunculkan data layaknya tabel, pada objek datagrid, cari pada bagian property nya datasource , pilih Aoddc1

8.       Sekarang coba jalankan formnya apakah field2 pada tabel mahasiswa sudah masuk pada datagrid atau belum, jika sudah “SELAMAT” anda telah berhasil mengkoneksikan database anda dengan program.

9.       Untuk Kode Programnya silahkan ketiikan listing dibawah ini :

Private Sub cmdbatal_Click()

Adodc1.Recordset.CancelBatch

bersih

nonaktif

End Sub

Private Sub cmddel_Click()

Dim cari As String

cari = InputBox("Masukkan NIM yg akan dihapus")

Adodc1.Recordset.Find "nim = '" & cari & "'"

If Not Adodc1.Recordset.EOF Then

Adodc1.Recordset.Delete

Adodc1.Refresh

MsgBox "Data telah dihapus"

Else

MsgBox "Data tidak ada!"

Adodc1.Refresh

End If

DataGrid1.Refresh

End Sub

Private Sub cmdedit_Click()

aktif

Text1.SetFocus

End Sub

Private Sub cmdexit_Click()

p = MsgBox("Yakin Mau Keluar??", vbQuestion + vbOKCancel, "EXIT")

If p = vbOK Then

End

End If

End Sub

Private Sub cmdfind_Click()

Dim cari As String

cari = InputBox("Masukkan NIM yg dicari")

Adodc1.Recordset.Find "nim = '" & cari & "'"

If Not Adodc1.Recordset.EOF Then

tampil

Adodc1.Refresh

Else

MsgBox "Data tidak ada!"

Adodc1.Refresh

End If

End Sub

Private Sub cmdnew_Click()

bersih

Text1.Enabled = True

Text1.SetFocus

End Sub

Private Sub cmdsave_Click()

If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then

MsgBox "Lengkapi dahulu!"

Else

Adodc1.Recordset!nim = Text1

Adodc1.Recordset!nama = Text2

Adodc1.Recordset!kelas = Text3

Adodc1.Recordset!alamat = Text4

Adodc1.Recordset.Update

End If

End Sub

Private Sub Form_Load()

nonaktif

End Sub

Sub bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

End Sub

Sub nonaktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

End Sub

Sub tampil()

Text1 = Adodc1.Recordset!nim

Text2 = Adodc1.Recordset!nama

Text3 = Adodc1.Recordset!kelas

Text4 = Adodc1.Recordset!alamat

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Adodc1.Recordset.Find "nim = '" & Text1 & "'"

If Not Adodc1.Recordset.EOF Then

MsgBox "Data Sudah ada, ganti!"

tampil

Adodc1.Refresh

Else

MsgBox "Data belum ada,lanjutkan"

Adodc1.Refresh

Adodc1.Recordset.AddNew

aktif

Text2.SetFocus

End If

End If

End Sub

 Untuk Source Code / Listing Program Diatas , silahkan Klik Disini

# Semoga Bermanfaat

Posted in: Tutorial VB 6.0