Query.Locate findet Datensatz nicht

Slipstream · Beiträge: 26 Erhaltene Danke: 5

Ich muss derzeit eine VCL-Anwendung mit XE7 nach FMX portieren. In der Datenbank gibt es eine Kundentabelle mit den Feldern Vor- und Nachname, die als Foreign Keys auf die beiden Tabellen VORNAMEN und NACHNAMEN verweisen. Für den Fall, dass der Anwender einen Namen eingibt, der in einer der Vorgabetabellen noch nicht existiert, habe ich diese Vorkehrung getroffen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function TDataModul1.GetIdOfVorname(const AName : String; const Sex : Integer) : Integer;
begin
  if (AName = '') or (AName = '-') then
     Result := 0                   else
  begin
    if not Qset_Vornamen.Locate('VORNAME;GESCHLECHT',VarArrayOf([AName,Sex]),[]) then
    begin
      Qset_Vornamen.Append;
      Qset_Vornamen.FieldByName('VORNAME').AsString := AName;
      Qset_Vornamen.FieldByName('GESCHLECHT').AsInteger := Sex;
      Qset_Vornamen.Post;
    End;
    Result := Qset_Vornamen.FieldByName('ID_VORNAMEN').AsInteger;
  end;
end;

Wenn der Vornamenstring leer ist oder nur aus '-' besteht, soll die Id mit dem Wert 0 zurückgeliefert werden. Ansonsten soll geprüft werden, ob der Datensatz bereits existiert. Wenn ja, soll die zugehörige Id zurückgegeben, wenn nicht, der Datensatz neu angelegt werden.

Der Anwender gibt zB "Manuela" als Vorname ein und wählt das Geschlecht "weiblich". Dieser Eintrag existiert schon in der Tabelle VORNAMEN. Dennoch versucht das Programm, diesen Datensatz neu anzulegen, was selbstverständlich einen Constraint-Error in der Datenbank auslöst. Ich verstehe nicht, weshalb die Locate-Methode den vorhandenen Datensatz nicht findet. Mit VCL funktioniert diese Methode correct. Mit FMX shinebar nicht.

Workarround mit SQL funktioniert dagegen problemlos:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  if (AName = '') or (AName = '-') then
     Result := 0                   else
  begin
    QueryMain_Clear;
    QueryMain.SQL.Append('select * from VORNAMEN');
    QueryMain.SQL.Append('where VORNAME = ' + QuotedStr(AName));
    QueryMain.SQL.Append('and');
    QueryMain.SQL.Append('GESCHLECHT = ' + IntToStr(Sex));
    QueryMain.Open;
    If QueryMain.RecordCount = 0 then
       Result := 0               else
       Result := QueryMain.FieldByName('ID_VORNAMEN').AsInteger;
    QueryMain_Clear;
  end;

Da sind noch mehr solcher Abfrage- und Insert-Methoden, die funktionieren alle auf die gewohnte Wise. Der einzige Unterschied: Es wird nur ein Feld abgefragt, VarArrayOf wird in den funktionierenden Methoden nicht benötigt.

Sinspin · Verfasst: Mi 19.04.17 18:08

Ob ein Locate geht oder nicht, hängt nicht davon ab was für eine Technik Du für die Oberfläche verwendest.

Da Du wie es scheint schon eine Query verwendest um das Locate auszuführen wäre auch interessant wie das Script bisher aussieht damit überhaupt Daten kommen.
Ehrlich gesagt würde ich immer deinen Workaround, also die direkte Query, zur Abfrage vorziehen.
Allerdings nicht mit 'SELECT * ...', sondern 'SELECT ID_VORNAMEN ...'.

Hat sich mit der Umstellung auf FMX vieleicht auch die DB Technik geändert? Wird jetzt ein ODBC Treiber verwendet?

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

Slipstream · Beiträge: 26 Erhaltene Danke: 5

Sinspin hat folgendes geschrieben :

Ob ein Locate geht oder nicht, hängt nicht davon ab was für eine Technik Du für die Oberfläche verwendest.

Das verstehe ich nicht: Was hat das Funktionieren von Locate mit der Oberfläche (was meinst du mit "Oberfläche" eigentlich genau?) oder mit der "Technik für die Oberfläche" zu tun? Die DB-Abfrage findet im Datenmodul statt.

Sinspin hat folgendes geschrieben :

Da Du wie es scheint schon eine Query verwendest um das Locate auszuführen wäre auch interessant wie das Script bisher aussieht damit überhaupt Daten kommen.
Ehrlich gesagt würde ich immer deinen Workaround, also die direkte Query, zur Abfrage vorziehen.
Allerdings nicht mit 'SELECT * ...', sondern 'SELECT ID_VORNAMEN ...'.

Es scheint nicht nur so, ich verwende tatsächlich eine Query-Komponente, nein, sogar mehrere. Welche DBAccess-Komponente würdest du denn stattdessen vorschlagen?

Welches "Script" meinst du denn?
Worin soll der Unterschied zwischen 'SELECT * ...', und 'SELECT ID_VORNAMEN ...' bestehen, wenn ich ohnehin alle Felder benötige?

Sinspin hat folgendes geschrieben :

Hat sich mit der Umstellung auf FMX vieleicht auch die DB Technik geändert? Wird jetzt ein ODBC Treiber verwendet?

Genau deshalb frage ich ja: Wenn ich ein Query.Locate ohne VarArrayOf mache, weil ich nur ein Feld vergleich muss, functioniert die Function. Benötige ich mehrere Felder und muss daher ein VarArrayOf verwenden, functioniert die Function nicht.

Wie es scheint, kennst du dieses Fehlverhalten nicht. Vielleicht findet sich noch ein User hier, der damit Erfahrung hat.

Sinspin · Verfasst: Do 20.04.17 13:22