Access -> IB Problem

[DirkG]

Hallo DP'ler,
ich bin wahrscheinlich nur betriebsblind, aber ich komme nicht weiter.

Nach der Umstellung einer Accessdatenbank auf Interbase habe ich im Datenmodul folgenden Code um die ID eines Datensatzes festzustellen:

Delphi-Quellcode:

// ----------------------------------------------------------------------------
// function GetPK(DS: TDSTitle): integer;
// ----------------------------------------------------------------------------
// Function..: Determine ID of the handover parameters specified data rate
// Parameter.: [DS] == actual dataset
// Accessible: public
function TdmTitles.GetPK(DS: TDSTitle): integer;
begin
  //-- default return ---------------------------------------------------------
  Result:= -1; 
  //if not OpenDB then exit;
  with dbMain do begin
    if Connected then Close; 
    DefaultTransaction:= trMain; 
    AllowStreamedConnected:= false; 
    IdleTimer:= 0; 
    SQLDialect:= 3;
    DatabaseName:= '192.168.20.208:C:\Eigene Dateien\titles.ib';
    LoginPrompt := false; 
    Params.Text := 'user_name=DIRK' + #13#10 + 'password=macabi' + #13#10 + 'lc_ctype=ISO8859_1';
  end;
  with trMain do begin
    DefaultDatabase:= dbMain; 
    Params.Add('write'); 
    Params.Add('consistency'); 
  end;
  with qrMain do begin
    Database:= dbMain; 
    Transaction:= trMain; 
    CachedUpdates:= false; 
  end;
  with qrMain do begin
    //-- query prepare --------------------------------------------------------
    SQL.Clear; SQL.Add('select * from MYTITLES where TITNAME = :TIT');
    //-- query param prepare --------------------------------------------------
    ParamByName('TIT').Value:= DS.Title;
    //-- query open -----------------------------------------------------------
    try
      Open; 
      if (RecordCount <> 0) then 
        Result:= Fields.FieldByName('ID').AsInteger;
      Close; 
    except
      on EDbengineError do raise;
      on EDatabaseError do abort;
    end; {try}
  end; {with}
end;

Bei der Ausführung erhalte ich die Meldung "Fehler bei der Bereichsprüfung". Ich konnte aber den Code in der IB-Console ausführen und erhielt auch das gewünschte Ergebnis.

Hat jemand einen Ansatzpunkt, wo ich den Fehler finden könnte.

[marabu]

Hallo Dirk,

da ich den Fehler nicht aus eigener Erfahrung kenne, habe ich ein wenig gesucht.

Der einzige Treffer, den ich nicht sofort vergessen will, ist der hier: klick

Aber auch das gefällt mir nicht so recht. Kannst du die genaue Zeile im Quelltext benennen, bei welcher der Laufzeitfehler auftritt?

Grüße vom marabu

[DirkG]

@marabu

Zitat:

Der einzige Treffer, den ich nicht sofort vergessen will, ist der hier: klick

Ich habe das mal versucht und auch bei mir läuft es jetzt durch. Trotzdem kann das was nicht stimmen. Wenn der Pfad in den Optionen steht, bekomme ich den Fehler immer mit der Meldung

... eine Exeption der Klasse ERangeError aufgetreten.
Meldung "Fehler bei Bereichsprüfung" ...

und er tritt tritt beim ausführen der OPEN Anweisung der Query auf.
Beim Debuggen lande ich dann in der

-> IBCustomDataSet.pas
-> procedure TIBCustomDataSet.FetchCurrentRecordToBuffer(Qry: TIBSQL; RecordNumber: Integer; Buffer: PChar);
-> Line 1363;

[hoika]

Hallo,

if (RecordCount <> 0) then ersetz das mal durch

if not EOF Ausserdem würde ich mal statt .Value durch AsString nehmen


Heiko