Yapacağım bir formda daha database de kayıtlı bir tabloya kaydettiğim tarihi 1 veya 2 gün öncesinden şimdiki tarihle karşılaştırıp bana başka bir formda şu tarihte hatırlatmanız var gibi mesaj vermesini istiyorum nasıl bir yol izliyebilirim. Database Access oledb bağlantısı şeklinde class ile bağlantı yapıyorum.

Şöyle bir deneme yaptım.

Private Sub anamenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loginform.ShowDialog()
Dim ds As New DataSet
Dim randevuzamanı As Date = Date.Today
randevuzamanı = Date.Today & " " & "00:00:00"
tbxbugun.Text = Date.Today & " " & "00:00:00"
ds = Data.fill(CommandType.Text, "select * from notlar where randevu='" & randevuzamanı & "'")
If (ds IsNot Nothing) AndAlso (ds.Tables.Count > 0) AndAlso (ds.Tables(0).Rows.Count = 1) Then
zaman = ds.Tables(0).Rows(0).Item("randevu")
tbxbugun.Text = zaman
If tbxhatırlat.Text = tbxbugun.Text Then
tbxhatırlatma.Visible = False
Timer1.Start()
Else
tbxhatırlatma.Visible = True
End If
End If
End Sub

database deki randevu zamanıyla bugünün tarihini karşılaştırma yapıp anamenu üzerindeki bir butonun yanıp sönmesini istedim ve yanıp söndüğü zaman butona tıkladığımızda açılan formda randevusu olan yerin özelliklerini belirlemesini istedim ama olmadı. Yanıp sönme olayını Timer ile yapıyorum. Zaman karşılaştırmasını ise 2 adet textbox forma koydum. Bir tanesine bugünün tarihini textboxa yazdırdım ama bir türlü databasedeki randevu tarihini textbox a yazdıramadım yardımcı olursanız sevinirim. Yukarıdaki kodda nerde hata yaptım anlamadım.