Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Anfänger hat Probleme mit Datenbank
Autor: Manni
Datum: 18.08.02 13:44
Hier mal der Code womit ichdie Filmnamen in list2 anzeigen lasse Private Sub List1_Click() Dim db As Database, rs As Recordset Set db = DBEngine.OpenDatabase("Fokumente und EinstellungenMisterEigene DateienVBmeine FilmeFilme.mdb", True) If List1 <> "0-9" Then Set rs = db.OpenRecordset("SELECT Filmname FROM Filme WHERE Filmname LIKE '" & List1 & "*' ORDER BY Filmname", dbOpenDynaset) List2.Clear Do While Not rs.EOF List2.AddItem rs!Filmname rs.MoveNext Loop Else Set rs = db.OpenRecordset("SELECT Filmname FROM Filme ORDER BY Filmname", dbOpenDynaset) List2.Clear Do While Not rs.EOF If IsNumeric(Left(rs!Filmname, 1)) Then List2.AddItem rs!Filmname rs.MoveNext Loop End If End Sub Cu Big Boy

Anfänger hat Probleme mit Datenbank	99	Manni	18.08.02 03:53
Re: Anfänger hat Probleme mit Datenbank	242	Dieter	18.08.02 09:39
Re: Anfänger hat Probleme mit Datenbank	76	Manni	18.08.02 10:19
Re: Anfänger hat Probleme mit Datenbank	221	Dieter	18.08.02 11:11
Re: Anfänger hat Probleme mit Datenbank	72	Manni	18.08.02 13:44
Re: Anfänger hat Probleme mit Datenbank	235	Dieter	18.08.02 14:07
Re: Anfänger hat Probleme mit Datenbank	74	Manni	18.08.02 16:36

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