Problème transaction et thread

Bonjour,

Delphi 2007
SQLServer 2005

Voilà mon problème :

Je démarre ma transaction lorsque l'utilisateur clic sur le bouton création

Code:

---

1 2 3 4 5 6 7

try Fiche_Principal.Database_Gsm.StartTransaction; except on E:Exception do begin AfficheSedIncident('CLO85 -> ', E.Message, 0, 0); etc.....

---

Dans ma transaction j'ai plusieurs phase :
dont dans ma 1ère phase je créer une table temporaraire :

Code:

---

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

try //************* Teste l'existance des différents comptes *************** with (Query_General) do begin close; sql.clear; sql.add('CREATE TABLE ##Temp_Compte'); sql.add(' (CtoNum char (9), '); sql.add(' CtoLbu char (1), '); sql.add(' CtoTyp char (7)) '); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin etc.

---

Jusqu'ici aucun problème.Mais dans mon traitement j'ouvre une deuxième form
qui affiche dans un TDBgrid le contenu de ma requête temporaire

Code:

---

1 2 3 4 5 6 7 8

.... Fiche_ListeCompte := TFiche_ListeCompte.Create(Fiche_Cloture); Fiche_ListeCompte.Left := Fiche_Cloture.Left + ((Fiche_Cloture.Width - Fiche_ListeCompte.Width) div 2); Fiche_ListeCompte.Top := Fiche_Cloture.Top + ((Fiche_Cloture.Height - Fiche_ListeCompte.Height) div 2); Fiche_ListeCompte.ShowModal; Fiche_ListeCompte.Free; ...

---

Au niveau de mon showmodal j'active ma query (Select * from @@temp_compte). Et là rien ne s'affiche, mon programme se bloque.

Donc mon souci c'est que lorsque j'ouvre ma 2ème form il créer un nouveau thread et j'ai l'impression que ma transaction ne suit plus (Lors de mes différents tests, lorsque je supprime le StartTransaction le problème est débloqué).

Pouvez vous m'éclairer car là je suis un peu perdu.

L'isolation de ma base est en READ_COMMITTED_SNAPSHOT ON.
A mon avis, je dois avoir un problème de verrou.

Merçi pour votre aide.
Vajilo

Dois-je comprendre qu'une table temporaire est créée et que dans la foulée une requête est faite dessus dans une même transaction.

Citation:

---

Envoyé par chaplin

Dois-je comprendre qu'une table temporaire est créée et que dans la foulée une requête est faite dessus dans une même transaction.

---

Bonjour,

Pour résumé j'ai 2 form :
Dans ma 1ère form :
- je lance ma transaction
- ensuite, création de matable temporaire
- Insertion des élèments dans matable temporaire
- ensuite je fais un select count(*) de ma table temporaire
- si le count(*) est > 0 alors

J'ouvre ma 2ème form (Utilisation d'un Tdatasource et d'un Tquery) :
- select de ma table temporaire pour l'afficher dans un dbgrid. Mais ne s'affiche pas. erreur de verrous

J'ai un problème de verrous , car dés que j'enlève le starttransaction ma table temporaire s'affiche bien.

Ce que je ne comprends pas dans ma 1ère form je peux faire autant de select sur ma table temporaire : il répond bien. mais dans ma 2ème form j'ai une erreur de verrous.

La seul chose qui différe ma 1ère form de ma 2ème c'est que je ne suis pas le même Thread. (Je ne sais pas comment faire pour rester dans le même Thread).

J'ai fais des ALLOW_SNAPSHOT_ISOLATION ON et READ_COMMITED_SNAPSHOT ON mais sans succés.

Je suis en pleine migration : on passe de Delphi7 à delphi 2007 et d'informix à SQLServer 2005.

Mon appli fonctionnait trés bien avant, mais là je ne trouve pas de solution

Merci pour votre aide.
Valoji.

Tu utilises quels composants pour accéder à la base ?

ADO en particulier a la facheuse tendance à ouvrir une deuxième connexion à la base si tu essaies d'exécuter une deuxième requête sans avoir fermé la première.

Autrement dit, si tu appels la deuxième form alors que la requête du select count(*) est toujours ouverte, tu as de grande chances pour qu'ADO ouvre une deuxième connexion pour la deuxième form. Et dans ce cas, la table est verrouillée par la transaction dans la première connexion.

Tu peux d'ailleurs avoir ce comportement avec toute API qui ne prend pas en charge le MARS (Multiple Active RecordSet) indroduit par SQL Server 2005.

Pour savoir si tu es dans ce cas de figure, tu peux lancer l'analyseur de performances de SQL Server (SQL Server Profiler). Il te permettra de voir les requêtes exécutées par ton application, ainsi que les ouvertures de connexion.

J'ai déjà rencontré des problèmes, où ADO m'ouvrait une deuxième connexion... pour effectuer le commit de la transaction...

J'utilise les connexions BDE. j'ai trouvé une solution intermediaire en envoyant directement un begin transaction via une requête SQL, sans passer par un Database.StartTransaction.

Vu tes remarques, le BDE doit réagir comme l'ADO.

Citation:

---

Pour savoir si tu es dans ce cas de figure, tu peux lancer l'analyseur de performances de SQL Server (SQL Server Profiler). Il te permettra de voir les requêtes exécutées par ton application, ainsi que les ouvertures de connexion.

---

Peut tu me dire si l'analyseur se trouve dans la version de SQL server 2005 Version gratuit, car je ne l'ai pas trouvé.

Merci pour votre aide
Valoji.

Pourquoi crées-tu une table temporaire de façon dynamique ?
Je le fairais en deux temps, d'abord la création de la table dans une
transaction, le reste dans une transaction.

Citation:

---

Envoyé par valoji

Peut tu me dire si l'analyseur se trouve dans la version de SQL server 2005 Version gratuit, car je ne l'ai pas trouvé.

---

Non, le profiler SQL n'est pas disponible sur les versions Express de SQL Server.

Et le BDE ouvre effectivement également plusieurs connexions sur la base de données. Mais ça dépend encore de quelle façon tu utilises le BDE ? Avec la DB-Lib (BDE + SQL Links) ou BDE + ODBC.
Du temps où j'utilisais la DB-Lib, le BDE ouvrait facilement une dixaine de connexions par utilisateur...

Par contre, même sans le profiler SQL, tu peux avoir une idée des connexions ouvertes sur le server à un instant t :
Lorsque ton application est bloquée (table temporaire créé et tentative d'ouverture de la deuxième form), tu peux lancer la commande suivante dans SQL Management Studio Express :

Code:

---

sp_who2

---

Tu verras alors toutes les connexions ouvertes, ainsi que les process qui bloquent les autres.

Bonjour,

Citation:

---

Envoyé par Franck SORIANO

Et le BDE ouvre effectivement également plusieurs connexions sur la base de données. Mais ça dépend encore de quelle façon tu utilises le BDE ? Avec la DB-Lib (BDE + SQL Links) ou BDE + ODBC.

---

J'utilise la connexion BDE+ODBC

Citation:

---

Envoyé par Franck SORIANO

Code:

---

sp_who2

---

Tu verras alors toutes les connexions ouvertes, ainsi que les process qui bloquent les autres.

---

En effet, il utilise plusieurs connexions. Ils bloque sur l'open (Select *) de ma query sur ma 2ème Form. Avez vous une solution pou contourner le problème ?

Merçi pour votre aide
Valoji

Tu peux essayer d'utiliser sp_bindsession qui permet de dire à SQL Server que deux connexion distinctes (éventuellement ouvertes par des applications différentes) sont en réalité la même connexion, et doivent partager la même transaction.

J'ai lu ça un jour dans la doc SQL Server, mais je n'ai jamais essayé de m'en servir :
http://msdn.microsoft.com/en-us/libr...5(SQL.80).aspx

Mais c'est vraiment de la solution de contournement. sp_bindsession est plutôt fait pour des cas où ton appli créerait une table temporaire pour faire du repporting par exemple, et que moteur de reporting que tu utilises impose sa propre connexion.


Une autre solution serait de passer la deuxième form en niveau d'isolation dirty read (READ UNCOMMITTED), qui pemettrait de lire la table temporaire malgré le fait que la transaction ne soit pas validée. Mais toi seule peut dire si c'est acceptable pour ton application.

Autre question, à quoi sert la transaction ? est-ce que tu en as réellement besoin ?

Bonjour,

J'ai regardé test solutions de contournement mais sans succés.
Oui, ma transaction est necessaire.
je n'ai toujours pas trouvé de solution.

Entre mon clique du bouton création et la validation j'ai 3 phases. Et si l'utilisateur clique sur le bouton annuler : je veux que toutes mes actions soit annulées entre le clic du bouton création et du bouton annulation.

Bouton création :

Code:

---

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

try Fiche_Principal.Database_Gsm.StartTransaction; except on E:Exception do begin AfficheSedIncident('CLO85 -> ', E.Message, 0, 0); Animation.Visible := False; Animation.Active := False; Panel_Info_Saisie.Color := ClInactiveCaption; Panel_Info_Saisie.Font.Color := ClInactiveCaptionText; Label_Liste_Titre.Color := ClActiveCaption; Label_Liste_Titre.Font.Color := ClCaptionText; Exit; end; end; phase0

---

Phase0, Il bloque sur le Query_Temp_Compte.open :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594

procedure TFiche_Cloture.Phase0; var TemoinVente : Boolean; // Témoin de vente d'un bien begin //************** Test le remplissage de certains champs **************** if ((DBLookupComboBox_Fouabr.Text = '') or (DBLookupComboBox_Drdnom.Text = '') or (DBEdit_ExeExe.Text = '')) then begin P_MsgAffich('CLO13 -> ',193); exit; end; Animation.Visible := True; Animation.Active := True; Panel_Info_Saisie.Caption := 'Phase1 : Sélection'; Btn_Val.Enabled := False; Btn_Imp.Enabled := False; Fiche_Cloture.Refresh; //************* Teste l'existance des différents comptes *************** try with (Query_General) do begin close; sql.clear; sql.add('CREATE TABLE ##Temp_Compte'); sql.add(' (CtoNum char (9), '); sql.add(' CtoLbu char (1), '); sql.add(' CtoTyp char (7)) '); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin AfficheSedIncident('CLO14 -> ', E.Message, 0, 0); end; end; try with (Query_General) do begin close; sql.clear; sql.add('SELECT DISTINCT BieCdo, BieLbd '); sql.add(' FROM imamo Amo, '); sql.add(' imbie Bie, '); sql.add(' imaff aff FULL OUTER JOIN noelm elm on Aff.DicMse = elm.elmnumser '); sql.add(' WHERE Amo.AmoExe = ''' + DBEdit_ExeExe.Text + ''''); sql.add(' AND Amo.AffSer = Aff.AffSer '); sql.add(' AND Aff.BieSer = Bie.BieSer '); if not (prepared) then begin prepare; end; open; first; end; except on E:Exception do begin AfficheSedIncident('CLO15 -> ', E.Message, 0, 0); end; end; while not (Query_General.EOF) do begin try with (Query_General2) do begin close; sql.clear; sql.add('SELECT CtoNum, lbuLbu '); sql.add(' FROM nocto '); sql.add(' WHERE CtoNum = ''' + Query_General.FieldByName('biecdo').Text + ''''); sql.add(' AND exeexe = ''' + DBEdit_ExeExe.Text + ''''); sql.add(' AND lbulbu = ''' + Query_General.FieldByName('bielbd').Text + ''''); sql.add(' AND CtoTyp IN (''DEPENSE'') '); if not (prepared) then begin prepare; end; open; end; except on E:Exception do begin AfficheSedIncident('CLO16 -> ', E.Message, 0, 0); end; end; if (Query_General2.RecordCount = 0) then begin try with (Query_General3) do begin close; sql.clear; sql.add('INSERT INTO ##Temp_Compte(CtoNum, CtoLbu, CtoTyp)'); sql.add('VALUES (''' + Query_General.FieldByName('biecdo').Text + ''','); sql.add(' ''' + Query_General.FieldByName('bielbd').Text + ''','); sql.add(' ''DEPENSE'') '); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin AfficheSedIncident('CLO17 -> ', E.Message, 0, 0); end; end; end; Query_General.Next; end; try with (Query_General) do begin close; sql.clear; sql.add('SELECT DISTINCT BieCim, BieLbi '); sql.add(' FROM imamo Amo, '); sql.add(' imbie Bie, '); sql.add(' imaff aff FULL OUTER JOIN noelm elm on Aff.DicMse = elm.elmnumser '); sql.add(' WHERE Amo.AmoExe = ''' + DBEdit_ExeExe.Text + ''' '); sql.add(' AND Amo.AffSer = Aff.AffSer '); sql.add(' AND Aff.BieSer = Bie.BieSer '); if not (prepared) then begin prepare; end; open; first; end; except on E:Exception do begin AfficheSedIncident('CLO18 -> ', E.Message, 0, 0); end; end; while not (Query_General.EOF) do begin try with (Query_General2) do begin close; sql.clear; sql.add('SELECT CtoNum, lbulbu '); sql.add(' FROM nocto '); sql.add(' WHERE CtoNum = ''' + Query_General.FieldByName('biecim').Text + ''''); sql.add(' AND exeexe = ''' + DBEdit_ExeExe.Text + ''''); sql.add(' AND lbulbu = ''' + Query_General.FieldByName('bielbi').Text + ''''); sql.add(' AND CtoTyp IN (''DEPENSE'') '); if not (prepared) then begin prepare; end; Open; end; except on E:Exception do begin AfficheSedIncident('CLO19 -> ', E.Message, 0, 0); end; end; if (Query_General2.RecordCount = 0) then begin try with (Query_General3) do begin close; sql.clear; sql.add('INSERT INTO ##Temp_Compte(CtoNum, CtoLbu, CtoTyp)'); sql.add('VALUES (''' + Query_General.FieldByName('biecim').Text + ''','); sql.add(' ''' + Query_General.FieldByName('bielbi').Text + ''','); sql.add(' ''DEPENSE'') '); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin AfficheSedIncident('CLO20 -> ', E.Message, 0, 0); end; end; end; Query_General.Next; end; try with (Query_General) do begin close; sql.clear; sql.add('SELECT DISTINCT BieCam, BieLba '); sql.add(' FROM imamo Amo, '); sql.add(' imbie Bie, '); sql.add(' imaff aff FULL OUTER JOIN noelm elm on Aff.DicMse = elm.elmnumser '); sql.add(' WHERE Amo.AmoExe = ''' + DBEdit_ExeExe.Text + ''' '); sql.add(' AND Amo.AffSer = Aff.AffSer '); sql.add(' AND Aff.BieSer = Bie.BieSer '); if not (prepared) then begin prepare; end; open; first; end; except on E:Exception do begin AfficheSedIncident('CLO21 -> ', E.Message, 0, 0); end; end; while not (Query_General.EOF) do begin try with (Query_General2) do begin close; sql.clear; sql.add('SELECT CtoNum, lbulbu '); sql.add(' FROM nocto '); sql.add(' WHERE CtoNum = ''' + Query_General.FieldByName('biecam').Text + ''''); sql.add(' AND exeexe = ''' + DBEdit_ExeExe.Text + ''''); sql.add(' AND lbulbu = ''' + Query_General.FieldByName('bielba').Text + ''''); sql.add(' AND CtoTyp IN (''RECETTE'') '); if not (prepared) then begin prepare; end; open; end; except on E:Exception do begin AfficheSedIncident('CLO22 -> ', E.Message, 0, 0); end; end; if (Query_General2.RecordCount = 0) then begin try with (Query_General3) do begin close; sql.clear; sql.add('INSERT INTO ##Temp_Compte(CtoNum, CtoLbu, CtoTyp)'); sql.add('VALUES (''' + Query_General.FieldByName('biecam').Text + ''','); sql.add(' ''' + Query_General.FieldByName('bielba').Text + ''','); sql.add(' ''RECETTE'') '); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin AfficheSedIncident('CLO23 -> ', E.Message, 0, 0); end; end; end; Query_General.Next; end; try with (Query_Bien_Ces) do begin close; params[0].AsString := DBEdit_Exeexe.Text; params[1].AsString := DBEdit_Exeexe.Text; if not (prepared) then begin prepare; end; open; end; except on E:Exception do begin AfficheSedIncident('CLO24 -> ', E.Message, 0, 0); end; end; if not(Query_Bien_Ces.EOF and Query_Bien_Ces.BOF) then begin try with (Query_General) do begin close; sql.clear; sql.add('SELECT CtoNum, lbulbu '); sql.add(' FROM nocto '); sql.add(' WHERE CtoNum = ''462'' '); sql.add(' AND exeexe = ''' + DBEdit_ExeExe.Text + ''''); sql.add(' AND lbulbu = ''H'' '); sql.add(' AND CtoTyp = ''TIERS'' '); if not (prepared) then begin prepare; end; open; end; except on E:Exception do begin AfficheSedIncident('CLO25 -> ', E.Message, 0, 0); end; end; if (Query_General.RecordCount = 0) then begin try with (Query_General3) do begin close; sql.clear; sql.add('INSERT INTO ##Temp_Compte(CtoNum, CtoLbu, CtoTyp)'); sql.add('VALUES (''462'', ''H'', ''TIERS'') '); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin AfficheSedIncident('CLO26 -> ', E.Message, 0, 0); end; end; end; TemoinVente := False; Query_Bien_Ces.First; while not (Query_Bien_Ces.EOF) do begin if (Query_Bien_CesAffmon.AsFloat > 0) then begin TemoinVente := True; end; Query_Bien_Ces.Next; end; if (TemoinVente = True) then begin try with (Query_General) do begin close; sql.clear; sql.add('SELECT CtoNum, lbulbu '); sql.add(' FROM nocto '); sql.add(' WHERE CtoNum = ''675'' '); sql.add(' AND exeexe = ''' + DBEdit_ExeExe.Text + ''''); sql.add(' AND lbulbu = ''H'' '); sql.add(' AND CtoTyp in(''DEPENSE'') '); if not (prepared) then begin prepare; end; open; end; except on E:Exception do begin AfficheSedIncident('CLO27 -> ', E.Message, 0, 0); end; end; if (Query_General.RecordCount = 0) then begin try with (Query_General3) do begin close; sql.clear; sql.add('INSERT INTO ##Temp_Compte(CtoNum, CtoLbu, CtoTyp)'); sql.add('VALUES (''675'', ''H'', ''DEPENSE'') '); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin AfficheSedIncident('CLO28 -> ', E.Message, 0, 0); end; end; end; end; try with (Query_General) do begin close; sql.clear; sql.add('SELECT CtoNum, lbulbu '); sql.add(' FROM nocto '); sql.add(' WHERE CtoNum = ''775'' '); sql.add(' AND exeexe = ''' + DBEdit_ExeExe.Text + ''''); sql.add(' AND lbulbu = ''H'' '); sql.add(' AND CtoTyp IN (''RECETTE'') '); if not (prepared) then begin prepare; end; open; end; except on E:Exception do begin AfficheSedIncident('CLO29 -> ', E.Message, 0, 0); end; end; if (Query_General.RecordCount = 0) then begin try with (Query_General3) do begin close; sql.clear; sql.add('INSERT INTO ##Temp_Compte(CtoNum, CtoLbu, CtoTyp)'); sql.add('VALUES (''775'', ''H'', ''RECETTE'') '); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin AfficheSedIncident('CLO30 -> ', E.Message, 0, 0); end; end; end; end; try with (Query_General) do begin close; sql.clear; sql.add('SELECT CtoNum, lbulbu '); sql.add(' FROM nocto '); sql.add(' WHERE CtoNum = ''580'' '); sql.add(' AND exeexe = ''' + DBEdit_ExeExe.Text + ''''); sql.add(' AND lbulbu = ''H'' '); sql.add(' AND CtoTyp = ''TIERS'' '); if not (prepared) then begin prepare; end; open; end; except on E:Exception do begin AfficheSedIncident('CLO31 -> ', E.Message, 0, 0); end; end; if (Query_General.RecordCount = 0) then begin try with (Query_General3) do begin close; sql.clear; sql.add('INSERT INTO ##Temp_Compte(CtoNum, CtoLbu, CtoTyp)'); sql.add('VALUES (''580'', ''H'', ''TIERS'') '); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin AfficheSedIncident('CLO32 -> ', E.Message, 0, 0); end; end; end; try with (Query_General) do begin close; sql.clear; sql.add('SELECT DISTINCT Cre.lbuLbu, Bie.BieCdo '); sql.add(' FROM imbie Bie, imaff Aff, imamo Amo,'); sql.add(' stufo Ufo, stcre Cre, stser ser '); sql.add(' WHERE Amo.AmoExe = ''' + DBEdit_ExeExe.Text + '''' ); sql.add(' AND Amo.AffSer = Aff.AffSer '); sql.add(' AND Aff.BieSer = Bie.BieSer '); sql.add(' AND Aff.UfoCod = Ufo.UfoCod '); sql.add(' AND ser.CreNumser = Cre.CreNumser '); sql.add(' AND ser.sernumser = ufo.sernumser '); if not (prepared) then begin prepare; end; open; first; end; except on E:Exception do begin AfficheSedIncident('CLO33 -> ', E.Message, 0, 0); end; end; while not (Query_General.EOF) do begin try with (Query_General2) do begin close; sql.clear; sql.add('SELECT DISTINCT CtoNum, lbulbu '); sql.add(' FROM nocto '); sql.add(' WHERE CtoNum = ''' + Query_General.FieldByName('biecdo').AsString + ''''); sql.add(' AND exeexe = ''' + DBEdit_ExeExe.Text + '''' ); sql.add(' AND lbulbu = ''' + Query_General.FieldByName('lbulbu').AsString + ''''); sql.add(' AND CtoTyp IN (''DEPENSE'') '); if not (prepared) then begin prepare; end; open; end; if (Query_General2.RecordCount = 0) then begin try with (Query_General3) do begin close; sql.clear; sql.add('INSERT INTO ##Temp_Compte(CtoNum, CtoLbu, CtoTyp) '); sql.add('VALUES (''' + Query_General.FieldByName('biecdo').AsString + ''', '); sql.add(' ''' + Query_General.FieldByName('lbulbu').AsString + ''', ''DEPENSE'')'); if not (prepared) then begin prepare; end; execsql; end; except on E:Exception do begin AfficheSedIncident('CLO34 -> ', E.Message, 0, 0); end; end; end; Query_General.Next; except on E:Exception do begin AfficheSedIncident('CLO35 -> ', E.Message, 0, 0); end; end; end; try with (Query_General) do begin close; sql.clear; sql.add('SELECT COUNT(*) Total '); sql.add(' FROM ##Temp_Compte '); if not (prepared) then begin prepare; end; open; end; except on E:Exception do begin AfficheSedIncident('CLO36 -> ', E.Message, 0, 0); end; end; if (Query_General.FieldByName('Total').AsInteger > 0) then begin Animation.Visible := False; Animation.Active := False; Btn_Val.Enabled := True; Query_Temp_Compte.Open; Fiche_ListeCompte := TFiche_ListeCompte.Create(Fiche_Cloture); Fiche_ListeCompte.Left := Fiche_Cloture.Left + ((Fiche_Cloture.Width - Fiche_ListeCompte.Width) div 2); Fiche_ListeCompte.Top := Fiche_Cloture.Top + ((Fiche_Cloture.Height - Fiche_ListeCompte.Height) div 2); Fiche_ListeCompte.ShowModal; Fiche_ListeCompte.Free; ... Etc

---

Merci pour votre aide,
Valoji :cry: