Discussion :

[BuggyWoogie]

Je voudrais afficher un champ de base de donnée dans une application VB Express (VB6 convertie par VB2005.)
Une table ACCESS est lue et les données sont écrites correctement dans un fichier Texte.
Le code converti est le suivant pour l'écriture dans le fichier :

Code :

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

Print(1, .Fields("Désignation").Value

Lorsque je veux afficher le champ dans un label.text rien ne se passe
Si je veux voir la valeur en mode debug j’ai le message suivant

Item = Pour évaluer une propriété indexée, cette dernière doit être qualifiée et l'utilisateur doit fournir les arguments de manière explicite.

Qui peut m’éclairer ?

[neguib]

Il nous faudrait voir ton code pour lecture et affichage dans un Label, car jusqu'ici rien ne me dit que tu utilises les fonctionnalités d'ADO.Net et comment, fais-tu du DataBinding sur le Label ???

[BuggyWoogie]

Il s’agit d’une application simple qui extrait des données dans Acces et qui les convertit dans un fichier texte. C’est une feuille toute simple avec un bouton qui lance le traitement. Pour faire voir à l’utilisateur que le traitement s’exécute, on affiche sur le bouton le libellé du champ en cours de lecture-écriture par l’instruction suivante dans la boucle de traitement :

Code :

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

StartBouton.Caption = ![LibLong]

L’application vient d’être convertie par VB2005 et elle fonctionne parfaitement sauf ce « gadget » rassurant pour l’utilisateur !

Voici le code reconverti :

Code :

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

1
2
3
4
5
6
7
With RsClients
While Not .EOF
		StartBouton.Text = .Fields("LibLong").Value
		Print(1, VB6.Format(.Fields("numero").Value, "000000") & ";")
		Print(1, .Fields("Désignation").Value & ";")
		……		
Ecriture des données dans un fichier Texte jusqu’EOF

N’ayant pas d’affichage, j’ai essayé sans plus de succès l’écriture dans un label…

[BuggyWoogie]

Compte tenu du message de debogage suivant :
Les contextes et instructions 'With' ne sont pas valides dans les fenêtres de débogage.
peut-être qu'il ya un un problème d'accessibilité à l'intérieur d'un WITH ?

Par contre si je code Me.text = (mon libellé) au même emplacement le libellé s'affiche dans le cadre supérieur gauche de la feuille.
Je trouve le comportement de VB2005 assez bizarre....

[neguib]

Ouais en gros cette question n'a rien à voir avec ADO.Net donc c'est une particularité de l'EDI en mode debug c'est çà ? donc evite l'instruction with qui est propre à VB, finalement, ce n'est pas très génant au vue du code que tu présentes c'est peut être interresant de renvoyer la question au support de MS

[BuggyWoogie]

Effectivement il y erreur de Forum mais tout portait a croire que le problème était dû à la conversion des données !

En réalité à l'intérieur d'un WITH......END WITH les données ne sont pas accessibles pour certains objets, (en l'occurence un Bouton)
Vaut mieux le savoir afin d'avoir à réécrire ce que cette instruction est censée nous éviter d'écrire

PS merci à un gentil modérateur de me mettre dans le bon Forum en modifiant éventuellement le titre (Problème WITH...END WITH) Cette particularité mérite à être connue pour les utilisateurs de VB2005 en attendant d'être corrigée par Microsoft