Page 115 - Programming VB.NET

Code With VB.Net 109

Private Sub btnadd_Click(ByVal sender As
Private Sub btndelete_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
System.Object, ByVal e As System.EventArgs)
Handles btnadd.Click
Handles btndelete.Click
txtic.Clear()
Dim cb As New OleDb.OleDbCommandBuilder(da)
txtName.Clear()
If MessageBox.Show("Do you really want to
Delete this Record?", _"Delete",
txtReg.Clear()
MessageBoxButtons.YesNo,
MessageBoxIcon.Warning) =
txtic.Focus()
Windows.Forms.DialogResult.Yes Then
inc = 0
ds.Tables("Daftar").Rows(inc).Delete()
End Sub
MaxRows = MaxRows - 1
Private Sub btnupdate_Click(ByVal sender As
da.Update(ds, "Daftar")
System.Object, ByVal e As System.EventArgs)
Handles btnupdate.Click
txtic.Clear()
Dim cb As New OleDb.OleDbCommandBuilder(da)
txtName.Clear()
ds.Tables("Daftar").Rows(inc).Item(0) =
txtReg.Clear()
txtic.Text
Else
ds.Tables("Daftar").Rows(inc).Item(1) =
txtName.Text
MsgBox("Operation Cancelled")
ds.Tables("Daftar").Rows(inc).Item(2) =
Exit Sub
txtReg.Text
End If
da.Update(ds, "Daftar")
End Sub
MsgBox("Data updated successfully")

End Sub