Discussion :

[nguhv]

Bonjour à toutes et à tous

Voila je travaille depuis quelques temps sur une application avec gestion de base de données avec le modèle ADO, et je rencontre un problème que je n'arrive pas à comprendre. Je m'explique, mon application se connecte a une base de données, grace à un datagrid j'affiche les logiciels qui son installé sur un ordinateur ( un groupe de textbox affichent les informations du Pc et le datagrid affiche les logiciels installés, Les ordinateurs correspondent a une table et les logiciel a une autre table dans la base de données, les deux étant liées). Lorsque je souhaite vider le datagrid (donc effacer les différentes logiciels par le biais d'un recordset appeler ainsi rsLogi) j'utilise la méthode ".delete": et Voici le probleme:

Code :

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

1
2
3
4
5
6
Select Case Button.Key
    Case "btnVider"
        While rsLogi.RecordCount > 0
        rsLogi.Delete
        Wend    
End Select

Ici j'ai crée une boucle pour la vider, mais en mode éxécution cela ne fonctionne pas( je n'efface qu'un seul logiciel, donc je me suis dis qu'il y avait surement une erreur alors je suis passer par le debugger en mode pas a pas et la miracle cela fonctionne: il efface tout...
Ce que je ne comprends donc pas c'est pourquoi en mode pas a pas cela fonctionne, mais pas en mode éxécution...
J'atends vos réponses et je vous en remercie d'avance

[Delbeke]

probablement parce qu'il faut laisser un peu de temps au moteur de base de données pour qu'il execute le detelete, et qu'il se repositionne.
essaye plutot

Code :

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

1
2
3
4
5
6
if  rsLogi.RecordCount > 0 then
 do while not rsLogi.eof
    rsLogi.Delete
    rsLogi.MoveNext
  Loop
End If

[nguhv]

Non cela ne fonctionne malheureusement pas( toujours le meme probleme, une seule suppresion), par contre je travail sous windows 2000 Server, est ce que cela peut provenir de l'OS?

[nguhv]

Hum en fait j'ai ressayé ta méthode sur un autre ordi en Windows XP, et cela fonctionne, je te remercie beaucoup ( cela faisait une semaine que je bloquais dessus ). Ah je vais pouvoir maintenant avancer (si je n'avais pas penser a change d'OS, je crois que j'en aurai eu pour un moment encore) MERCI!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[La Praline]

Bonjour,

Pense au tag "RESOLU"... ca fignole le post comme ça...
D'avance merci...


~~ La Praline ~~
... un choco définitivement résolu !!