Discussion :

[alakauf]

Bonjour,
J'ai écrit un programme qui accède à une grosse base de données. Comme cela doit marcher en mode client/serveur j'utilise des TQuery avec des TUpdateSQL.

Cette base contient des blobs qui peuvent être NULL. Mais quand ils sont NULL je me suis aperçu que les valeurs mises en base sont n'importe quoi (pour ces blobs), voir que j'ai des erreurs "handle de blob incorrect".

En revanche, si je force leur valeur en y mettant un espace, cela se passe bien. Donc j'en conclus qu'en Delphi4 le cache est incorrect en présence de blobs NULL.

Quelqu'un aurait-il déjà rencontré ce problème, et surtout trouvé la solution pour le contourner?

Merci d'avance.

[ShaiLeTroll]

TQuery ? BDE ? sur quelle type de Base de Données ?
Paradox ? Access ? ou SQL Server ? Oracle ? InterBase et dans ce cas, mieux vaudrait utiliser ADO ou DBExpress ...
Une Grosse Base ? Combien ?

Ensuite, la gestion des BLOBS doit être la plus restreinte que possible, évite de faire un SELECT * par exemple !

Utilises-tu des requêtes paramètrées ? force tu bien le type du paramète à Blob après une affectation AsValue := Null; (équivalent de Clear()
N'hésite pas à faire une requête pour les données simples et une autre requête pour le BLOB (si c'est vraiement utile !)

Personnellement, je trouve qu'utiliser un Query en RequestLive avec Edit\Post en mode Client\Server c'est très vilain, mieux vaut laisser le Query en lecture seule (nettement plus performant) puis utiliser un TClientDataSet pour le cache, et ensuite effectuer les mises à jour manuellement avec du SQL explicite !
Rien est pire que de devoir chercher dans SQLUpdate pour trouver des SQL, c'est l'utilisation de delphi comme clicodrome, ce n'est pas prudent !

[alakauf]

La base est du MySQL. Mais le problème ne vient clairement pas de là. Car les traces ODBC (oui en prime cela passe par ODBC) prouvent que c'est la requête émise par Delphi qui est foireuse.

Pour l'historique de l'application, initialement nous utilisions des TTable, ce qui permettait une gestion très simple de toutes les opérations (ajout/suppression/modification) de la table. Sauf que cela ne marche pas en client/serveur du fait des timeout. D'où le basculement sur le couple TQuery/TUpdateSQL qui semblait permettre de faire l'équivalent facilement. Mais visiblement cela entraîne des effets de bord problématiques.

En ce qui concerne l'usage des RequestLive c'est une option que nous sommes en train d'envisager. Mais nous ne savons pas trop leur comportement sur les blobs, ni si nos tables respectent les règles permettant de s'en servir. D'autant que sur ce point la documention Delphi est des plus succintes.

[ShaiLeTroll]

Avec Delphi 4, c'est limité, BDE ça doit être le seul qui fonctionne avec MySQL !
Je ne crois pas que MyDAC de Devart\CoreLab le supporte encore (quoi que !)

Je n'ai pas l'habitude de TUpdateSQL, mais j'ai manipulé des Blobs avec Requête Paramètrée (voir ParamByName), je n'ai eu aucun soucis et cela avec MyDAC et ADO !
BDE c'est un peu vieux mais comme il utilise ODBC ... ça doit passer comme ODBC

Pour RequestLive, je le deconseillais !

Comme je le disais fait donc le code manuellement (sans l'IDE), gère tes propres accès ! Evite Edit et Post avec le BDE sur une base comme MySQL, c'est très bien avec Paradox mais pas plus !

[alakauf]

Bon,
en passant un max de temps sur Google à essayer divers combinaisons de mots clefs, j'ai fini par trouver un article me donnant une solution qui semble marcher. Pour cela il faut modifier la VLC. Voici ce qui dit le message:
I did the following modification in Unit: DBTables.pas, and Method: SetParams(UpdateKind: TUpdateKind); if Old then Param.AssignFieldValue(Field, Field.OldValue) else
begin
Value := Field.NewValue;
if VarIsEmpty(Value) then Value := Field.OldValue;
if Field.DataType = ftMemo then begin
Param.AsString := Value;
end else begin
Param.AssignFieldValue(Field, Value);
end;