Pemrograman Database Visual Basic

PEMROGRAMAN DATABASE ACCESS

DENGAN MENGGUNAKAN BAHASA PEMROGRAMAN VISUAL BASIC 6.0

PROGRAM INPUT BIODATA

1. Listing Program

  a. Script Untuk Simpan

Adodc1.Recordset.AddNew
Adodc1.Recordset!No = Text1.Text
Adodc1.Recordset!Nama_Lengkap = Text2.Text
Adodc1.Recordset!Kelas = Combo1.Text
Adodc1.Recordset!Alamat = Text3.Text
Adodc1.Recordset.Update
DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""

  b. Script Untuk Cari Data

Adodc1.Recordset.Find "Nama_Lengkap='" + Text4.Text + "'", , adSearchForward, 1

If Not Adodc1.Recordset.EOF Then

     Text1.Text = Adodc1.Recordset!No

     Text2.Text = Adodc1.Recordset!Nama_Lengkap

     Combo1.Text = Adodc1.Recordset!Kelas

     Text3.Text = Adodc1.Recordset!Alamat

End If

Catatan : Script diatas ditulis di Text4

  c. Script Untuk Edit

Adodc1.Recordset!No = Text1.Text

Adodc1.Recordset!Nama_Lengkap = Text2.Text

Adodc1.Recordset!Kelas = Combo1.Text

Adodc1.Recordset!Alamat = Text3.Text

Adodc1.Recordset.Update

DataGrid1.Refresh

Text1.Text = ""

Text2.Text = ""

Combo1.Text = ""

Text3.Text = ""

Text4.Text = ""

Catatan : Sebaiknya Edit dilakukan setelah adanya perintah Cari Data

  d. Script Untuk Hapus

Adodc1.Recordset.Delete

DataGrid1.Refresh

  e. Script Untuk Keluar

End

Untuk Design Program

Untuk Output Program

SELAMAT MENGERJAKAN ...!!!

TERIMA KASIH

WASSALAM.........!!!