Я пытаюсь отфильтровать свою базу данных, чтобы показать все бронирования на дату, выбранную из календаря, который есть в моей форме. Это код, который я написал...
Public selDate As DateTime
Dim response As Integer
Public Sub FilterBooking(selDate)
'// Here I will create a filter to for boookings on selected date from calender
Dim dateFrom As DateTime
Dim dateTo As DateTime
dateFrom = selDate & " 00:00:01"
dateTo = selDate & " 23:59:59"
MsgBox(dateFrom)
MsgBox(dateTo)
Me.QueryBookingInfoBindingSource.Filter = "BookingDate >= #" & dateFrom & "# AND BookingDate <= #" & dateTo & "#"
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'GarageDataSet.queryBookingInfo' table. You can move, or remove it, as needed.
Me.QueryBookingInfoTableAdapter.Fill(Me.GarageDataSet.queryBookingInfo)
'set currently selected date in the main calender to selDate variable
selDate = mainCalender.SelectionStart.Date
'run the following sub
FilterBooking(selDate)
End Sub
Фильтр, который я создал при отладке, выдает это сообщение об ошибке...
Произошло необработанное исключение типа «System.FormatException» в mscorlib.dll.
Дополнительная информация: строка не была распознана как допустимый DateTime.
Может кто-нибудь показать мне, где я делаю ошибку.
PS Я тоже пробовал этот фильтр =
Me.QueryBookingInfoBindingSource.Filter = "BookingDate >= #" & dateFrom.ToString("dd/MM/yyyy hh:mm:ss") & "# AND BookingDate <= #" & dateTo.ToString("dd/MM/yyyy hh:mm:ss") & "#"