Keskustelu: Ohjelmointikysymykset: VB6: Recordset toiminto!

Olen yrittänyt pitkään saada ohjelmaa toimimaan joka selaisi tietokannan yhden kentän päivämääriä ja vertailisi niitä koneen päivämäärään ja aina kun osuu kohdalle näyttää MsgBoxin. Olen yrittänyt toimintoa seek metodilla mutta se ei onnistu koska seek ilmoittaa aina myös sen, että tietuetta ei löydy.

Tässä yksi tapa:

Laita formille data kontrolli ja textbox. Data kontrollin sidot tietokantaasi ja textboxin siihen päivämääräkenttään,
jota seuraat. Tee vielä yksi command- nappi, johon laitat seuraavan koodin:

Private Sub Command1_Click()
Dim sqlstr As String

sqlstr = "select * from testi a where format(a.pvm,'dd.mm.yyyy')=format(now,'dd.mm.yyyy');"

With Data1
 .RecordSource = sqlstr
 .Refresh
 .Recordset.MoveLast

If .Recordset.RecordCount > 0 Then

 For x = 1 To .Recordset.RecordCount
  MsgBox "Kannasta löytyi tietue, pvm=" & Text1.Text, vbOKOnly, "Yes"
  .Recordset.MovePrevious
 Next x
End If
End With

End SubPrivate Sub Command1_Click()
Dim sqlstr As String

Esimerkissä taulun nimi on testi ja kentän nimi pvm.
Käytät tietysti omassa kannassasi olevia.