Lesson 24: Advanced Database Techniques in VB6

Private Sub cmdFirst_Click()
    ' Move to the first record
    data_navigator.Recordset.MoveFirst
End Sub

Private Sub cmdPrevious_Click()
    ' Move to the previous record
    data_navigator.Recordset.MovePrevious
End Sub

Private Sub cmdNext_Click()
    ' Move to the next record
    data_navigator.Recordset.MoveNext
End Sub

Private Sub cmdLast_Click()
    ' Move to the last record
    data_navigator.Recordset.MoveLast
End Sub
                        

Private Sub cmdAdd_Click()
    ' Create a new record
    data_navigator.Recordset.AddNew
End Sub

Private Sub cmdSave_Click()
    ' Save the current record
    data_navigator.Recordset.Update
    MsgBox "Record saved successfully!", vbInformation
End Sub

Private Sub cmdDelete_Click()
    ' Confirm deletion
    Dim response As Integer
    response = MsgBox("Are you sure you want to delete this record?", vbYesNo + vbQuestion)
    
    If response = vbYes Then
        data_navigator.Recordset.Delete
        data_navigator.Recordset.MoveNext
        If data_navigator.Recordset.EOF Then
            data_navigator.Recordset.MoveLast
        End If
    End If
End Sub