Pada tutorial kali ini kita akan mencar ilmu cara menyimpan / input data ke database access memakai 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 menyerupai 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. kemudian tambahkan 3 label, 3 text box, 2 command button, 1 data grid, dan 1 Adodc, aturlah sehingga menyerupai 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 aku menganggap Anda sudah dapat untuk mengkoneksikan Access dengan VB, jadi aku tidak menjelaskanya disini, )
(Tapi jikalau belum dapat anda dapat mempelajarinya Cara Mengkoneksikan Database Access dengan Visual Basic)
4. Jika sudah tuliskan script berikut :
Private Sub Command1_Click()
'Pesan Jika text 1 hingga 3 dalam keadaan kosong saat command1 di klik
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "LENGKAPI DATA", vbInformation, "Routeros Mikrotik"
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 kemudian tekan "SIMPAN", jikalau 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 biar bemanfaat
Comments
Post a Comment