Einen Datensatz löschen aus SQL sortiertem Datenbestand

[LuckyStrike4life]

Morgen,
neues Jahr neues (Un)Glück.

Die Überschrift ist vielleicht etwas nichts sagend, daher hier mal eine genaue Erklärung.

Den Inhalt einer Datenbank wird in nem DBGrid ausgegeben. Der Inhalt wird sortiert nach Datum angezeigt, dies ist relevant - haben wir ja schon ne Weile drüber diskutiert.

Nun funktioniert das löschen eines ausgewählten Datensatzes nicht mehr wie früher, d.h. als die Daten im Grid noch nicht sortiert ausgegeben wurden hat es gereicht einen Datensatz anzuklicken, und dann auf den Button zu drücken mit dieser Funktion:

Delphi-Quellcode:

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
maindbtabelle.Delete;
end;

Das geht nun nicht mehr, denn wenn man nun auf den Button klickt ist es egal welcher Datensatz ausgewählt wurde, es wird einfach der (vermutlich) 1. der unsortierten Datenbank gelöscht.

Nun schrieb mir schon ein kluges Köpfchen seine Idee dazu, der auf meine Komponenten angepasste Code sieht so aus:

Delphi-Quellcode:

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
 q_Delete.SQL.Clear;          
  q_Delete.SQL.Add('DELETE FROM mainDB WHERE MainDB=:Id');
  q_Delete.ParamByName('Id').AsInteger := querysort.FieldByName('MainDB').AsInteger;
  q_Delete.ExecSQL; // Wichtig, hier kein Open        
  querySort.Refresh; // Anzeige aktualisieren.
end;

Das Problem dabei war, ich nutze eine DBase Datenbank. Diese hat zwar ein Feld welches eine laufende Nummer enthält, dieses ist aber nicht ansprechbar. Zumindest nicht mit den Mitteln die ich versucht habe.

Das Feld mit dieser (eigentlichen) Indexnummer steht in der Datenbank an der ersten Stelle, die Überschrift der Spalte ist der Name der Datenbank. Zum Beispiel die Datenbank heißt 'Name.dbf' dann heißt die Spalte 'Name'.
Oben im Code heißt die DB 'MainDB', aber leider funktioniert es so nicht .
Das Programm läßt sich compilieren aber sobald der Button gedrückt wird gibts diese Fehlermeldung

Zitat:

Im Projekt soundso.exe ist ein Exception Fehler der Klasse EDatabaseError aufgetreten. Meldung: 'Querysort: Das Feld 'MainDB' wurde nicht gefunden'. Prozeß wurde angehalten. ...

Kennt jemand einen Weg wie ich dieses 'Indexfeld' ansprechen kann, oder eine ganz andere Lösung für das Problem?
Die Funktion ist wichtig, ich kann diese also nicht weglassen - und das Problem hindert mich extrem an der Fertigstellung *seufz*.

[Mario]

Hat Deine Datenbank keinen eindeutigen Primärschlüssel? Den solltest Du für Deine Löschabfrage verwenden können. Ansonsten spendiere Deiner DB doch ein AutoInc Feld. Gibt es so was bei DBase?

[r_kerber]

Hallo LuckyStrike4life,

ich denke das Feld MainDB gibt's in Deiner Datenbank nicht. Schau Dir doch mal die genaue Tabellenstruktur an. Wie schaust Du dir die Tabelle eigentlich an? Mit dem Database Desktop? Dann ist die erste Spalte nicht wirklich in der Tabelle enthalten sondern wird zur Anzeige generiert!

[LuckyStrike4life]

Zitat von Mario:

Hat Deine Datenbank keinen eindeutigen Primärschlüssel? Den solltest Du für Deine Löschabfrage verwenden können. Ansonsten spendiere Deiner DB doch ein AutoInc Feld. Gibt es so was bei DBase?

So richtig anscheinend nicht,
wie gesagt - diese eine Spalte beinhaltet für jede Zeile eine Nummer, läßt sich aber nicht ansprechen.
Wie kann ich der DB ein AutoInc Feld spendieren, es läßt sich leider kein Feld (Spalte) so deklarieren.

Zitat von r_kerber:

ich denke das Feld MainDB gibt's in Deiner Datenbank nicht. Schau Dir doch mal die genaue Tabellenstruktur an. Wie schaust Du dir die Tabelle eigentlich an? Mit dem Database Desktop? Dann ist die erste Spalte nicht wirklich in der Tabelle enthalten sondern wird zur Anzeige generiert!

Richtig, normal gehe ich über die Datenbankoberfläche, um mir die Tabellen anzeigen zu lassen.
Aber wenn diese Spalte erst generiert wird beim öffnen, ... dann müssen die Nummern ja doch schon irgendwo vorhanden sein, die in die Spalte für die jeweilige Zeile eingetragen werden.
Hmm...

[r_kerber]

Zitat von LuckyStrike4life:

Aber wenn diese Spalte erst generiert wird beim öffnen, ... dann müssen die Nummern ja doch schon irgendwo vorhanden sein, die in die Spalte für die jeweilige Zeile eingetragen werden.
Hmm...

Nein sind sie nicht. Diese Spalte eist nicht in der Datenbank-Tabelle.

[fkerber]

Hi!

Vielleicht irre ich mich und es ist richtig so (ich habe nämlich prinzipiell keine Ahnung davon), aber folgende Zeile sieht mir komisch aus:

Delphi-Quellcode:

q_Delete.SQL.Add('DELETE FROM mainDB WHERE MainDB=:Id'); 
                                                 ^^

Wie gesagt, fiel mir nur mal so auf.

Ciao fkerber

[LuckyStrike4life]

Zitat von r_kerber:

Zitat von LuckyStrike4life:

Aber wenn diese Spalte erst generiert wird beim öffnen, ... dann müssen die Nummern ja doch schon irgendwo vorhanden sein, die in die Spalte für die jeweilige Zeile eingetragen werden.
Hmm...

Nein sind sie nicht. Diese Spalte eist nicht in der Datenbank-Tabelle.

Hm.. na gut, aber was für eine Lösung gibt es dann noch?

Zitat von r_kerber:

Vielleicht irre ich mich und es ist richtig so (ich habe nämlich prinzipiell keine Ahnung davon), aber folgende Zeile sieht mir komisch aus:

Source:

q_Delete.SQL.Add('DELETE FROM mainDB WHERE MainDB=:Id');
^^



Wie gesagt, fiel mir nur mal so auf.

Ciao fkerber

Was soll da falsch sein?

[fkerber]

Hi!

irgendwie hast du die Namen da durcheinander gewürfelt, ich bin fkerber, aber macht ja nix, eigentlioch sind die ^^ bei mir an einer anderen Stelle, bei dem =:, müsste das nicht := heißen?

Ciao fkerber

[r_kerber]

Zitat von fkerber:

eigentlioch sind die ^^ bei mir an einer anderen Stelle, bei dem =:, müsste das nicht := heißen?

Nö, das ist SQL. :ID ist hier ein Platzhalter für einen Parameter.

Zitat von LuckyStrike4life:

Hm.. na gut, aber was für eine Lösung gibt es dann noch?

mach es doch so, wie Du es schon geschriben hast, nur nicht mit der Spalte MainDB sondern mit anderen Spalten Deiner Tabelle (notfalls mit allen).

[LuckyStrike4life]

Zitat von r_kerber:

mach es doch so, wie Du es schon geschriben hast, nur nicht mit der Spalte MainDB sondern mit anderen Spalten Deiner Tabelle (notfalls mit allen).

Deine Idee mit mehreren Spalten könnte funktionieren.
Wie müsste ich denn dann den Code verändern?

Könnte es auch sein das die Fehlermeldung:

Zitat:

Im Projekt soundso.exe ist ein Exception Fehler der Klasse EDatabaseError aufgetreten. Meldung: 'Querysort: Das Feld 'MainDB' wurde nicht gefunden'. Prozeß wurde angehalten. ...

darauf hinweisen soll, dass der verwendete Query nicht auf die Datenbank schaut - auf die er schauen sollte um das Feld zu finden?