XProfan

Deutsch

gmx.volker-sb meint:

Hallo Profaner,

nach längerer Zeit habe ich mich jetzt noch einmal mit Profan beschäftigt.

Ich habe auf der Basis einer Vorlage vor ca. 2 Jahren ein Programm zur

Erfassung von Videofilmen geschrieben und an Freunde verteilt. Das Programm

klappt sehr gut und wird auch von meinen Freunden genutzt. Nun hatte einer

den Wunsch eine Liste ALLER gespeicherten Daten ausgedruckt zu bekommen.

Dafür habe ich unten wie angegebenen Code eingefügt. Aber es funktioniert

nicht. Es wird bei Eingabe eines * immer nur der letzte Datensatz angezeigt.

Das verstehe ich jetzt nicht so ganz, eigentlich müßten doch alle Datensätze

angezeigt werden.

Ich hoffe, daß mir jemand weiter helfen kann und herausfindet wo der Fehler

liegt. Ich kapiere es nicht!!!

Für eure Hilfe schon mal im voraus vielen Dank

Volker

@dbGo(

ClearList

WhileNot %dbEoF

If @dbSeek(FILM-TITEL,Suchname$)

such$=@dbGet$(BAND-NR.)+ +@dbGet$(FILM-TITEL)+

+@dbGet$(INFO)+ +@dbGet$(INTERP)+@dbget$(LAND)+

+@dbGet$(JAHR)+ +@dbGet$(SPIELZEIT)+ +@dbGet$(DATENTR.)

AddString (such$)

Inc Gef%

EndIf

----AB HIER HABE ICH EINGEFÜGT:----

If @equ$(suchname$,*)

such$=@dbGet$(BAND-NR.)+ +@dbGet$(FILM-TITEL)+

+@dbGet$(INFO)+ +@dbGet$(INTERP)+@dbget$(LAND)+

+@dbGet$(JAHR)+ +@dbGet$(SPIELZEIT)+ +@dbGet$(DATENTR.)

AddString (such$)

Inc Gef%

EndIf

----ENDE DES EINGEFÜGTEN:----

@dbGo(>)

Inc I%

Wend

close #1

22.03.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Clemens
Meier

Fehlt da nicht eine While-Schleife? Die If-Abfrage wird nur einmal durchlaufen, so bekommt man also nur einen Datensatz.

Ich würde zunächst die Datenbank mit
@db(|<)
auf den Anfang setzen
Anschließend mit einer while-Schleife

while 1,anzahldatensaetze&,1
... Auslesen der Daten
@db(>)
endwhile

die Daten nach und nach auslesen.

XProfan 9.1; XP SP2; FF; Editpad

22.03.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

t-online.drcrr meint:

Hallo Volker,

22.03.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren