Contoh Program Database Pada Visual Basic

Simpan

Private Sub Command1_Click()

If Text1.Text = Empty Then

Text1.SetFocus

Exit Sub

End If

cari = "npm = '" & Text1.Text & "'"

Data1.Recordset.FindFirst cari

If Data1.Recordset.NoMatch Then

Data1.Recordset.AddNew

Data1.Recordset.nama = Text1.Text

Data1.Recordset.npm = Text2.Text

Data1.Recordset.kelas = Text3.Text

Data1.Recordset.jurusan = Text4.Text

Data1.Recordset.fakultas = Text5.Text

Data1.Recordset.dosen = Text6.Text

Call Command2_Click

Else

MsgBox "NPM SUDAH TERDAFTAR", 0 + 16, "PERINGATAN"

Text1.SetFocus

End If

End Sub

Hapus

Private Sub Command2_Click()

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

Text4.Text = Clear

Text5.Text = Clear

Text6.Text = Clear

Text1.SetFocus

End Sub

Keluar

Private Sub Command3_Click()

End

End Sub

Simpan

Untuk menyimpan data pada TextBox yang ada di dalam database

Hapus

Untuk menghapus data pada TextBox yang ada di dalam database

Keluar

Untuk keluar dari program 

 

1KA33            : nama file database yang dibuat

Properties        : pilihan untuk membuat table baru pada database

Add                 : untuk menambahkan data pada database

Edit                  : untuk mengubah data pada database

Delete              : untuk menghapus data pada database

Close               : untuk keluar dari database

 

Source :  http://trimaaja.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari contoh program visual basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.