Grundsatzfrage zum Open beim Query

[Tim Henford]

Hallo,

ich wollte mal fragen, was geanu das ADOQuery macht, wenn ich sage:

Delphi-Quellcode:

var
  q       : TAdoQuery;
begin
  q:= TAdoQuery.Create(nil); 
  q.Connection:= AdoConnection;
  q.SQL.Text:= 'SELECT * FROM Tabelle';   
  q.Open;
  ....

Werden hier schon Daten beim Open übertragen oder nicht? Der Profiler zeigt ja sowas scheinbar nicht an...
Nun möchte ich einfach einen Datensatz anhängen mit Append. Muss da immer das Select vorausgehen oder wäre das nicht unnötige "Speicherverschwendung"?


Danke Tim

[Sharky]

Hallo Tim,

nach dem .Open beginnt das DBMS damit ein Query auszuwerten und ggf. Daten an den Client zu übertragen.
Wenn Du neue Daten in die Tabelle einfügen möchtest und nicht mit einem INSERT Befehl von SQL arbeiten möchtest könntest Du es so machen:


ich wollte mal fragen, was geanu das ADOQuery macht, wenn ich sage:

Delphi-Quellcode:

var
  q       : TAdoQuery;
begin
  q:= TAdoQuery.Create(nil); 
  q.Connection:= AdoConnection;
  q.SQL.Text:= 'SELECT * FROM Tabelle WHERE 0=1'; // Da die Bedingung immer False ist wird kein Datensatz zum Cl übertragen.
  q.Open;
  q.Insert;
  q.FieldByName ('blubb').AsString := 'blubb'
  q.Post;
  ....

[Tim Henford]

Danke für die Antwort, aber wie macht man denn das ganze z.B., wenn man eine Form und 3 TDBMemos, sowie eine Datasource und ein AdoQuery als visuelle Komponente hat?

Delphi-Quellcode:

Datasource1.Dataset:= Query;
DBMemo1.Datasource:= Datasource1;
DBMemo1.Datafield:= 'Feld1';

Bisher hab ich das immer so gelöst, dass ich beim onShow-Event folgendes gemacht habe:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  Query.SQL.Text:= 'SELECT * FROM tabelle';
  Query.Open; 
  Query.Append;
end;

und bei onOK-ButtonPress:
  Query.Post; Ist das wirklich die beste Lösung?