Adaptation de code

Bonjour,

je doit adapter un programme vb en .net seulement je ne comprend pas cette ligne

Code:

---

1 2 3 4 5 6 7 8

Public Function Deduire_bic(i_compte_deb3 As String) As String With BICrs ... If Not .EOF Then Deduire_bic = ![libelle_Bic] End If End With

---

On fait un appel récursif à la fonction, cela j'ai bien comprit mais ce que je ne comprend pas c'est la partie

Code:

---

![libelle_Bic]

---

en vb il accepte mais pas en .NET. Pourquoi ? Et si vous pouviez m'expliquer ce que cela signifie ?

Je vous remercie ! :)

![libelle_Bic] veut dire "l'inverse" de [libelle_Bic].
Ça na pas de sens car il s'agit d'une chaîne de caractère. Quel est l'inverse d'une chaîne de caractères ?

Dans le cas d'un booléen, c'est possible.
Il faut peut-être transformer [libelle_Bic] en booléen.

erf... en c#, pas en VB.net

et les [] ne servent a rien de spécial ?
C'est surtout cela qui me chifonne un peu beaucoup ?

Et maintenant que tu le soulignes, c'est vrai que l'inverse d'une chaîne de caractère c'est un peu ambigu.

Salut

Ce serait pas un code prit sur Access et non en VB6 ?

Philippe

Bonjour
Bizarre
c'est du vb6 ou vb.net ?
Si tu dois fournir un parametre à la fonction Deduire_bic non ?

Deduire_bic = ![libelle_Bic] ?

[] permet d'utiliser un mot clé en tant que nom d'une classe, d'une variable ou autre : http://msdn.microsoft.com/en-us/library/hwx24eb6.aspx

Code:

---

Dim colors = [Enum].GetValues(GetType(Colors))

---

Sans les [] Enum designe le mot clé, avec [] il designe la classe Enum

Dans ton cas ça ne semble pas vraiment utile.

Oui le code vient bel et bien de VB6.
Après la fonction complète est comme ceci :

Code:

---

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

Public Function Deduire_bic(ByVal i_compte_deb3 As String) As String With BICrs 'If .State = adStateOpen Then .Close() If .State = ConnectionState.Open Then .Close()   .CursorLocation = CursorLocationEnum.adUseServer 'adUseServer .Open("BIC", cnn, CursorTypeEnum.adOpenKeyset, LockTypeEnum.adLockOptimistic, CommandTypeEnum.adCmdTableDirect) .Index = "Code_Bic" 'TODO : modif array .Seek(Array(i_compte_deb3), SeekEnum.adSeekFirstEQ) If Not .EOF Then Deduire_bic = ![libelle_Bic] End If End With   End Function

---

Me reste cette histoire dans le if à réglé. Le pire c'est que "libelle_Bic" n’apparaît qu'a cet endroit dans le programme (je veux dire aucune déclaration, rien, et cela me pertube :) car je n'ai pas de classe libelle_Bic. En fait le seul endroit ou cela apparait est à cet endroit [et aussi libelle_Bic n'est pas un mot clef ])

:aie::aie::aie:

EDIT : ce champ libelle_Bic est dans une table de Access. Donc il faut que je regarde en .net comment faire au lieu de ![libelle_Bic] ?

Ok pour moi pouvoir accéder au champs concerner je doit faire de cette manière en vb.net :

Code:

---

1 2	Deduire_bic = .Fields.Item("libelle_Bic").Value

---

Remettons un peu d'ordre dans tout ça :)

Non, il n'y a pas d'appel récursif à la fonction ; on peut renvoyer le résultat de la fonction en l'assignant à la "variable implicite portant le même nom que la fonction" c'est équivalent au VB.Net Return ![libelle_Bic] (même si les 2 sont possibles en VB.Net de toute façon)

Non ! ne sert pas à inverser un booléen en VB(.Net ou pas) pour cela on utilise Not ;) ; ce ! correspond à l'opérateur d'accès aux éléments d'une collection en version raccourcie et existe aussi (par forcément de manière identiquement similaire) en VB.Net voir ici

pour l'usage des [] meziantou a tout résumé et elles sont a priori inutiles dans le cas qui nous concerne

Je ne suis pas certain de savoir pourquoi !libelle_Bic ne fonctionne pas directement et me balance "Overload resolution failed because no accessible 'Fields' accepts this number of arguments." alors que .Fields!libelle_Bic ne pose aucun problème ; ma supposition c'est que Fields est défini comme propriété en lecture seule renvoyant une collection alors que Fields.Item représente un indexeur en lecture seule ;probablement que ça pose pas de souci l'un ou l'autre en VB mais pour VB.Net ça semble être un problème ou quelque chose dans ce goût là.

Après, (comme tu l'as posté durant ma rédaction de ce post :aie:) je pense qu'il faut mieux rester sur une syntaxe classique (il n'y a qu'à voir le nombre de personnes qui connaissent l'existence de ! ;)) mais tu peux tout de même la raccourcir un peu en utilisant la notation indexeur VB.Net (qui doit probablement aussi exister en VB au passage) mais pas utiliser avec un With vu qu'on a besoin de l'objet pour démarrer) Return BICrs("libelle_Bic")

Salut,

Oups pas vu le lien donné par Sehnsucht.
Message supprimé en conséquence.

Merci Sehnsucht pour les petites précisions ;)