I can add, delete, and save/update perfectly, through the program and the changes I have made will appear on the database in the program. If I go into the Microsoft access file, the changes will be there saved, and even after I close the program the changes remain in the Microsoft access file. But if I open up my program again then the changes I have made will get deleted in both the program and the Microsoft access file and it's left me clueless.
Original: https://prnt.sc/ww7rsl
Original in Microsoft Access file: https://prnt.sc/ww7w27
Added a new Record: https://prnt.sc/ww8dex
New record saved to Microsoft Access file: https://prnt.sc/ww8gff
But if I restart the program the database goes back to how it was at first, same with the Microsoft Access File
https://prnt.sc/ww8mjt
Original: https://prnt.sc/ww7rsl
Original in Microsoft Access file: https://prnt.sc/ww7w27
Added a new Record: https://prnt.sc/ww8dex
New record saved to Microsoft Access file: https://prnt.sc/ww8gff
But if I restart the program the database goes back to how it was at first, same with the Microsoft Access File
https://prnt.sc/ww8mjt
Code:
Option Explicit On
Option Strict Off
Public Class ManagePodBookings
Private Sub ManagePodBookings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Loads the Pod Booking Database
RefreshData()
Me.PodBookingsTableAdapter.Fill(Me.PodBookingsDataSet.PodBookings)
End Sub
Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click
'Shows the staff form
Staff.Show()
Me.Hide()
End Sub
Private Sub btnMainMenu_Click(sender As Object, e As EventArgs) Handles btnMainMenu.Click
'shows the main menu
MainMenu.Show()
Me.Hide()
End Sub
Private Sub PodComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles PodComboBox.SelectedIndexChanged
'Making it so users cannot edit ComboBox values
PodComboBox.DropDownStyle = ComboBoxStyle.DropDownList
End Sub
'Making it so users cannot edit ComboBox values
Private Sub RefreshData()
'Refreshing the table data
Try
Me.PodBookingsBindingSource.Filter = Nothing
Me.PodBookingsTableAdapter.Fill(Me.PodBookingsDataSet.PodBookings)
Catch ex As Exception
MsgBox("There was an error refreshing the data.")
End Try
End Sub
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
'Adds a New Record within the Data Table.
Try
With btnAdd
If .Text = "Add New Record" Then
PodBookingsBindingSource.AddNew()
PeopleNumericUpDown.Value = 0
ArrivalDateDateTimePicker.Value = Now.Date
DepartureDateDateTimePicker.Value = Now.Date
.Text = "Cancel New Record"
Else
RefreshData()
.Text = "Add New Record"
End If
End With
Catch ex As Exception
MsgBox("There was an error adding a new record." & ex.Message.ToString(),
MsgBoxStyle.OkOnly Or MsgBoxStyle.Information)
End Try
End Sub
Private Sub Save_Click(sender As Object, e As EventArgs) Handles btnSave.Click
'Handles the save button
Try
Dim result As DialogResult
result = MessageBox.Show("Do you want to save the selected record?",
"Glorious Getaways", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If (result = DialogResult.Yes) Then
Validate()
PodBookingsBindingSource.EndEdit()
TableAdapterManager.UpdateAll(Me.PodBookingsDataSet)
MessageBox.Show("The record has been saved successfully.",
"Glorious Getaways", MessageBoxButtons.OK, MessageBoxIcon.Information)
RefreshData()
btnAdd.Text = "Add New Record"
Else
Return
End If
Catch ex As Exception
MessageBox.Show("There was an error Saving the Data." & ex.Message.ToString(),
"Glorious Getaways", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Delete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
'Deletes a record from the Data Table
Try
If MessageBox.Show("Do you want to permanently delete the selected record?",
"Glorious Getaways", MessageBoxButtons.YesNo,
MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) =
Windows.Forms.DialogResult.Yes Then
PodBookingsBindingSource.RemoveCurrent()
PodBookingsBindingSource.EndEdit()
PodBookingsTableAdapter.Update(PodBookingsDataSet.PodBookings)
RefreshData()
MessageBox.Show("The record has been deleted sucessfully.",
"Glorious Getaways", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Return ' Exit Sub
End If
Catch ex As Exception
MessageBox.Show("There was an error deleting the Data." & ex.Message.ToString(),
"Glorious Getaways", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub SearchWarning()
'Disabling search whilst adding new record.
MsgBox("You are unable to Search whilst adding a new Record.",
MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation,
"Glorious Getaways")
End Sub
Private Sub SearchBox_Click(sender As Object, e As EventArgs) Handles Search.Click, btnSearch.Click
'Disabling search whilst adding new record.
If btnAdd.Text = "Cancel New Record" Then
SearchWarning()
Exit Sub
End If
End Sub
Private Sub SearchButton_Click(search As Object, e As EventArgs) Handles btnSearch.Click
If PodBookingsBindingSource.Count < 1 Then
MsgBox("The search item was not found.", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information,
"Glorious Getaways")
RefreshData()
End If
Try
Catch ex As Exception
MessageBox.Show("There was an error when Searching." & ex.Message.ToString(),
"Glorious Getaways", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub FillByToolStripButton_Click(sender As Object, e As EventArgs)
Try
Me.PodBookingsTableAdapter.FillBy(Me.PodBookingsDataSet.PodBookings)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
End Class