Logguer les requêtes SQL

Bonjour,

N'ayant rien trouvé dans la FAQ, ni dans la recherche sur le forum, je me tourne vers vous.

Je développe un programme de synchronisation de 2 bases de données, l'une est MySQL et l'autre Sage. Je souhaite mettre en place un log des requêtes, mais j'ai un soucis. En effet dans mon log je recupère les requêtes avec les paramètres alors que j'aimerai récupérer la requête effective.

Par exemple si j'ai la requête suivante :

Code:

---

1 2 3 4 5

query.SQL.Clear; query.SQL.Add( 'SELECT * FROM USERS WHERE id = :id' ); query.ParamByName('id').AsString := 'titi'; query.open; log( query.SQL.Text );

---

J'aimerai obtenir dans mon fichier de log la requête suivante :

Code:

---

SELECT * FROM USERS WHERE id = 'titi'

---

Hors je récupère le texte que j'ai renseigné, à savoir :

Code:

---

SELECT * FROM USERS WHERE id = :id

---

J'ai essayé de mettre Params[0] à la place de ParamByName, mais cela ne change rien, idem si je fait un query.prepare avant l'execution.

Quelqu'un aurait il une solution à ce problème ?

Merci d'avance.

Je ne pense pas que tu puisses récupérer la requête comme tu le désires.

Puisque tu connais la valeur de ton paramètre je te conseille de passer directement ton paramètre à la requête SQL de la façon suivante.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function queryFormat(TextSQL, param: string):string; begin Result := TextSQL + ' ' + quotedStr(param); end; ... baseQuery := 'SELECT * FROM USERS WHERE id ='; query.SQL.Clear; query.SQL.Add( baseQuery + ' :id' ); query.ParamByName('id').AsString := 'titi'; query.open; log( queryFormat(baseQuery,query.ParamByName('id').AsString));

---

Cordialement

Bonjour,

Merci pour la réponse et une solution possible.

Je vais voir comment l'implémenter sans trop de problème car j'ai des requêtes avec une 10aines de paramètres donc j'aimerais éviter d'avoir des lignes à rallonge, mais la solution me semble pertinente, à moi de l'adapter.

Cordialement.

Pour manipuler deux nombreux paramètres je te conseille de bricoler une routine de ce type qui utilise les tableaux de variants à une dimension te permettant ainsi de construire ta clause where peu importe le nombre de paramètres.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function makeWhere( lField, lValue: variant):string; var I: integer; begin if not VarIsArray(lField) or not VarIsArray(lValue) or (VarArrayHighBound(lField,1) <> VarArrayHighBound(lValue,1)) then exit; Result := 'Where '; for I := VarArrayLowBound(lField,1) to VarArrayHighBound(lField,1) do begin Result := Result + varToStr(VarArrayGet(lField,[i])) + '=' + quotedStr(varToStr(VarArrayGet(lValue,[i]))); if (I >= VarArrayLowBound(lField,1)) and (I < VarArrayHighBound(lField,1)) then Result := Result + ' AND ' else Result := Result + ' '; end; end;

---

Utilisation avec par exemple trois paramètres

Code:

---

1 2 3 4

makeWhere( varArrayOf(['champ1','champ2','champ3']), varArrayOf(['valeur1','valeur2','valeur3']));

---

Ceci n'est qu'un simple exemple très limité car la clause Where ne se construit que pour des paramètres de type string et de plus seul le AND n'est traitée. A toi la main maintenant ;)

Cordialement