Datensätze gesperrt?

[Taladan]

Ich habe den Script eigendlich schon mal komplett stehen gehabt. Doch wegen der übersichtlichkeit hab ich alle Tabels SQL usw in ein DataModul reingepackt und anweisungen entsprechend umgeschrieben.

Alles läuft, doch bei einer Anweisung sagt er mit immer, das die Datensätze bereits gesperrt wären, sobald in der vom SQL angeforderten Daten datensätze vorhanden sind, wenn nicht, funktioniert die Anweisung. Woran könnte dies liegen?

[Alexander]

Ähm ich kenn mich zwar sowieso nciht so mit Datenbankanwendungen aus, aber vielleicht solltest du etwas Code posten, damit wie auch den Fehler gemeinsam finden können.

[Taladan]

Delphi-Quellcode:

procedure TFormGehaltsliste.ListBox1Click(Sender: TObject);
var filter : string;
    i : integer;
    wasdrin : boolean;
begin
   DataMod.query2.sql.clear;
   wasdrin := false;
   DataMod.query2.sql.Add('select verteiler, betrag, datumderverteilung from verteilungen where verteiler =  :zähler');
   For i:= 0 To Listbox1.items.count -1 Do
   begin
    if listbox1.selected[i] then
    begin
     if wasdrin = false then begin
       filter := 'and (datumderverteilung = "' + listbox1.items.strings[i] + '"';
       wasdrin := true;
     end
     else
     begin
      filter := filter  + 'or datumderverteilung = "' + listbox1.items.strings[i]+'"';
     end;
    end;
   end;
   filter := filter + ')';
   DataMod.query2.sql.add(filter);
   DataMod.query2.ExecSQL;
   DataMod.query2.active = true;
   berechnen;
end;

Wobei ich mir nicht denken kann, das es an diesen code liegen kann, es muß etwas mit dem Tabels oder Datenbank sein, den der obrige code lief schon (hab nur hauptform.? mit datamod.? ausgetauscht, da ich ja die abfragen verschoben hab)

[MrSpock]

Hallo Taladan,

ein SELECT Statement wird immer nur mit Query.Open ausgeführt. Du musst das ExecSQL aus dem Code löschen.

[Taladan]

Die Query hat auch seltsamerweise mit execsql funktioniert. Aber ich hab den fehler gefunden. Es war eine ganz andere Stelle die den fehler verursacht hatte :oops: