Discussion :

[Papy214]

Bonjour

J'ai une application 'server" datasnap rest qui gère une base de données SQlite.
Plusieurs applications clientes se connectent à cette application server pour obtenir ou envoyer des données.
Un des services plante de façon aléatoire avec le message

[Firedac][Phys][SQlite] ERROR: interrupted

Le fichier de données fait environ 1 GO mais n'est pas corrompu.
Les requêtes faites dans la procédure sont tout à fait raisonnables.

Impossible de déboguer vu que c'est totalement aléatoire.

A votre avis, quel genre de problème pourrait provoquer l'erreur ?

[SergioMaster]

Bonjour,

des pistes à défaut, mais que tu as peut être déjà

indicates that an operation was aborted prior to completion, usually be application request.

If the callback function to sqlite3_exec() returns non-zero, then sqlite3_exec() will return SQLITE_ABORT.

If a ROLLBACK operation occurs on the same database connection as a pending read or write, then the pending read or write may fail with an SQLITE_ABORT or SQLITE_ABORT_ROLLBACK error.

In addition to being a result code, the SQLITE_ABORT value is also used as a conflict resolution mode returned from the sqlite3_vtab_on_conflict() interface.

plus de détails https://www.sqlite.org/rescode.html#abort

reste à savoir ce que fait le service

[Papy214]

reste à savoir ce que fait le service

Il reçoit un contenu JSON, le décortique pour remplir ou mettre à jour 3 tables de données et renvoie un JSON contenant un code de réussite ou d'erreur selon le résultat.
Tout est dans une transaction avec un joli try..except autour.
L'erreur est d'ailleurs renvoyée dans le JSON renvoyé par le service, preuve que le try..except fait bien son boulot.
A l'origine, je vérifiais juste une exception générique mais je viens de rajouter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    on E:EFDDBEngineException do
    begin
      FDConnection1.Rollback;
      Writer.WritePropertyName('error');
      for I := 0 to E.ErrorCount - 1 do
      begin
        Errs := Errs + E.Errors[I].Message;
        if I < (E.ErrorCount - 1) then
          Errs := Errs + sLineBreak;
      end;
      Writer.WriteValue('SetRecord: ' + Errs);
    end;

histoire d'avoir un peu plus de détails la prochaine fois.

Ce qui me fait un peu flipper (si tant est que j'ai bien compris les implications) c'est la phrase :

If a ROLLBACK operation occurs on the same database connection as a pending read or write, then the pending read or write may fail with an SQLITE_ABORT or SQLITE_ABORT_ROLLBACK error.

Dans une utilisation mono-utilisateur, je n'ai jamais eu ce problème.
Il apparaît que ça arrive seulement en multi-utilisateurs.
Et je vais avoir du mal à baliser ça si le c'est la source du problème.:(

[SergioMaster]

Dans une utilisation mono-utilisateur, je n'ai jamais eu ce problème.
Il apparaît que ça arrive seulement en multi-utilisateurs.

Oui la phrase est peut être mal formulée aussi
Pour moi effectivement SQLite c'est du mono-utilisateur quoique :

Multiple processes can have the same database open at the same time. Multiple processes can be doing a SELECT at the same time. But only one process can be making changes to the database at any moment in time, however.

Il y a aussi une option WAL

Mais même mono-utilisateur ne veux pas forcément dire mono-transaction, imaginons par exemple des accès et actions dans des threads je laisse imaginer ce qui peut se produire

[ALWEBER]

Tu sais que tu peux mettre en oeuvre le moniteur Firedac pour tracer le problème. Si besoin Je peux t'envoyer un exemple.
Ne pas oublier de passer la connection en Mode "Normal"

[Papy214]

Ah je veux bien un exemple pour monitorer sqlite.
Je connaissais des utilitaires pour SQLServer mais pas pour SQLite.

[ALWEBER]

Ci-joint exemple avec base SQL LIte changer le chemin d'accès à la base.
Ouvrir l'outil Moniteur Firedac
Exécuter le programme ci-joint.
Données significatives dans le FMX

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  object FDConnection1: TFDConnection
    Params.Strings = (
      'Database=c:\data\bddfact.db'
      'LockingMode=Normal'
      'DriverID=SQLite'
      'MonitorBy=Remote')
    Connected = True
    LoginPrompt = False
  end
  object FDMoniRemoteClientLink1: TFDMoniRemoteClientLink
    Tracing = True
  end

BDDFMX.zip

[Papy214]

Merci ! C'est récupéré.
Je regarde ça dans la journée.