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

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

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