brauche hilfe beim loeschen eines datensatzes

[Grumble]

hallo,

ich arbeite grad an einem projekt mit einer interbase datenbank, mein problem ist eine fehlermeldung, die erscheint wenn ich einen in einer listbox gewaehlten datensatz loeschen moechte

sie lautet:

im projekt ... ist eine exception in der Klasse EIBInterbaseError aufgetreten. Meldung: 'validation for colum x_x_x,value"xxxnullxxx"'.

Delphi-Quellcode:

    if FDB.FARceDB.Connected=false then FDB.FARceDB.Connected:=true;
    FDB.TR_FARce.StartTransaction;
 FDB.DS_Options.ParamByName('ID').Value:=Option[ListBoxOptions.ItemIndex].ID;
    FDB.DS_Options.Active:=true;
    FDB.DS_Options.delete

sie tritt bei der delete anweisung auf
kann mir jemand sagen worans liegen koennte?

ps: ich habe noch keine erfahrungen mit datenbanken

Grumble

[Minz]

Hallo,

ich kann auch nicht behaupten mich auszukennen, aber
die Klammersetzung in der 3. Zeile sieht etwas merkwürdig aus.

Gruß Minz

[Grumble]

ja, die klammer hatte ich ausversehen geloescht, das ist aber leider nicht das problem

Grumble

[Minz]

In der Zeile ist noch eine eckige Klammer

Minz

oh ok schon gesehen

[Minz]

Erklär doch mal bitte was bei dir Option ist?

ist das eine stinknormale Listbox?

[Grumble]

ja es ist eine normale listbox

option ist ein array eines records

Grumble

[Minz]

weißt ist halt ein bissel schwierig, wenn da nicht steht, was was ist!
Welche Ausdrücke sind Objekte oder andere Sachen oder so, des braucht man schon um durchzusteigen.

Options sieht für mich nach einem eigenen Objekt aus? Mit einer Methode ID?
was macht die?

[Grumble]

ich versteh schon, wie soll man da auch so schnell durchsehen, also erlaer ich das mal kurz, ich hoffe das dass so ausreichend ist:

FARceDb: TIBDataBase;
TR_FARce: TIBTransaction;
DS_Options: TIBDataSet;
ListBoxOptions: TListBox;
Option:array of T'Record';

Das ganze muesste so funktionieren: Das in der listbox gewaehlte item repraesentiert ein record mit einer integer-variable ID. der datensatz DS_Options dessen feld id mit der ID aus der listbox uebereinstimmt wird gewaehlt. dieser soll dann auch geloescht werden.
ich muss dazu sagen es ist auch nicht mein code, sondern ein Teil eines alten projektes, dass ich verbessern bzw. zum laufen bringen muss.

Grumble

[harrybo]

Hallo Grumble,

Der Code, den Du da zu bearbeiten hast, bedarf einer Generalüberholung. Ich glaube, Du hast keinen leichten Job, wenn der Rest des Programms von ähnlicher Qualität ist. Ich gehe mal durch:

1. ob eine Verbindung zur Datenbank existiert, sollte auf der Ebene "Löschen" nicht gecheckt werden, das sollte weiter oben passieren, und Buttons entsprechend aktiviert, bzw, deaktiviert werden.

2. Eine Transaktion einfach starten ist dagegen unsicher. Es sollte also zunächst geprüft werden, ob die Transaktion bereits läuft.

3. Zur Verbesserung der Übersicht und zur Erleichterung des Debuggens kann man die ID, nach der gesucht werden soll, in eine lokale Variable einlesen.

4. Um Programmablauffehler zu vermeiden, ist es besser, bei Parametern (und auch bei Feldnamen über FieldByName) mit der entsprechenden Umformung (z.B. AsInteger, AsString etc.) zu arbeiten als mit "Value", also: ParamByName('ID').AsInteger.

5. Das Löschen eines Datensatzes mit einer bestimmten ID lässt sich wesentlich schneller über SQL realisieren, wenn nicht bereits der Cursor einer geöffneten Datensatzmenge direkt darauf steht (das ist bei Dir anscheinend nicht der Fall). Man könnte zum Beispiel eine eigene Routine schreiben, die einen SQL Befehl ausführt:

Delphi-Quellcode:

procedure TDM.ExecIBSQL(ASQL: String);
begin
  with IBSQL1 do try
    if not Transaction.InTransaction then Transaction.StartTransaction
    else if Open then Close;
    SQL.Clear;
    SQL.Add(ASQL);
    ExecQuery;
    Transaction.Commit;
  except
    Transaction.Rollback;
  end;
end;

IBSQL1 ist dabei eine TIBSQL Komponente, deren Transaktion die selbe ist, mit der auch die genutzte Datenmenge arbeitet. Die Löschen Routine sähe dann so aus:

Delphi-Quellcode:

procedure DeleteDataset;
var
  vID : longint;
  vSQL : string;
begin
  vID := Option[ListBoxOptions.ItemIndex].ID;
  vSQL := 'DELETE FROM <Tabelle> WHERE <Feldname>=' + IntToStr(vID);
  ExecIBSQL(vSQL);
end;

<Tabelle> ist dabei Dein Tabellenname, <Feldname> der Feldname, der Deine ID enthält. Ach ja: falls Du doch datensensitive Komponenten auf der aktuellen Form hast, deren Datenmengen auf oben genannter Transaktion stehen, sind diese nach dem Löschen natürlich leer, da die Transaktion mit Commit geschlossen wurde. Die entsprechenden Datenmengen musst Du dann neu öffnen. Alternativ kann für IBSQL1 auch eine eigene Transaktion definiert werden, die angezeigten Datenmengen bleiben dann bestehen, bekommen aber von dem Löschvorgang erst nach dem nächsten Commit bzw. Rollback etwas mit.

Ich hoffe, das hilft Dir weiter

gruß, harrybo

[Gast]

Hallo Grumble 8)


Vielleicht hast Du in Deiner Tabelle kein Primärschlüssel... also mehrere gleiche ID’s... darum „weiß“ Deine Datenbank nicht welcher Datensatz soll gelöscht werden.

Gehe in BDE und probiere dort zuerst Dir alle Datensätze mit einer bestimmter ID anzuzeigen... z.B. ID = 10:

SELECT * FROM Tabelle1
WHRER ID = 10

Bekommst Du mehrere Datensätze als Antwort dann wäre Dein Fehler klar...

im übrigen falls eine Anweisung:

DELETE FROM Table1
WHRER ID = 10

erfolgreich abgesetzt wird (direkt in BDE) dann würde ich gerne sehen was für ein Fehler (also Fehler Meldung) du bekommst?... (Bin ich BLIND oder hat noch keiner danach gefragt? )

Gruß

Paul Jr.

P.S.

Übrigens... wird eine Query zum löschen eines Datensatzes verwendet (also per Query.Delete) musst die Eigenschaft RequestLive = TRUE sein. Abschicken eines Löschbefehl per ExecSQL kann natürlich helfen... beseitig aber nicht bzw. deckt nicht auf die Ursache für Dein Lösch-Misserfolg... was auf Dauer Dich vor folgen-fehler nicht schützen wird...