Cara Mengoneksikan Database ke Visual Basic

       Dalam Sistem Informasi, kita mengenal Database. Dalam implementasinya dalam bentuk program, Database haruslah terkoneksi dengan aplikasi yang kita buat. Database dan aplikasi yang digunakan beragam. Misalnya yang banyak digunakan: Sistem Informasi berbasis Web (PHP + MYSQL) Berbasis Desktop (Delphi + SQL Server , Visual Basic + Ms. Access, dll). Pada tutorial kali ini, saya akan membahas tentang Visual Basic yang dikoneksi dengan Ms. Access.

1. Untuk langkah pertama, desain sebuah form sederhana seperti pada tampilan di bawah ini.

 yang di nomori 1 merupakan tombol DataGrid1 dan nomor 2 adalah Adodc. Untuk menambah control DataGrid  1 dan Adodc adalah:

·         Tekan Tombol Ctrl + T pilih Components, akan tampil kotak Dialog Components, seperti Disamping

·         Pilih Microsoft ADO Data Control 6.0 (OLEDB), dan Microsoft ADO DataGrid Contol 6.0 (OLEDB)

·         DataGrid adalah: Kontrol untuk menampilkan data menurut baris dan kolom yang mewakili record dan fiel suatu objek.

·         ADODC adalah: Kontrol / tombol yang menghubungkan Database dengan Form Visual Basic.

1. Setelah kita selesai membuat GUI-nya, langkah berikutnya membuat Database. Disini kita akan menggunakan Ms. Access. Buka Ms. Access dan buat Database baru. Beri nama Databasenya , dengan data_siswa..

2. Buat Tabel baru dengan nama siswa dengan meng-klick Create table in Design view. Seperti di bawah ini.

 

1. Isikan Field Table dan tipe datanya sebagai berikut, dimana NIM sebagai Primmary Key-nya. Kemudian simpan dengan nama siswa

 

1. setelah itu koneksikan Visual Basic dengan database, dengan cara.
• Pilih Kontrol ADODC, pilih properties, kemudian pilih Conection String sehingga muncul tampilan seperti dibawah ini.

 

·         Klik Build, setelah itu pilih select or enter database name, cari dimana database anda tersimpan.

·         Setelah itu klik tombol test conection.  Jika muncul seperti dibawah ini maka koneksi ke database berhasil.

·         Jalan kan Program Anda

Membuat Tombol Simpan Dan Hapus

1.            Klik tombol simpan, Buatlah  Kode Program  Seperti Dibawah ini.

Private Sub Command1_Click()

If Text1.Text = "" Then

 PESAN = MsgBox("Anda harus mengisi kode terlebih dahulu", vbInformation, "Informasi")

 Exit Sub

End If

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "SELECT * FROM siswa WHERE nim =' " & Text1.Text & " ' "

Adodc1.Refresh

Adodc1.Refresh

Adodc1.Recordset.AddNew

On Error Resume Next

Adodc1.Recordset.Fields(0) = Text1

Adodc1.Recordset.Fields(1) = Text2

Adodc1.Recordset.Fields(2) = Text3

Adodc1.Recordset.Fields(3) = Text4

Adodc1.Recordset.Fields(4) = Text8

Adodc1.Recordset.Update

PESAN = MsgBox("Data Sudah Tersimpan", vbInformation, "Informasi")

Adodc1.Refresh

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "SELECT * FROM siswa"

Adodc1.Refresh

End Sub

2.            Klik Tombol Hapus, Buatlah Kode Program Seperti Dibawah ini

Private Sub Command2_Click()

If Text1.Text = "" Then

    PESAN = MsgBox("Anda harus mengisi kode terlebih dahulu", vbInformation, "Informasi")

    Exit Sub

End If

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "SELECT * FROM siswa WHERE nim ='" & Text1.Text & "'"

Adodc1.Refresh

a = MsgBox(" Yakin data akan dihapus....????", vbYesNo + vbQuestion, "Konfirmasi")

Adodc1.Recordset.Delete

Adodc1.Refresh

Adodc1.Refresh

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "SELECT * from siswa "

Adodc1.Refresh

End Sub

Demikian lah saya membagikan informasi ini kepada anda semuanya .

Senang berbagi dengan anda .:)