Entwickler-Ecke

Datenbanken - eingetragene datensätze zählen


Stefan_B - Do 09.01.03 15:36
Titel: eingetragene datensätze zählen
hallo!
habe eine datenbank die bei einem button klick in ein anderes grid eingetragen wird und die doppelten nummern ins memo. jetzt möchte ich, das die dort eingetragenen datensätze gezählt und dann in einem editor angezeigt werden. also 2 mal gezählt (fürs 1. grid und fürs memo)

hilfe :(


smiegel - Do 09.01.03 15:43

Hallo,

wenn es sich um ein DBGrid handelt:

Quelltext
1:
Anzahl:=DBGRid1.Datasource.Dataset.RecordCount+Memo1.Lines.Count;                    


Stefan_B - Do 09.01.03 15:52

funktioniert leider nicht
:(


LCS - Do 09.01.03 16:12

Hi
müsste eigentlich schon hinhauen. Die Anzahl der Datensätze in deiner Query bekommst du mit Query.RecordCount die Anzahl der Zeilen im Memo mit Memo.Lines.Count.

Gruss Lothar


Stefan_B - Do 09.01.03 16:51

undefinierter Bezeichner "Anzahl"

Quelltext
1:
2:
3:
procedure TForm1.Button1Click(Sender: TObject);
begin
Anzahl:=wwQuery1.RecordCount+Memo1.Lines.Count;


Stefan_B - Do 09.01.03 17:05

muss ich dafür nicht erst integer ins string umwandeln?


Stefan_B - Do 09.01.03 17:14


Quelltext
1:
2:
3:
4:
5:
6:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Memo1.Lines.Count;
end;

end.


LCS - Do 09.01.03 18:55

Hi
nimms mir nicht übel, aber wenn dieser eindeutigen Meldung nix anfangen kannst, solltest du dich vielleicht erst mal intensiv mit Grundlagen beschäftigen bevor du dich mit Datenbank rumschlägst. :wink: Dafür findest du hier im Forum gute Tutorials.
Stefan_B hat folgendes geschrieben:
undefinierter Bezeichner "Anzahl"

Quelltext
1:
2:
3:
procedure TForm1.Button1Click(Sender: TObject);
begin
Anzahl:=wwQuery1.RecordCount+Memo1.Lines.Count;

Das Anzahl eine Variable ist die du vorher natürlich deklarieren musst, hat Smiegel einfach vorausgesetzt.
Und wenn du den Inhalt von Anzahl in dein Editfeld übertragen willst, musst du den Integer selbstverständlich vorher in einen String umwandeln.

Gruss Lothar


Stefan_B - Fr 10.01.03 09:31

hallo,
nein ich nehme es dir nicht übel. ich hab mir das ja auch nicht ausgesucht. muss jetzt ein praktikum machen, welches 3 monate geht. in dieser zeit muss ich mich mit delphi rumschlagen und mir auch noch ein abschlussprojekt überlegen.


LCS - Mo 13.01.03 08:40

Na dann Augen zu und durch. Wo du Hilfe findest, weisst du ja :mgreen: