1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure Test;
var i: integer;
begin
  if qry = nil then
  begin
    qry := TADOQuery.Create(self);
    qry.Connection := ADOConnection1;
  end
  else
    qry.Close;
  qry.SQL.text := 'select * from test';
  qry.Open;
  i := 0;
  while not qry.eof do
  try
    inc(i);
    qry.Edit;
    qry.FieldByName('Test2').AsInteger := i;
    qry.Post;
  finally
    qry.Next
  end;
end					

1:
2:

qry2.SQL.Text := 'update Test set Test2 = ' + IntToStr(i) + ' where idTest=' + qry.FieldByName('idTest').AsString;
qry2.ExecSQL;					

1:
2:
3:
4:
5:

CREATE TABLE  `test`.`test` (
  `idTest` int(10) unsigned zerofill NOT NULL AUTO_INCREMENT,
  `Test2` int(10) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`idTest`)
) ENGINE=InnoDB AUTO_INCREMENT=8 DEFAULT CHARSET=latin1 COLLATE=latin1_german1_ci ROW_FORMAT=FIXED;					

1:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Die Methode Post schreibt einen geänderten Datensatz in die Datenbank.

Delphi-Syntax:

procedure Post; override;

C++ Syntax:

virtual void __fastcall Post(void);

Beschreibung

Rufen Sie Post auf, um einen geänderten Datensatz in die Datenbank zu übernehmen. Datenmengenmethoden, die den Status der Datenmenge ändern wie Edit, Insert und Append oder die den Datensatzzeiger bewegen wie First, Next und Prior
, rufen Post automatisch auf.