Public Class Exercise_01
Private Sub Exercise_01_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
SqlDataAdapter1.Fill(DataSet11)
chPos()
End Sub
'sub procedure
'lblDisplay is the Label I've put in the form to show the sequence number of the record.
Sub chPos()
lblDisplay.Text = (Me.BindingContext(DataSet11, "Master").Position + 1).ToString
End Sub
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
Me.BindingContext(DataSet11, "Master").Position = 0
chPos()
End Sub
Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrev.Click
Me.BindingContext(DataSet11, "Master").Position -= 1
chPos()
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
Me.BindingContext(DataSet11, "Master").Position += 1
chPos()
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
Me.BindingContext(DataSet11, "Master").Position = Me.BindingContext(DataSet11, "Master").Count - 1
chPos()
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Me.BindingContext(DataSet11, "Master").AddNew()
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim chDataset As DataSet
Me.BindingContext(DataSet11, "Master").EndCurrentEdit()
If DataSet11.HasChanges Then
chDataset = DataSet11.GetChanges
SqlDataAdapter1.Update(chDataset)
End If
DataSet11.AcceptChanges()
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
Me.BindingContext(DataSet11, "Master").RemoveAt(Me.BindingContext(DataSet11, "Master").Position)
chPos()
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.BindingContext(DataSet11, "Master").CancelCurrentEdit()
End Sub
Private Sub btnCancelAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelAll.Click
DataSet11.RejectChanges()
End Sub
End Class