Belajar Visual basic koneksi ke database

Contoh SEDERHANA menyimpan dan menghapus data ke/dari database di visual basic

Artikel ini khusus buat kamu yang belum paham dan ingin belajar sendiri bagaimana mengkoneksikan visual basic ke database,  menyimpan data kita ke database lalu menampilkannya dan menghapusnya. Bagi kamu yang sudah mahir, tidak usah membaca artikel ini karena yang coba saya sampaikan nanti sangatlah sederhana.

- Buka visual basic

kita menggunakan data dan dbgrid. silakan aktifkan kedua komponen tersebut dengan cara klik kanan toolbox -> component -> beri centang pada Microsoft Datagrid Control 6.0 (OLEDB) dan Microsoft Data Bound Grid Control 5.0 (SP3)

1. MEMBUAT DATABASE

- klik menu Add-Ins, pilih Visual Data Manager



 

 

 

 

 

 

- klik FILE pilih NEW, pilih Microsoft Acces, pilih Version 7.0 MDB

- beri nama database, semisal : databaseku

- selanjutnya kita buat tabel, Klik kanan pada Properties, pilih New Table

- tulis nama tabel pada table name, contoh : tabelku

- klik Add Field, di sini kita akan mulai mengisi nama-nama field kita, pada contoh ini saya hanya membuat 3 field, yakni

field ke 1, name = nim, jenis = text, size = 10, pada option button pilih = fixed field, tekan tombol OK

field ke 2, name = nama, jenis = text, size =25, pada option button pilih =fixed field, tekan tombol OK

field ke 3, name =jkel, jenis = text, size = 1, pada option button pilih =fixed field, tekan tombol OK,

kita sudah selesai membuat field, maka klik tombol Close, klik Build The Table.

Database dan sebuah tabel telah kita buat, sekarang kita membuat tampilan form.

2. MEMBUAT FORM

- Buat sebuah form, seperti berikut:



 

 

 

 

 

 

 

 

- atur properties

textbox1, name= txtnim

textbox2, name = txtnama

commandbutton1, name = cmdtambah, caption = TAMBAH

commandbutton2, name = cmdhapus, caption = HAPUS

commandbutton3, name=cmdkeluar, caption = KELUAR

data1, databasename = (di isi dengan database yang kita buat tadi), recordsettype = 0-Table, recordsource = tabelku

dbgrid, databasename = data1

- codingnya :

Private Sub cmdhapus_Click()
hapus = MsgBox("Yakin akan dihapus?", vbOKCancel, "Mengapus Record")
If hapus = vbOK Then
On Error Resume Next
Data1.Recordset.Delete
End If
On Error GoTo 0
Data1.Recordset.MoveFirst
Data1.Refresh
End Sub
---------------------
Private Sub cmdkeluar_Click()
End
End Sub
---------------------
Private Sub cmdtambah_Click()
On Error Resume Next
Data1.Recordset.AddNew
Data1.Recordset!nim = txtnim.Text
Data1.Recordset!nama = txtnama.Text
If Option1.Value = True Then
Data1.Recordset!jkel = "L"
Else
Data1.Recordset!jkel = "P"
End If
Data1.Recordset.Update
On Error GoTo 0
txtnim.Text = ""
txtnama.Text = ""
txtnim.SetFocus
End Sub
--------------------
Private Sub Form_Load()
txtnim.Text = ""
txtnama.Text = ""
Option1.Value = True
End Sub

Selesai... silakan dijalankan... :D

[artikel ini murni tulisan saya(alvin) sendiri, jika ada artikel yang mirip atau sama seperti artikel ini di blog/website lainnya, maka dapat diperkirakan artikel tersebut ngopi punya saya]