Firebird delete from table via Service

[ConnorMcLeod]

Hallo zusammen,
ich bin auf der Suche nach einer Erklärung für folgendes Phänomen:
Die Aufgabe ist, einige Records aus einer Tabelle zu löschen, die einem bestimmten Kriterium entsprechen.

Ich habe nach dem erfolgreichen Test die Funktionalität in einer extra Funktion in einer extra Unit untergebracht, damit das Ganze ohne Anpassungen in einer Serviceanwendung verwendet werden kann.

Die Verbindung zur Datenbank klappt, der Delphicode klappt in einer VCL-Anwendung.

Das Service läuft unter meinem Account (nicht als System) und über Logmeldungen weiß ich, daß die Funktionen korrekt aufgerufen werden. Es werden aber keine Records gelöscht, wenn es als Service läuft. Das Ganze mit D2007 und Firebird 2.5

Dasselbe Ergebnis bekomme ich übrigens, wenn ich das SQL Statement direkt mittels einer TSQLQuery exekutiere ohne stored procedure. Mit Zeos-Kompos habe ich es auch schon versucht.

Wie immer: danke für alle Ideen, die daherkommen ;-)

Delphi-Quellcode:

function DelByDate(const ADate: TMSGString): Boolean;
var
  lConnection: TSQLConnection;
  lq         : TSQLQuery;
  lTransDesc : TTransactionDesc;
begin
  LogInfo('DelByDate: Entered');
  Result := False;
  try  // except
    lConnection := TSQLConnection.Create(nil);
    lq := TSQLQuery.Create(nil);
    try  // finally
      ConnectSQLDataBase(lConnection);

      lq.Close;
      lq.SQLConnection := lConnection;
      lTransDesc.TransactionID := 111;
      lTransDesc.IsolationLevel := xilREADCOMMITTED;
      lConnection.StartTransaction(lTransDesc);

      lq.SQL.Text :=
          'EXECUTE PROCEDURE DELBYDATE ('
        + QuotedStr(ADate)
        + '    ); '
        ;
      lq.ExecSQL;
      
      lConnection.Commit(lTransDesc);
      Result := True;
    finally  // try
      FreeAndNil(lq);
      FreeAndNil(lConnection);
    end;  // try/finally
  except on e: Exception do
    begin
      LogError('DelByDate: ' + e.Message);
      Result := False;
    end;  // except on e: Exception do
  end;  // try/except
  LogInfo('DelByDate: Finished');
end;

procedure ConnectSQLDataBase(var AConnection: TSQLConnection);
begin
  if (not Assigned(AConnection)) then begin
    exit;
  end;  // if
  
  AConnection.ConnectionName := 'IBConnection';
  AConnection.DriverName     := 'Interbase';
  AConnection.GetDriverFunc  := 'getSQLDriverINTERBASE';
  AConnection.LibraryName    := 'dbxint30.dll';
  AConnection.LoginPrompt    := False;
  AConnection.VendorLib      := 'GDS32.DLL';
  AConnection.Params.Add('DriverName=Interbase');
  AConnection.Params.Add('Database=' + MYSRV + ':' + MYDBNAME);
  AConnection.Params.Add('RoleName=RoleName');
  AConnection.Params.Add('User_Name=' + MYDBUSER);
  AConnection.Params.Add('Password=' + MYDBPWD);
  AConnection.Params.Add('ServerCharSet=');
  AConnection.Params.Add('SQLDialect=3');
  AConnection.Params.Add('ErrorResourceFile=');
  AConnection.Params.Add('LocaleCode=0000');
  AConnection.Params.Add('BlobSize=-1');
  AConnection.Params.Add('CommitRetain=False');
  AConnection.Params.Add('WaitOnLocks=True');
  AConnection.Params.Add('Interbase TransIsolation=ReadCommited');
  AConnection.Params.Add('Trim Char=False');

  AConnection.Open
end;

[MichaelT]

Prüfe mal das Datum welches das Delete einschränkt. Alles andere ist schwer zu sagen.

[ConnorMcLeod]

<big smile> wollte gerade die Lösung zu meiner eigenen Frage posten und sah den Kommentar, in dem sie schon drin steht. Danke sehr!
Ich habe leider keine Zeit für akademische Untersuchungen, aber allem Anschein nach werden Strings, obwohl man sie als Strings behandelt, intern in Datumsformate gewandelt, wenn ein Datum drinsteht. Meine Datums sehen immer so aus: yyyymmdd und werden als Strings behandelt. Irgendein Mechanismus baut das -manchmal- um und schummelt Punkte dazu.
Fall gelöst.

[mkinzler]

Ich würde deshalb Datumswerte grundsätzlich als diese (Parameter) in Abfragen verwenden.

[ConnorMcLeod]

Danke; als Parameter ist klar, das kommt jetzt. Ich mache das immer schrittweise.

[himitsu]

Was ist Was ist TMSGString?

Aber Grundsätzlich:
Entweder per Parameter als DateTime-Typ (da wird das dann DB-seitig umgewandelt)
oder du mußt client-seitig selber den Datumstring im "richtigen" Format erstellen.

z.B. FormatDateTime oder DateTimeToStr mit passendem FormatSettings?

[ConnorMcLeod]

Das ist mein selbst definierter AnsiString-Typ, habe ich im Beispiel vergessen, umzuschreiben, vergiß das ;-)

Ich habe in diesem Fall mehrere Datenquellen (Excel, SAP, OPC, CSV, eigenes serielles Protokoll, eigene TCP Pakete) und verschiedene Verarbeitungen und Reports. Um das alles zu vereinheitlichen, arbeite ich nirgendwo mit [Datum]-Typen, sondern es wird alles auf das Format yyyymmdd gebracht (bzw yyyymmddhhnnsszzz) und als String gespeichert. Somit sind die Daten für alle gleich formatiert und es gibt keine Möglichkeit, es falsch zu interpretieren.

Für die Datumsbehandlung gibt es globale Routinen, die die jeweilige Umwandlung übernehmen: FormatDateTime plus Formatstrings als Konstante in Richtung Datenbank und Funktionen für userdefinierte Formate in Richtung GUI und Listen. Die Frage der DateTime-Umwandlung in der Datenbank stellt sich somit gar nicht - weil es VARCHARs sind.

Das ist eine Glaubensfrage und ich möchte keinen Krieg anzetteln ;-)

Die Lösung für mein Problem besteht in der Verwendung so einer Umwandlungsfunktion beim Befüllen des Parameters.