IBTable.Locate funktioniert nicht bei FB Dialekt 3

[ralfiii]

Hallo!

Ich stelle gerade eine Anwendung um die zum Teil Daten über einen TIBTable einfügt.
Zuerst wird geschaut ob die Daten schon da sind und dann halt entweder ein neuer Eintrag (Insert) angelegt oder der alte aktualisiert (Edit).

Der Code sieht so aus:

Delphi-Quellcode:

with DADataMod.tblPatients do
begin
  Open;
  if Locate('Patient_Id', fPatGuid, [])
  then
      Edit
  else
      insert;
  <Snip>

Seltsamerweise liefert das Locate immer ein False, auch wenn der Eintrag eindeutig schon da ist. Und das nur wenn ich's an einer DB die mit Dialekt 3 erzeugt wurde teste, bei einer alten DB geht's.

Hilfe!?!?

[hoika]

Hallo,

und wie sieht es mit TIBQuery aus ?
Vielleicht hilft ja ein FetchAll ?


Heiko

[ralfiii]

Zitat von hoika:

und wie sieht es mit TIBQuery aus ?

Funny!

Also, Mini-Table:

Code:

CREATE TABLE NEW_TABLE (
    INTFIELD      INTEGER,
    STRFIELD      CHAR(5),
    VARCHARFIELD  VARCHAR(5)
);

drin eine Zeile mit den Daten 123 / "123" / "abc"

Die Query "Select * From New_TAble where StrField='123'" liefert den Eintrag.
Lies ich dann allerdings das Feld "StrField" aus, krieg ich
"123_________________" -> "123" und 17 Leerzeichen
Frag ich die Länge via SQL ab ("Select Char_Length(StrField) ...") liefert Firebird den Wert 5. (das kann ich noch verstehen, ist halt kein VarChar)

Und zu allem Überdruss:

Bei folgendem Code funktioniert das Locate am integer- und am VarChar-Field, nicht aber am Char-Field. Kacke!

Delphi-Quellcode:

  IBTable1.Open;
  if IBTable1.Locate('IntField', 123, []) then
     ShowMessage('Int found!');        // OK!
  if IBTable1.Locate('StrField', '123', []) then
     ShowMessage('Str found!');        // not found
  if IBTable1.Locate('VarCharField', 'abc', []) then
     ShowMessage('VarChar found!');    // OK
  IBTable1.Close;

[ralfiii]

Zitat von ralfiii:

Code:

CREATE TABLE NEW_TABLE (
    STRFIELD      CHAR(5)
);

...lies ich dann allerdings das Feld "StrField" aus, krieg ich
"123_________________" -> "123" und 17 Leerzeichen

Genau betrachtet scheint das das Problem zu sein.
Firebird scheint zu meinen char(5) ist ein 20-Zeichen langer String und padded (wie hier beschreiben) mit Leerzeichen.
Nur: Wie kommt fb auf die blöde Idee das Feld zu verlängern?!?

Versteh das nicht.
Soll ich nun die ganzen Char-Felder in VarChar umbauen?!?

[Lemmy]

Hallo,

habe schon lange nichts mehr mit IBX gemacht, aber Jeff Overcash hat IMHO TIBTable und TIBQuery ausschließlich dafür gemacht, damit BDE-Anwendungen schnell konvertiert werden können, mit der Maßgabe TIBTable und TIBQuery dann durch TIBDataset zu ersetzen. Was passiert bei TIBDataset (anstelle von TIBQuery)?

http://entwickler-forum.de/archive/i...p/t-25472.html

Grüße

P.S.: Ich sags nochmal, bringt zwar nichts, aber dennoch: IBX und Firebird sind nicht wirklich kompatibel bzw. Jeff hat schon 2000 klar gestellt, dass er Firebird mit den IBX nie unterstützen wird.

[ralfiii]

Zitat von Lemmy:

Was passiert bei TIBDataset (anstelle von TIBQuery)?

Komplett gleiches Verhalten
mit loPartialKey würd's gehen, aber da bleibt das Problem, dass beim Auslesen der viel zu lange String zurückgegeben wird.

In den Feldern sind in der App an der ich arbeite GUIDs drin, immer 32 Zeichen lang.
Das Feld ist als Char(32) definiert, und jetzt spinnt Delphi herum und gibt die Guids mit ewig vielen trailing spaces zurück
Beim Auslesen an zig-hundert Stellen ein Trim() herumzuwickeln ist eine potentielle Fehlerquelle, gefällt mir garnicht.

[ralfiii]

Zitat von Lemmy:

P.S.: Ich sags nochmal, bringt zwar nichts, aber dennoch: IBX und Firebird sind nicht wirklich kompatibel bzw. Jeff hat schon 2000 klar gestellt, dass er Firebird mit den IBX nie unterstützen wird.

Das ist mir leider neu.
Ich hab ein wenig getestet und werd auf IBDAC umrüsten. Das scheint ziemlich flott von statten zu gehen.

Die IBDAC-Jungs müssen nur noch ihr Bestellsystem reparieren, 300$ sind nicht 260Euro sondern 216...

Danke für eure Hilfe!

[Hansa]

Zitat von ralfiii:

Soll ich nun die ganzen Char-Felder in VarChar umbauen?!?

Entweder das, oder TRIM beim Abfragen der Datensätze (also im SelectSQL) direkt verwenden, oder eben bei der Verarbeitung im Programm per Delphi,

[DrUArn]

Hallo,

habe dieses Problem schon bei Turbodelphi gesehen und irgendwie gelöst.

taucht nun in delphi xe - diesmal für mich unlösbar - wieder auf:

ibtable1.Locate('Name',edit1.text,[loPartialKey]) funktioniert
ibtable1.Locate('Name',edit1.text,[]) funktioniert nicht !!, das heißt, man kann nicht nach genauer Schreibweise suchen!!

Scheint an den tlocateoptions zu liegen!

Wäre nicht schlecht, wenn es dafür eine Lösung gäbe

Grüße

[ralfiii]

Zitat von DrUArn:

Wäre nicht schlecht, wenn es dafür eine Lösung gäbe

Gibt es.
Weg von IBX oder Interbase statt firebird verwenden.
Geht leider nicht anders.