Cant load data using time

ZULFAHMI AIDI

16y2.9k

Hi there,

I going to build a program that notify me daily according to time which i have save it in the database table. The idea is when the current time in the system is equal to the time stored in the database, the system will prompt the notification such as msgbox.

My table are

Notify

Field Type Example Data

ID Text 1

Name Text Zul

Time1 Text 4:00 AM

Time2 Text 12:00 PM

Time3 Text 8:00 PM

Code to run current time and to validate the current data exist in the table

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   timeToday.Text = System.DateTime.Now.ToShortTimeString

   Dim cmd1 As New OleDbCommand("Select * from Notify where '" & timeToday.Text & "' = Time1 OR Time2 OR Time3", OleDbConnection)
   Try
   OleDbConnection.Open()
   OleDbDataReader = cmd1.ExecuteReader()
   MsgBox(OleDbDataReader("Name"))

   Catch ex As OleDbException
   ' Create and error column header
   Dim ErrorHeader As New ColumnHeader()
   ErrorHeader.Text = "oledb Error"
   'ListPR.Columns.Add(ErrorHeader)
   Finally
   OleDbConnection.Close()
   End Try

   End Sub


Result:
No data exists for the row/column on the MsgBox(OleDbDataReader("Name"))

I also try to make an simple statement in the timer code by such as below but it cant work. It like that the 10:30 PM is not in time format

If timeToday
.text = "10:30 PM" true then

msgbox("Hi there")

end if

Can anyone help me with this problem?

4 Replies

Know the answer? Post it — somebody with the same question will find it here.

Hirendra Sisodiya16y ago
Accepted answer
use this :
Dim cmd1 As New OleDbCommand("Select * from Notify where (Time1='" & timeToday.Text & "') OR (Time2= '" & timeToday.Text & "') OR (Time3='" & timeToday.Text & "')", OleDbConnection)

thanks
ZULFAHMI AIDI16y ago
Hirendra, can u send me an email to me at [email protected]. I will sent to you the file an the database to you
Hirendra Sisodiya16y ago

can you send me your both Database table, i will check on my side that what is happening wrong.....

thanks
ZULFAHMI AIDI16y ago
Hi Hirendra, thanks for your help with my previous post on selecting date. It really helpful.

Regarding on this post. I have try to use your code. I paste in the timer section. But it the error is still the same.

No data exists for the row/column. show on the MsgBox(OleDbDataReader("Name")).

here are the complete code that is use in the timer section. Does the error were cause by the timer?

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

   txtCurDate.Text = DateTime.Now.ToShortDateString()
   timeToday.Text = System.DateTime.Now.ToShortTimeString

   Dim cmd1 As New OleDbCommand("Select * from Notify where (Time1 ='" & timeToday.Text & "') OR (Time2 ='" & timeToday.Text & "') OR (Time3='" & timeToday.Text & "')", OleDbConnection)
   Try
   OleDbConnection.Open()
   OleDbDataReader = cmd1.ExecuteReader()
   MsgBox(OleDbDataReader("Name"))

   Catch ex As OleDbException
   ' Create and error column header
   Dim ErrorHeader As New ColumnHeader()
   ErrorHeader.Text = "oledb Error"
   'ListPR.Columns.Add(ErrorHeader)
   Finally
   OleDbConnection.Close()
   End Try

   End Sub

i ty to use other statement but the loop doesnt stop. (here are the code but using other database)

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   Dim i As Integer

   txtCurDate.Text = DateTime.Now.ToShortDateString()
   timeToday.Text = System.DateTime.Now.ToShortTimeString

   OleDbConnection.Close()
   Dim cmd As New OleDbCommand("Select Reminder_Time from reminder where Reminder_Date = '" & txtCurDate.Text & "'", OleDbConnection)
   OleDbConnection.Open()

   da = New OleDbDataAdapter(cmd)
   ds = New DataSet
   da.Fill(ds, "Reminder")
   dt = ds.Tables(0)
   Dim find As String = cmd.ExecuteScalar
   For i = 0 To dt.Rows.Count - 1
   Dim tabl As String = (dt.Rows(i)("Reminder_Time"))
   OleDbConnection.Close()
   If tabl <> Nothing Then
   If timeToday.Text = tabl Then
   Dim cmd1 As New OleDbCommand("Select Reminder_Subject from reminder where Reminder_Date = '" & txtCurDate.Text & "' and Reminder_Time = '" & tabl & "'", OleDbConnection)
   OleDbConnection.Open()

   da = New OleDbDataAdapter(cmd1)
   ds = New DataSet
   da.Fill(ds, "Reminder")
   dt = ds.Tables(0)
   Dim subj As String = cmd1.ExecuteScalar
   MsgBox(subj)
   OleDbConnection.Close()
   End If
   End If
   Next

   End Sub

It keep looping and prompting the same value in the msg box