Fehler beim Löschen und Einfügen der Datensätzen.

[Luckner]

Hallo,
Habe folgende Routine:

Delphi-Quellcode:

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;

folgendes geschieht:
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?

Habe schon in einem anderem entsprechendem Forum auch diese Fehlermeldung beschrieben, mit den Antworten, dass es unter SQL kein Append gibt und weil das Dataset mit einem DBGrid in Verbindung steht.
Habe diese Routine ebenfalls unter Delphi nachgebaut und dort funktioniert sie ohne Probleme.
Diese Fehlermeldung komt auch von einer ZEOS-Subroutine.

Gruß, Luckner

[Frickler]

Was ist, wenn Du das Löschen auch über das DataSet machst (wie das Anhängen) und nicht via SQL-Kommando?

[Jumpy]

Nach dem Löschen hast du in deiner Komponente das SQL-Statement zum Löschen drin und nicht mehr das zum Anzeigen der Daten.

Das hier im Teil 2 einfügen sollte helfen:

DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Gr id.SQL.Clear;
DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_Gr id.SQL.Add('SELECT * FROM ARTIKEL_STANZE WHERE ARTIKEL_NR = ' + QuotedStr(EditArtikelNr.Text));

[Luckner]

Danke Jumpy,

jetzt funktioniert es.

Gruß, Luckner

[DeddyH]

Also, ich würde so etwas nicht von der Farbe eines Buttons abhängig machen. Abgesehen davon wäre es bestimmt schöner, im Datenmodul ein paar passende Methoden zu schreiben und die dann von außerhalb nur noch aufzurufen (das spart die gefühlt 100 Stellen von "DataModuleAbhaengikeiten.ZQueryEtiketten_Stanze_G rid.XXX"). Innerhalb dieser Methoden könnte man auch die Queries dynamisch erzeugen (Geschmackssache) und diesen einen parametrisierten SQL-String zuweisen (keine Geschmackssache, sondern alternativlos, sofern man etwas Wert auf Sicherheit legt).

[haentschman]

:thumb: all...