Message d'erreur sur curseur, option de requete ont changé

Bonjour,

Régulièrement je reçois le message " Impossible de terminer l'opération de curseur car les options de requêtes ont changé depuis la déclaration du curseur".

J'utilise des AdoQuery sur base MS SQL et Delphi 7
Cela arrive quand les données sont importantes avec un temps de traitements plus ou moins long.
J'utilise des DBGrid alimenté par ces adoquery qui sont mis à jour.
J'ai désactivé le Dbgrid lors des maj., fait un dbgrid.Refresh mais rien.

Quelqu'un connait t'il sa cause et donc un remède ?

Merci d'avance.

Max

Le problème peut venir du fait que 2 applications tentent de modifier le même enregistement au même moment.
Utilises tu les transactions ? (begintrans, committrans, rollbacktrans) ?

Sinon, en montrant ton code, nous pourrons surement plus t'aider.

Même avec une seule application active j'ai le problème.

Je n'utilises pas les fonctions begintrans et ses accolytes.

Il faudrait que je présente l'ensemble du prog, car la seule partie du code posant problème n'est qu'un while table.eof et des edit, post. Rien de compliqué. Mais j'ai un "parasite" qui traine par là.

Citation:

---

Envoyé par max057

parasite

---

une requete non fermée avec des paramètres liées à la datasource de la table
en modifications peut-etre , désactiver le DBgrid ne desactive pas la , les requetes :roll:

J'avais déjà vérifier ce point.

Comme le dit Malatar. Montre nous un petit bout de code et nous pourrons t'aider.

Ci-dessous un bout de mon code ou l'erreur se produit. L'erreur se produit lors du qtmp.post.



Creation d'une table temporaire

xzone:='create table '+xnomT;
qtmp.SQL.Clear;
qtmp.sql.add(xzone);
qtmp.sql.add('(cpt integer not null primary key,');
qtmp.sql.add('ind char(1) null,');
qtmp.sql.add('ind2 int null,');
qtmp.sql.add('cptprinc char(9) null,');
qtmp.sql.add('cptsix char(9) null,'); // compte classe 6
qtmp.sql.add('debit float null,');
qtmp.sql.add('credit float null,');
....
qtmp.sql.add('archive char(15) null)');
qtmp.ExecSQL;



Ecriture dans la tadoquery :

xzone:='select * from '+xnomT;
qtmp.SQL.Clear;
qtmp.sql.add(xzone);
qtmp.Active:=true;
.................



.................
qtmp.insert;
inc(ntmp);qtmp.fieldbyname('cpt').asinteger:=ntmp;
inc(xind2);qtmp.fieldbyname('ind').asstring:='E';
qtmp.fieldbyname('ind2').asinteger:=xind2;
qtmp.fieldbyname('cptprinc').asstring:=trim(dmvalba.qba2b.fieldbyname('cptprinc').asstring);
qtmp.fieldbyname('debit').asfloat:=0;
qtmp.fieldbyname('credit').asfloat:=0;
qtmp.post;