Hallo zusammen,
ich habe mal wieder ein kleines Problem mit meiner
DB. Also ich lasse mir in einem DBGrid alle vorhandenen Daten anzeigen. Wenn ich diese (es sind eigentlich Anträge) bearbeitet habe wollte ich aus lauter Faulheit einfach den DS anklicken und dann per Button den Status von "Antrag" auf "Erledigt" ändern...quasi diesen DS updaten. Hier mal mein kompletter Code (denkt dran ich höre jeden Lacher):
Delphi-Quellcode:
procedure TForm1.btnanzeigeClick(Sender: TObject);
begin
if dbmain.Connected=true then
begin
dbmain.Connected:=false;
end;
dbmain.Connected:=true;
qrmain.SQL.Text:='SELECT ID,Lager,Artikel,Menge_soll,Menge_Ist,Kommentar,Erfasser,Status,Datum From Korrekturen;';
qrmain.Open;
qrmain.Refresh;
end;
procedure TForm1.Button1Click(Sender: TObject);
var nr:string;
begin
nr:=dbgrid1.DataSource.DataSet.FieldByName('ID').AsString;
showmessage(nr);
qrmain.SQL.text:='UPDATE Korrekturen SET Status=''Erledigt'' where ID=:nr';
qrmain.ExecSQL;
trmain.Commit;
end;
Das mit dem Showmessage unten ist nur ein Test, ob er mir auch die richtige ID gibt. So wie ich mich kenne habe ich das ganze wieder voll falsch angefangen..stimmt´s?