Datenbank in VirtualTreeView anzeigen und auswerten

[Jens Hartmann]

Hallo mal wieder,

erstmal an ganz großes Lob an die macher der Video´s in der Delphipraxis. ich habe mir das Video vom 2 Stammtisch über das VirtualTreeView angesehen und mitgearbeitet und eigendlich auch so weitgehend alles verstanden. Mir ist dadurch sogar das Thema der Objekte und Records mal so einigermaßen klar geworden.

Also nochmal Danke für diese geile Möglichkeit.

Jetzt aber meine Frage. In diesem Video, wurde nicht auf die Anbindung an eine Datenbank eingegangen. Ich weiß aber, das das VST häfig dafür verwendet wird. Auch ich möchte dies tun.

Leider fehlen mir da absolut die Kenntnisse wo ich anfangen soll.

Hat jemand von Euch da vieleicht einen Tip, wo ich da Dokumentation, Thread´s oder vieleicht auch so ein Video bekomme.

Schon mal besten Dank,


Jens

Achso, momentan füge ich die Daten nur analog zur Datenbank ins VST ein...

Das mache ich so..

Delphi-Quellcode:

{Datensatzverarbeitung}
procedure TForm1.TreeViewResult(ParserTreeView: TMyBaseParser);
var
  Daten : TOMB256PLUS;
  i: Integer;
  Temp1 : Integer;
  Temp2 : String;
  Temp3 : String;
  Temp4 : String;
  Temp5 : String;
  Temp6 : String;
begin
  Temp1 := ParserTreeView.Entries[0].LfdNr;
  Temp2 := ParserTreeView.Entries[0].Datum;
  Temp3 := ParserTreeView.Entries[0].Uhrzeit;
  Temp4 := ParserTreeView.Entries[0].Ereignis;
  Temp5 := ParserTreeView.Entries[0].Teilnehmer;
  Temp6 := ParserTreeView.Entries[0].Bereich;
  Application.ProcessMessages;

  QryMB256PLUS.Close;
  QryMB256PLUS.SQL.Text := 'INSERT INTO MB256PLUS'+
      '("LfdNr", "Datum", "Uhrzeit", "Ereignis", "Teilnehmer", "Bereich")'+
      'VALUES(:LfdNr,:Datum,:Uhrzeit,:Ereignis,:Teilnehmer,:Bereich)';

  QryMB256PLUS.ParamByName('LfdNr').AsInteger := Temp1;
  QryMB256PLUS.ParamByName('Datum').AsString := Temp2;
  QryMB256PLUS.ParamByName('Uhrzeit').AsString := Temp3;
  QryMB256PLUS.ParamByName('Ereignis').AsString := Temp4;
  QryMB256PLUS.ParamByName('Teilnehmer').AsString := Temp5;
  QryMB256PLUS.ParamByName('Bereich').AsString := Temp6;
  QryMB256PLUS.ExecSQL;
  ConMB256PLUS.Commit;

  QryMB256PLUS.Close;
  QryMB256PLUS.SQL.Text := 'SELECT * FROM MB256PLUS';//'SELECT * FROM MB256PLUS';
  QryMB256PLUS.Open;

  Daten:= TOMB256PLUS.Create;
  with Daten do
  begin
    LfdNr := Temp1;
    Datum := Temp2;
    Uhrzeit := Temp3;
    Ereignis := Temp4;
    Teilnehmer := Temp5;
    Bereich := Temp6;
  end;
  VST.AddChild(nil, Daten);
  
  DataMB256plus := '';
end;