Discussion :

[dharkan]

Bonjour,

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

Code :

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

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 :

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

![libelle_Bic]

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

Je vous remercie !

[dkmix]

![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

[dharkan]

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.

[Invité]

Salut

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

Philippe

[shayw]

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

Deduire_bic = ![libelle_Bic] ?

[meziantou]

[] 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 :

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

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.

[dharkan]

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

Code :

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

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 ])



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] ?

[dharkan]

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

Code :

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

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

[Sehnsucht]

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 ) 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")

[Invité]

Salut,

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

[dharkan]

Merci Sehnsucht pour les petites précisions