Hallo,
brauche mal wieder hilfe vom qaulifizierten Delphi-Personal
Ich habe ein Grid, in diesem Grid lösche ich über eine Funktion einen Eintrag. Beim ersten mal gehts aber beim zweiten mal bekomme ich eine
Access Violation bzw. eine Zugriffsverletzung.
Der Cursor springt in folgende Code-Zeile -->
QuDeleteHauptgruppen.SQL.Text := 'Delete from Hauptgruppen where ID = ' + QuHauptgruppen.FieldByName( 'ID' ).AsString;
bei einer schnell Auswertung sagt er mir, dass "QuDeleteHauptgruppen" ein undefinierter bezeichner sei!?
Hat mir da jemand nen rat!?
Delphi-Quellcode:
Procedure TFoHauptgruppen.SetDeleteSQLHauptgruppen;
begin
// QuDeleteHauptgruppen.SQL.Clear;
QuDeleteHauptgruppen.DatabaseName := 'FOUVIM';
QuDeleteHauptgruppen.SQL.Text := 'Delete from Hauptgruppen where ID = ' + QuHauptgruppen.FieldByName( 'ID' ).AsString;
QuDeleteHauptgruppen.ExecSQL;
QuDeleteHauptgruppen.Free;
end;
procedure TFoHauptgruppen.SpBuLoeschenClick(Sender: TObject);
begin
if MessageDlg( 'Wollen Sie diesen Eintrag löschen?', mtWarning, mbOKCancel, 1) = mrOK then begin
SetDeleteSQLHauptgruppen;
ShowMessage( 'Dateneintrag erfolgreich gelöscht!' );
// QuHauptgruppen.Active := False;
QuHauptgruppen.Close;
QuHauptgruppen.Open;
// QuHauptgruppen.Active := True;
DBGrid1.Repaint;
end else
exit;
end;
Danke
Eppos