Habe folgende Routine:
Code: Alles auswählen
if ButtonStanze.Color = $00FF00 then
begin
DataModuleAbhaengikeiten.ZConnectionAbhaengikeiten.Connect;
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Close;
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.SQL.Clear;
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.SQL.Add('SELECT * FROM ARTIKEL_STANZE WHERE ARTIKEL_NR = ' + QuotedStr(EditArtikelNr.Text));
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Open;
if not DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.IsEmpty then
begin
ShowMessage('Bin im Teil 1');
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Close;
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.SQL.Clear;
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.SQL.Add('delete FROM ARTIKEL_STANZE WHERE ARTIKEL_NR = ' + QuotedStr(EditArtikelNr.Text));
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.ExecSQL;
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Close;
DataModuleAbhaengikeiten.ZConnectionAbhaengikeiten.Disconnect;
end;
if EditStanzeNr.Text <> '' then
begin
ShowMessage('Bin im Teil 2');
DataModuleAbhaengikeiten.ZConnectionAbhaengikeiten.Connect;
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Open;
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Append;
ShowMessage('Bin im Teil 3');
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_GridSTANZEN_NR.AsInteger:= StrToInt(EditStanzeNr.Text);
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_GridARTIKEL_NR.AsInteger:= StrToInt(EditArtikelNr.Text);
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Post;
ShowMessage('Bin im Teil 4');
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Grid.Close;
DataModuleAbhaengikeiten.ZConnectionAbhaengikeiten.Disconnect;
end;
end;
1) Wenn in dieser Tabelle kein Eintrag existiert, wird ein Datensatz eigefügt und Routine läuft über 'ShowMessage 2 bis 4 ohne Probleme.
2)Wenn in dieser Tabelle ein Eintrag existiert, wird dieser gelöscht (sehe ich direkt in der Tabelle) 'ShowMessage 1, 2 und Routine ergibt einen Fehler:
'Projekt Stanzen hat Exception-Klasse ausgelöst mit der Meldung: Can not open a Resultset'.
3) Da im Punkt 2) der Eintrag gelöscht wurde, ist ein nochmaliger Aufruf dieser Routine wieder ohne Fehler (wie beim Punkt 1).
Und so im Kreis. Woran liegt es, dass nach direktem Löschen eine Eintrages, kein Append funktioniert?
Gruß, Luckner