Rubrik: Datenbanken · Sonstiges | VB-Versionen: VB4, VB5, VB6 | 19.01.01 |
Wenn Sie in Ihrem Programm eine Suchroutine integriert haben, bei der das Suchergebnis zunächst in Form einer Auflistung ausgegeben wird, so wäre es doch schön, wenn:
- eine Meldung erscheint, wenn kein Datensatz gefunden wurde
- bei exakt einem Treffer der Datensatz sofort angezeigt wird
- oder bei mehreren Treffern eben die gewünschte Auswahlliste erscheint
Und so geht's:
' Datenbankabfrage
SQL = "SELECT Name, Vorname, PLZ, Ort FROM tblAdressen WHERE _
Nachname like '" + sName + "'"
Set Ds = Db.OpenRecordset(SQL, dbOpenDynaset, dbOpenForwardOnly)
If Ds.RecordCount > 1 Then
' mehrere Treffer -> Auswahlliste erstellen
While Not Ds.EOF
Liste.AddItem Ds(0)....
Ds.MoveNext
Wend
ElseIf Ds.RecordCount = 1 Then
' exakt ein Treffer
...
Else
' kein Treffer -> Hinweis anzeigen
MsgBox "Keinen entsprechenden Datensatz gefunden!"
End If
Ds.Close
Set Ds = Nothing