Discussion :

[VFabritius]

Bonjour,

Je rencontre un petit soucis que j'ai réussi à contourner mais je ne comprend pas pourquoi et c'est bien ça qui me chagrinne.

J'ai un TADOQuery avec CursorLocation positionné à clUseServeur car beaucoup de données. Pour le CursorType, quelque soit le paramétrage initial, il me le positionne à ctStatic

Je défini une requete initiale :

Code :

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

1
2
3
Select cod_four , reference , designation from tbl_article 
where date_annulation is null and  cod_four>=''''  and reference>=''''
order by cod_soc,cod_four,reference

En fonction des paramètres de sélection , je complète ma clause Where en faisait

Code :

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

Query.sql|1] := Query.Sql[1] + '((cod_four >= ''ABE'' and reference >= ''000081'')'

et en fonction d'un autre paramétrage, je complète avec

Code :

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

Query.sql|1] := Query.Sql[1] + 'or ( cod_four > ''ABE''))'

J'obtiens au final la requete suivante:

Code :

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

1
2
3
Select cod_four , reference , designation from tbl_article 
where date_annulation is null and  cod_four>=''''  and reference>='''' and ((cod_four >= ''ABE'' and reference >= ''000081'')or ( cod_four > ''ABE''))
order by cod_soc,cod_four,reference

Quand j'ouvre la requête un première fois, pas de soucis mais que je la relance avec le mécanisme de construction de la requête, j'ai une erreur SBookmarksRequired
En revanche, si je met directment la requête complète dès le début, je n'ai pas de soucis.

Quelqu'un aurait-il une idée sur la différence de comportement ?

[ShaiLeTroll]

Ta TStrings contient toujours 3 lignes, c'est un peu casse gueule comme méthode !
utilise Query.SQL.Text au lieu de modifier la Strings[1] et concatène à la volée au lieu de modifier à posteriori !

Pour ton histoire de Bookmark, tu n'aurais pas une DBGrid connectée avec une selection en cours ?
Ou utiliser des GetBookmark ?
Il me semble que les Bookmark ne sont plus valides après un Close (ça dépend de l'implémentation du descendant de DataSet car bcp les utilise comme ça)
Je n'utilise que très peu les Bookmark pour le repositionnement après un Close\Open\Refresh, j'utilise un simple Locate sur la PK (surtout si la ligne disparait entre temps, c'est plus fiable)

Tu utilise bien Close et Open ? et non Refresh ?

[VFabritius]

Pour les Sql, je suis d'accord qu'il est préférable de tout préparer et de l'affecter à la fin mais je n'ai pas choisi de récupérer ce code.

Pour les bookmark, c'est la grosse question car ils ne sont absolument pas positionnés dans l'aplication. En ébug, c'est ADO qui soulève le problème lors du test

Code :

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

if (BookmarkSize = 0) and (BufferCount > 1) then

Tant que je ne modifie pas pusieurs fois le SQL, BookmarkSize faut 16. Dès que je modifie plusieurs fois, BookmarkSize pase à 0.
Et c'est bien là mon problème, je ne comprend pas pourquoi.

Pour le fonctionnement, c'est bien Close, modification du SQL puis Open