AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Anzahl der Datensätze einer Tabelle ermitteln
Thema durchsuchen
Ansicht
Themen-Optionen

Anzahl der Datensätze einer Tabelle ermitteln

Ein Thema von f4k3 · begonnen am 16. Jan 2008 · letzter Beitrag vom 21. Jan 2008
 
Benutzerbild von f4k3
f4k3

Registriert seit: 15. Aug 2007
Ort: Nürnberg
313 Beiträge
 
Delphi 2007 Architect
 
#1

Anzahl der Datensätze einer Tabelle ermitteln

  Alt 16. Jan 2008, 16:35
Datenbank: Paradox • Version: 7 • Zugriff über: BDE, Datasource, TTable
Seid gegrüßt liebe DPler

hab folgendes problem ...

ich möchte die Anzahl der Datensätze ermitteln. Dafür hab ich ein Code-Schnipsel von Delphi-Treff
mir geholt und an meine Wünsche angepasst.

Ich erzähl euch mal im groben was ich tun möchte ...

1. Datensätze einer Tabelle ermitteln
2. Counter (Variable vom Typ Integer) auf null setzten
3. Schleife beginnt. Solange mein Counter nicht größer als meine ermittelten Datensätze ist, soll in einer Variable eine Mandantennr (Integer) und in einer Variable die Mandantenbezeichnung(S : String) gespeichert werden
4. Dann möchte ich aus mit ich das in die Variable Mandantenbez (String) (Mandantenbezeichnung die beiden Variablen zusammenführen (bei der Mandantennr(= Integer) über IntToStr)
5. soll in meine ComboBox diese Mandantenbez über ADD in die Items hinzugefügt werden
6. Das solange eben die Schleife läuft (Counter nicht >= meiner ermittelten Datensätze)
7. Schleife wird beendet

mein Quellcode sieht folgendermaßen dafür aus ...
Delphi-Quellcode:
          DatenG := tMandant.RecordCount;
          Counter := 0;

          while not Counter >= DatenG do
          begin

            MandantenNr := tMandant.FieldByName('Mandantennummer').AsInteger;
                       S := tMandant.FieldByName('Bezeichnung').AsString;

            Mandantenbez := IntToStr (MandantenNr) + ' - ' + S;



            with cbMandant.Items do
            begin
               ADD (Mandantenbez);
            end;

            Counter := Counter + 1;

          end;
        end;
nur wenn ich mein programm Compiliere bekomm ich keine Fehler, ergo Programm findet keinen Fehler.
Wenn ich das Programm starte ist meine ComboBox jedoch leer.

Wisst ihr was ich falsch mach?
Ich hab irgendwie den verdacht, dass die Schleife erst gar nicht ausgeführt wird ... weiß aber nicht, wie ich das wiederlegen könnte ...

Ich hoffe ihr wisst, wie immer Rat

Vielen dank scho mal Euer f4k3
Sascha
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz