Page 116 - Programming VB.NET
P. 116
110 Chapter 10: Database
Private Sub btnsave_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btncommit.Click
If inc <> -1 Then
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim dsNewRow As DataRow
dsNewRow ds.Tables("Daftar").NewRow()
dsNewRow.Item("IC") = txtic.Text
dsNewRow.Item("FirstName") = txtName.Text
dsNewRow.Item("RegNum") = txtReg.Text
ds.Tables("Daftar").Rows.Add(dsNewRow)
da.Update(ds, "Daftar")
MsgBox("New Record added to the database")
txtName.Clear()
txtReg.Clear()
txtic.Clear()
End If
End Sub
