Forum: Datenbanken
by Ati,
2. Aug 2006
@Schaedel Before Insert
@Lemmy update korrekturen set status='Erledigt' where id=1
Forum: Datenbanken
by Ati,
2. Aug 2006
War gerade mal im Lazarus-Forum und habe da was gefunden. Hier erstmal der aktuelle Code:
procedure TForm1.Button1Click(Sender: TObject);
var nr,stat:string;
begin
nr:=qrmain.FieldByName('ID').AsString;
showmessage(nr);
dbmain.Close;
dbmain.Open;
if dbmain.Connected=true then
begin
Forum: Datenbanken
by Ati,
2. Aug 2006
Sorry das mit dem fehlenden "where"-Teil war nur ein Kopierfehler von mir. Jedoch hat keiner der Vorschläge geklappt. Vielleicht ist es auch wieder was "Lazarus" spezielles.
Forum: Datenbanken
by Ati,
2. Aug 2006
Moin,
leider haben alle Vorschläge bisher zu Fehlermeldung (EDatabaseError) geführt. Hier mal der aktuelle Code:
procedure TForm1.btnanzeigeClick(Sender: TObject);
begin
if dbmain.Connected=true then
begin
dbmain.Connected:=false;
end;
dbmain.Connected:=true;