Menyimpan / Input Data ke Databases Access

Pada tutorial kali ini kita akan belajar cara menyimpan / input data ke database access menggunakan Visual Basic, sebelum memulai tutorial ini, buatlah telebih dahulu file access dengan format .mdb  dengan nama file bebas tapi untuk nama tabel gunakan "Data_User" dan formatnya seperti ini :

Baca Juga :  Cara Membuat File Database Access

Jangan lupa untuk di simpan

1. Jika sudah, langkah selanjutnya jalankan vb dengan project standar Exe

2. lalu tambahkan 3 label, 3 text box, 2 command button, 1 data grid, dan 1 Adodc, aturlah sehingga seperti ini :

Tool Box	Properties	Keterangan
Form 1	Start Up Positions	Center Screen
Label 1	Caption	No
Label 2		Nama
Label 3		Alamat
Text 1	Text	(Kosong)
Text 2
Text 3
Command 1	Caption	SIMPAN
Commnad 2		KELUAR
Adodc 1	Visible	False
All	Font Size	12

3. Koneksikan Access dengan VB

(Disini saya menganggap Anda sudah bisa untuk mengkoneksikan Access dengan VB, jadi saya tidak menjelaskanya disini, )
(Tapi jika belum bisa anda bisa mempelajarinya Cara Mengkoneksikan Database Access dengan Visual Basic)

4. Jika sudah tuliskan script berikut :

Private Sub Command1_Click()
'Pesan Jika text 1 sampai 3 dalam keadaan kosong ketika command1 di klik
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "LENGKAPI DATA", vbInformation, "Blues Pedia"
Else 'Jika tidak Kosong

With Adodc1
'Menambahkan Data ke Access
Adodc1.Recordset.AddNew
  .Recordset.Fields(0) = Text1.Text 'Field 1 akan berisi data dari text 1
  .Recordset.Fields(1) = Text2.Text
  .Recordset.Fields(2) = Text3.Text
  .Recordset.Update
  .Refresh
  .RecordSource = "select * from Data_User"
  .Refresh
End With

DataGrid1.ReBind
'Jika data berhasil di input maka semua text akan dalam keadaan kosong, dan posisi kursor mouse ada di text 1
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End If
End Sub



Private Sub Command2_Click()
End
End Sub

5. Jika sudah jalankan program

Pertama coba masukan / input data dan lengkapi form yang ada lalu tekan "SIMPAN", jika form tidak di isi maka akan muncuk sebuah pesan "LENGKAPI DATA", Jika tidak maka otomatis data yang telah di input akan di simpan di database access,

Jika data berhasil di simpan maka data grid akan menampilkan data yang telah di input

Sekian tutorial kali ini semoga bemanfaat