Datenbank in VirtualTreeView anzeigen und auswerten

[generic]

Zitat von Jens Hartmann:

Was für mich bedeuten tut, will ich die ID im VST sehen, muss ich diese ja aus der Datenbankabfragen, Oder?

Ich würde die Daten in das Objekt für den VST kopieren.
Dann denn DB Insert ausführen und die letzte eingefügte ID auslesen.
Jedes DB System hat dafür Funktionen. Bei MYSQL ist last_insert_id und bei MSSQL Identity. Bei FB/IB weis ich es leider nicht, aber es wird sowas geben.
Die Id kopierst du auch in das Objekt und fügst das OBJ dem VST hinzu.

Der VST schert sich eigentlich nicht um die paar Knoten die du hast. Intensiver wird es mit einer halben Mio an Knoten.
Das ist dann aber auch eine Menge die kein Mensch mehr ansehen/auswerten wird.

Das Speicherproblem kannst du mit auch mit dem FastMM finden.
Ist kurz im Video erklärt bzw. in einen Entwickler ist ein Artikel (05/08) dazu.

[hoika]

Hallo,

Unter FB ab 2.0 gibt es die Returning Clause.

Bsp.
Tabelle mit Feldern ID, Name, ID wird über Trigger gesetzt.

Delphi-Quellcode:

with Query do
begin
  SQL.Clear;
  SQL.Add('Insert Into Table1(Name) Values(:Name) Returning Id');
  ParamByName('Name').AsString:= 'jippi';
  ExecSQL;    // oder Open, ausprobieren
  iNewId:= FieldByName('Id').AsInteger;
end;

Heiko

[mkinzler]

Muss .ExecSQL heissen
Parameter heisst RET_ID
iNewId:= ParamByName('RET_ID').AsInteger; Besser per Position
iNewId:= Params[1].AsInteger;

[Jens Hartmann]

Hallo zusammen,

Danke erstmal für die vielen, vielen antworten. Ich muss leider momentan immer viel arbeiten, und konnte mich bislang noch nicht intensiv mit den anworten befassen. Ich habe sie zwar alle gelesen, nur noch nicht intensiv versucht Sie umzusetzen. Also, bitte nicht glauben ich hätte kein Interesse an Euren antworten.

Gruß Jens

PS. Heute und Morgen Abend, werde ich mich dem Problem mal wieder widmen.

[Jens Hartmann]

So, habe jetzt mal alles so weit durchgesehen, und versuche gerade, mich in die SQL Sprache zu arbeiten. Leider scheitert meine Abfragende Eingrenzung von Daten schon bei der einfachen Eingrenzung auf ein Spalte der Datenbank.

Ich habe vrsucht, zu Übungszwecken folgenden Aufruf über Button zu realisieren. Und bekomme unten angehangene Fehlermeldung.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    QRyMB256PLUS.Close;
    QryMB256PLUS.SQL.Text := 'Select ID From MB256PLUS';
    QryMB256PLUS.Open;
end;

Seltsamer weise frage ich nach dem Spalte ID, bekomme aber einen Fehler auf die Spalte LfdNr

Gruß

Jens

[mkinzler]

Du wirst ein persistentes Zugriffsfeld für die Spalte 'LfdNr' angelegt haben, welches nun keine Entsprechung im DataSet mehr hat.

[Jens Hartmann]

Was heißt das. Womit leg ich sowas an.

[mkinzler]

Doppelklick auf DataSet (Table, Query)

[Jens Hartmann]

HierVieleicht sowas hier...

[mkinzler]

Die Frage ist, ob du mit persistenten Felder arbeitest, wenn ja darf die Struktur der Ergebnismenge nicht geändert werden