Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Eine Datenbank richtig durchsuchen ...
Autor: Gender
Datum: 19.11.02 17:23
Hier ein ganzer Code um eine Tabelle zu durchsuchen: dim db as dao.database dim rs ad dao.recordset dim stext as string dim sql as string stext = InputBox("Bitte geben Sie den zu suchenden Firmennamen ein:", "Firmennamen suchen") sql = "SELECT * FROM Adressen where Firma like '" & stext & "*" & "';" Set db = OpenDatabase("c:\adressen\adressen.mdb") Set rs = db.OpenRecordset(sql) If rs.RecordCount = 0 Then MsgBox ("Keinen Datensatz mit diesem Firmennamen gefunden") If rs.RecordCount = 1 Then Set Data1.Recordset = rs

Eine Datenbank richtig durchsuchen ...	98	Marcus	15.11.02 09:06
Re: Eine Datenbank richtig durchsuchen ...	337	David M	15.11.02 09:24
Re: Eine Datenbank richtig durchsuchen ...	48	Marcus	15.11.02 19:43
Re: Eine Datenbank richtig durchsuchen ...	354	unbekannt	15.11.02 19:59
Re: Eine Datenbank richtig durchsuchen ...	45	Gender	19.11.02 17:23

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen