XProfan

Italia

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 Amici 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 Aiuto 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 Citazione Zeilenweise Citazione

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 Citazione Zeilenweise Citazione

t-online.drcrr meint:

Hallo Volker,

22.03.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione