Langsung ke konten utama

database pada vb

DATABASE PADA VB
LISTING PROGRAM

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!NAMA = Text1.Text
Adodc1.Recordset!NPM = Text2.Text
Adodc1.Recordset!KELAS = Text3.Text
DataGrid1.Refresh
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "DATA HARUS DILENGKAPI"
End If
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Recordset!NAMA = Text1.Text
Adodc1.Recordset!NPM = Text2.Text
Adodc1.Recordset!KELAS = Text3.Text
DataGrid1.Refresh
End Sub

Private Sub Command3_Click()
If Adodc1.Recordset.BOF Then
MsgBox "DATA SUDAH HABIS"
Else
Adodc1.Recordset.Delete
End If
End Sub

Private Sub Command4_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
End Sub

Private Sub Command5_Click()
End
End Sub















LOGIKA PROGRAM
Pada laporan ini saya telah membuat program pada VB untuk menghubungkan Visual Basic dengan Database Microsoft Access. Berikut adalah ScreenShot dari program yang telah saya buat :










Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!NAMA = Text1.Text
Adodc1.Recordset!NPM = Text2.Text
Adodc1.Recordset!KELAS = Text3.Text
DataGrid1.Refresh
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "DATA HARUS DILENGKAPI"
End If
End Sub
Ini adalah perintah pada Command1 yaitu command yang digunakan untuk menginsert data.
Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Recordset!NAMA = Text1.Text
Adodc1.Recordset!NPM = Text2.Text
Adodc1.Recordset!KELAS = Text3.Text
DataGrid1.Refresh
End Sub
Ini adalah perintah pada Command2 yaitu command yang digunakan untuk mengupdate data.
Private Sub Command3_Click()
If Adodc1.Recordset.BOF Then
MsgBox "DATA SUDAH HABIS"
Else
Adodc1.Recordset.Delete
End If
End Sub
Pada Command3 terdapat perintah untuk menghapus data.

.




OUTPUT PROGRAM

Komentar

Posting Komentar

Postingan populer dari blog ini

PEMANFAATAN INTERNET PERTAMA KALI

haii kawan kawan pembaca blog ini sekarang penulis akan menuliskan pemanfaatan teknologi internet dan hal yang pertama kali penulis lakukan di internet Pengertian Internet Internet dapat diartikan sebagai jaringan komputer luas dan besar yang mendunia, yaitu menghubungkan pemakai komputer dari suatu negara ke negara lain di seluruh dunia, dimana di dalamnya terdapat berbagai sumber daya informasi dari mulai yang statis hingga yang dinamis dan interaktif   Sejarah Internet Internet merupakan jaringan komputer yang dibentuk oleh Departemen Pertahanan Amerika Serikat pada tahun 1969, melalui proyek ARPA yang disebut ARPANET ( Advanced Research Project Agency Network ), di mana mereka mendemonstrasikan bagaimana dengan hardware dan software komputer yang berbasis UNIX, kita bisa melakukan komunikasi dalam jarak yang tidak terhingga melalui saluran telepon. Proyek ARPANET merancang bentuk jaringan, kehandalan, seberapa besar informasi dapat dipindahkan, dan akhirnya semua s
Posting Komentar
Baca selengkapnya

Cara Mendirikan Usaha Dan Syarat - Syarat Mendirikan Usaha

CARA MENDIRIKAN PERUSAHAAN PERSEROAN TERBATAS (PT) Pada tugas softskill ke – 2 ini akan menjelakan tentang bagaimana membuat sebuah perusahaan perseroan terbatas serta syarat-syarat apa saja yang diperlukan dalam pembuatannya tersebut. Commmanditaire Vennootschaap (CV) adalah suatu perusahaan yang didirikan oleh satu atau beberapa orang secara tanggung menanggung, bertanggung jawab secara seluruhnya atau secara solider, dengan satu orang atau lebih sebagai pelepas uang ( Geldschieter ), dan diatus dalam KUHD. CV pada konsepnya merupakan permitraan yang terdiri dari satu atau lebih mitra biasa dan satu atau lebih mitra diam (Komanditer), yang secara pribadi bertanggung jawab untuk semua utang pemitraan, dan bertanggung jawab hanya sebesar kontribusinya. kehadiran mitra adalah ciri utama dari CV. Dalam soal pengurusan Persekututan, sekutu komanditer dilarang melakukan pengurusan meskipun dengan surat kuasa. Ia hanya boleh mengawasi pengurusan jika memang ditentukan demikia
Posting Komentar
Baca selengkapnya