Cara Mengkoneksikan Database Accsess Di Visual Basic 6.0

Cara Mengkoneksikan Database Accsess Di Visual Basic 6.0. dalam pembuatan program atau aplikasi di vb hal ini tentunya sangat penting. Sebab agar program atau aplikasi ini dapat berjalan dengan baik maka diperlukan koneksi antara aplikasi dan database.

Sebagai contoh sampul ilmu membuat database terlebih dahulu untuk cara membuat database anda dapat mengikuti langkah-langkahnya di Cara Membuat Database VB Menggunakan Microsoft Access. Setelah selesai membuat database. Kemudian sampul ilmu membuat form yang didalamnya terdapat nis, nama siswa , tempat lahir, tanggal lahir, Jenis Kelamin dan alamat.

Berdasarkan penjelasan diatas maka sampul ilmu menjelaskan tentang cara membuat koneksi Database Accsess Di Visual Basic 6.0. dengan langkah-langkah sebagai berikut :

Pertanyaannya :
Buatlah Form dengan 6 Buah Label, 5 Buah TextBox, 1 Buah ComboBox dan 1 Buah CommandButton dengan keterangan sebagai berikut :

Label1	Ubah Caption Menjadi NIS
Label2	Ubah Caption Menjadi NAMA SISWA
Label3	Ubah Caption Menjadi TEMPAT/TANGGAL LAHIR
Label4	Ubah Caption Menjadi JENIS KELAMIN
Label5	Ubah Caption Menjadi ALAMAT
Text1	Kosongkan Text
Text2	Kosongkan Text
Text3	Kosongkan Text
Text4	Kosongkan Text
Text5	Kosongkan Text
Combo1	Kosongkan Text kemudian Pada List Ketikan Laki-Laki Tekan CTRL + ENTER untuk Menuliskan Perempuan Tepat Dibawah
Command1	Ubah Caption Menjadi &SIMPAN

Hasilnya akan Seperti Pada Gambar Berikut :

Sebelum Proses koneksi database dilakukan terlebih dahulu aktifkan Microsoft Activex Data Objects 2.0 Library  caranya 

1. Klik Menu Project Tepatnya DiAtas Halam Vb anda 
2. Setelah itu Pilih References
3. Kemudian Cari Dan  Centang Microsoft Activex Data Objects 2.0 Library Setelah itu Klik Ok

Langkah Selanjutnya Membuat Module

Untuk Membuat Module Ada 2 Cara 

Cara Pertama

1. Klik Gambar Form Di Kiri Atas 
2. Kemudian Pilih Module

Cara Kedua

1. Klik Kanan Pada Form1 Disebelah Kanan Pada Project 
2. Kemudian Clik Add 
3. Clik Module

Clik Doubel Pada Module Kemudian Copy Paste Kode Dibawah ini

Global db As New ADODB.Connection

Sub Connect()

Set db = New ADODB.Connection

    db.CursorLocation = adUseClient

    db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\db_siswa.mdb"

End Sub

Clik Double Pada Tombol Simpan kemudian Masukan Kode Berikut:

pesan = MsgBox("Simpan Data Siswa ", vbQuestion + vbYesNo, "Informasi")

If pesan = vbYes Then

db.Execute ("insert into siswa values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Combo1.Text & "','" & Text5.Text & "')")

End If

Text1 = Clear

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text5 = Clear

Combo1 = Clear

Clik Double Pada Form kemudian Copy Code Berikut

Connect

Untuk Lebih Jelasnya Lihat gambar dibawah ini

Untuk Melihat Apakah Koneksi Anda Berhasil Buka Project anda kemudian RUN input data kemudian clik simpan dan lihat hasilnya pada database access.

Semoga Cara Mengkoneksikan Database Accsess Di Visual Basic 6.0 dapat bermanfaat dan dijadikan sebagai bahan pembelajaran terima kasih.

.