CommandText gibt keine Ergebnismenge zurück

[Nalincah]

Wenn ich das "INSERT"-Statement

Delphi-Quellcode:

INSERT INTO Tabelle1(Feld1, Feld2, Feld3) VALUES ('Inhalt1', 'Inhalt2', 'Inhalt3')

in die ADOQuery einfüge und dann die Zeile:

Delphi-Quellcode:

ADOQuery.open

ausführe, dann krieg ich folgende Meldung:

Delphi-Quellcode:

ADOQuery1: CommandText gibt keine Ergebnismenge zurück

Woran liegt das?

[Gollum]

Hallo,

open kannst Du nur in Verbindung mit "Select" verwenden. Bei DML-Anweisungen musst Du ExecSQL benutzen.

[Nalincah]

Danke für die Hilfe. Noch ne kleine Frage: Warum wird das DBGrid nicht aktualisiert wenn ich das Statement ausführe? Ist mit der gleichen DS verbunden wie das DBGrid

[r_kerber]

Weil Du da nur eine "Momentaufnahme" zur Zeit des vorherigen SELECT-Statements siehst!

[Gollum]

Hallo,

wie ist das DBGrid mit der Datenquelle verbunden? Mit einer Table oder Query? Ggf. reicht der Aufruf von Refresh.

[Nalincah]

DBGrid.DataSource = DataSource1

DataSource1.DataSet = ADOTable1

ADOTable1.Connection = ADOConnection1

ADOQuery1.Connection = ADOConnection1
ADOQuery1.DataSource = DataSource1

[Gollum]

Hallo,

dann rufst Du nachdem Du die Daten mit INSERT eingefügt hast ADOTable1.Refresh; auf.

[Nalincah]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add(SQLDispatcher1.CreateSQL);
  ADOQuery1.SQL.Text := SQLDispatcher1.CreateSQL;
  try
    ADOQuery1.ExecSQL;
    ADOTable1.Refresh;
  except
    on e : exception do
    begin
      Memo1.Lines.Add(e.Message);
    end;
  end;
end;

Macht der nicht :-(

Habs so gelöst:

Delphi-Quellcode:

ADOTable1.Active := false;
ADOTable1.Active := true;

Nicht sehr gut, oder?

[Gollum]

Hallo,

evtl. könnte es mit DBGrid.DataSource.DataSet.Refresh; funktionieren.

Leider bin ich Dir da keine große Hilfe, da ich seit Jahren solche Konstrukte nicht mehr verwende.

[Phoenix]

Das ist ein Bug in der ADO-Komponente. Entweder, du schliesst die Session und machst sie wieder auf (close und open), oder Du nimmst lieber das TBetterADODataSet anstelle dem TADODataSet...