Zählen der tatsächlich vorhandenen Datensätze

[Ironsmurf]

Hallo zusammen

ich beschäftige mich mit einer Datenbank, in der max. 10 000 Datensätze liegen können.
Wie muß eine Schleife aussehen, die mir die bis jetzt vorhandenen Datensätze zählt.

Vielen Dank im voraus

Code: Alles auswählen

Structure Movie
           Code$
           Name$
           Star$
           Info$
           Regi$
           Jahr$
           Lang$
           Trai$
  EndStructure

;################################################################

Dim DVD.Movie(9999)

  DVD (0001) \ Code$ = "0001"
  DVD (0001) \ Name$ = "Cocktail"
  DVD (0001) \ Star$ = "Tom Cruise, Bryan Brown, Elisabeth Shue"
  DVD (0001) \ Info$ = "A001"
  DVD (0001) \ Regi$ = "Roger Donaldson"
  DVD (0001) \ Jahr$ = "1988"
  DVD (0001) \ Lang$ = "103"
  DVD (0001) \ Trai$ = "001A"

[Kiffi]

kommt drauf an. Ist Code$ ein Pflichtfeld? Können Lücken vorhanden sein?

Code: Alles auswählen

Anzahl_Datensaetze=0

For Counter = 0 To 9999
  If DVD(Counter)\Code$ <> ""
    Anzahl_Datensaetze + 1
  EndIf
Next

Debug Str(Anzahl_Datensaetze) + " Datensätze vorhanden"

Grüße ... Kiffi

[Ironsmurf]

Code$ & Name$ sind Pflichtfelder !

Doppelpost entfernt [Falko]

[Kiffi]

Code$ & Name$ sind Pflichtfelder !

ja, dann kannst Du ja meinen Code nehmen.

Allerdings würde ich persönlich kein Array sondern eine LinkedList
verwenden. Aber das ist Geschmackssache...

Grüße ... Kiffi

P.S.: Bitte Doppelpostings vermeiden. Dafür gibt es den Edit-Button.

[scholly]

ich beschäftige mich mit einer Datenbank, in der max. 10 000 Datensätze liegen können.

Ist die nur für Kauf-DVDs oder auch für Selbstgebranntes?

Wie muß eine Schleife aussehen, die mir die bis jetzt vorhandenen Datensätze zählt.

Darf man fragen, wann/wo/wie Du die Daten abspeicherst?
Vielleicht kann man dort die Anzahl direkt auslesen.

Allerdings würde ich persönlich kein Array sondern eine LinkedList verwenden.
Aber das ist Geschmackssache...

Oder direkt aus einer SQL(ite)-DB heraus benutzen, falls er es dort abspeichert

[Kiffi]

Oder direkt aus einer SQL(ite)-DB heraus benutzen, falls er es dort abspeichert

ja, das wäre natürlich die optimale Vorgehensweise. Allerdings vermute ich,
dass Ironsmurf die Daten aus einer Textdatei ausliest.

Grüße ... Kiffi

[scholly]

Allerdings vermute ich, dass Ironsmurf die Daten aus einer Textdatei ausliest.

Das vermute ich ja auch, weil ich mit meiner Video-Verwaltung damals auch mit CSV angefangen habe.
Allerdings war Dein "Bekehrungsversuch" dank der nachfolgenden Unterstützung aus vielen Ecken so erfolgreich, daß ich den Einsatz von SQLite nicht mehr missen möchte

[AND51]

Code: Alles auswählen

Define n, Anzahl_Datensaetze=0

For Counter = 0 To 9999
  If Not DVD(n)\Code$
     Break
  EndIf
  Anzahl_Datensaetze+1
Next

Debug Str(Anzahl_Datensaetze) + " Datensätze vorhanden"

Sooo ist's besser

[Kiffi]

Sooo ist's besser

nope. Man kann nicht davon ausgehen, dass die 'Datensätze' lückenlos gefüllt
sind, solange Ironsmurf meine Frage nicht beantwortet hat:

Können Lücken vorhanden sein?

Grüße ... Kiffi

[AND51]

OK, da hast du natürlich Recht.
Übrigens würde ich genau wie du genau aus diesem Grunde zu LinkedLists tendieren.

@ Ironsmurf:
Benutze bitte LinkedLists, dann kannst du die Anzahl der Datensätze direkt und bequem mit CountList() ermitteln!!
Außerdem kannst du Lücken vermeiden, denn "leere" Felder kannst du mit DeleteElement() löschen!!