[vb6] ricerca di record

[RaouL_BennetH]

questo è il codice:


Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Digitare un codice" & vbOK
Else

rsql = ""
rsql = rsql & "SELECT * FROM tblpresenze WHERE tblpresenze.codmar LIKE '" & Text1.Text & "' ORDER BY marcatura"

Set rs = cn.Execute(rsql)

While Not (rs.EOF)

flex2.ColWidth(0) = 1290
flex2.Text = "CODICE LETTO"

flex2.ColWidth(1) = 3000
flex2.Text = "ORARIO MARCATURA"
flex2.AddItem rs("codmar") & vbTab & rs("marcatura")
rs.MoveNext
Wend

End If

End Sub



Mi servirebbe capire come fare quando inserisco un codice che nel database non c'è, in modo che il programma mi dia il messaggio in un msgbox tipo "Record non trovato".

[RaouL_BennetH]

ok, ho risolto, dovevo semplicemente fare prima del "while" questo:



If rs.EOF Then
msgbox "Nessun record trovato", vbOkOnly
Else

While Not (rs.EOF)
flex2.AddItem rs("codmar") & vbTab & rs("marcatura")
rs.MoveNext
Wend
End If

End If



:)

[disumano]

puoi anche controllare se il .recordcount del recordset è >0...