Belajar Visual basic

hem,, pagi bertemu siang.... nie pelajaran baru ku Visual Basic. walau pun pemula ini semoga bermanfaat bagi kitasemua.

 

1. untuk menambah data atau menyimpan data.

Private Sub Command1_Click()
With Adodc1.Recordset
.AddNew
!nim = Text1.Text
!nama = Text2.Text
!alamat = Text3.Text
.Update
End With
MsgBox "data sudah di simpan"
End Sub

2. untuk keluar dari program atau cancel

Private Sub Command2_Click()
End
End Sub
 

3. untuk menghapus data

Private Sub Command3_Click()
Delete = MsgBox("Apakah data akan dihapus", vbInformation + vbYesNo, "delete")
If Delete = vbYes Then
Adodc1.Recordset.Delete
End If
End Sub
4. untuk menampilkan data base yang teah di buat.

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Al-Aluf\Desktop\data base.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select *from biodata"
Adodc1.Visible = False

End Sub