IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Services Web Discussion :

Conversion code vb en c#


Sujet :

Services Web

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Inscrit en
    Septembre 2010
    Messages
    36
    Détails du profil
    Informations forums :
    Inscription : Septembre 2010
    Messages : 36
    Par défaut Conversion code vb en c#
    Bonjour chers amis developpeurs,je souhaite convertir mon code vb en c#.
    j'ai utilisé des liens de conversion,mais je n'obtiens pas le resultat escompté.O
    Prière de me donner un coup de main s'il vous plaît!!

    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    Dim X1, X2, B20 As String
                Dim Mavariable As String=""
                'Connexion à la base de données
     
     
                Dim Mochamp As XPathNavigator = Me.MainDataSource.CreateNavigator()
                Dim Pem24 As XPathNavigator = Mochamp.SelectSingleNode("/my:mesChamps/my:Zone", Me.NamespaceManager)
                'Dim Pem25 As XPathNavigator = Mochamp.SelectSingleNode("/my:mesChamps/my:groupe1", Me.NamespaceManager)
                'Dim pem26 As XPathNavigator = Mochamp.SelectSingleNode("/my:mesChamps/my:groupe1/my:groupe2", Me.NamespaceManager)
                Dim pem27 As XPathNavigator = Mochamp.SelectSingleNode("/my:mesChamps/my:groupe1/my:groupe2/my:Unite", Me.NamespaceManager)
     
                'Dim pem27 As XPathNavigator = Mochamp.SelectSingleNode("/my:mesChamps/my:groupe1", Me.NamespaceManager)
                'Dim Pem102 As XPathNavigator = Mochamp.SetValue("/my:mesChamps/my:Num_demande")
                B20 = Pem24.Value
                Dim Tito As String
                Dim TConnection As New SqlConnection
                Dim TCommand As SqlCommand
                Dim TReader As SqlDataReader
                TConnection.ConnectionString = "Data Source=PEMCODEV\SQLEXPRESS;Initial Catalog=GESTETUDE;Integrated Security = true"
                'Ouverture de la connexion à la base de données
                Tito = "SELECT Code_compteur,Annee FROM COMPTEUR"
                TConnection.Open()
                TCommand = New SqlCommand(Tito, TConnection)
                TReader = TCommand.ExecuteReader()
                TReader.Read()
                X1 = TReader.GetValue(0)
                X2 = TReader.GetValue(1)
                'traitement des resultats
                TReader.Close()
                If X2 < Date.Now.Year Then
                    X1 = 01
                    X2 = Date.Now.Year
                Else
                    If X2 = Date.Now.Year Then
                        X1 = CDbl(X1) + 1
                        If Len(X1) = 1 Then X1 = "0" + X1
                    Else
                        'Affichage du message d'info à l'utilisateur
                        MessageBox.Show("Veuillez verifier  la date?")
                    End If
     
                End If
                'Modifier les valeurs dans la table
                Tito = "  UPDATE COMPTEUR SET Code_compteur = '" & X1 & "',Annee='" & X2 & "'"
                TCommand = New SqlCommand(Tito, TConnection)
                TReader = TCommand.ExecuteReader()
                If B20 = "LABORATOIRE" Then
                    'Affectation des données dans la variable
                    Mavariable = Right(X2, 2) & "-" & "LAB" & "-" & X1
                Else
     
                    'recuperation des champs
                    Dim B25, B26, B27 As String
                    'B25 = Pem25.Value
                    'B26 = pem26.Value
                    B27 = pem27.Value
                    ' Retrieve a reference to the Main DOM
                    Dim root As XPathNavigator = MainDataSource.CreateNavigator()
     
                    ' Count the amount of group2 nodes
                    Dim iter As XPathNodeIterator = root.Select( _
                    "/my:mesChamps/my:groupe1/my:groupe2/my:Structure1", _
                    NamespaceManager)
                    Dim group2NodesCount As Integer = iter.Count
                    Dim X3 As Integer=0
                    X3 = iter.Count
                    ' Retrieve the first group2 node
                    Dim firstGroup2NodeNav As XPathNavigator = _
                    root.SelectSingleNode("/my:mesChamps/my:groupe1/my:groupe2[1]", _
                    NamespaceManager)
     
                    ' Retrieve the last group2 node
                    Dim lastGroup2NodeNav As XPathNavigator = _
                    root.SelectSingleNode("/my:mesChamps/my:groupe1/my:groupe2[" & _
                    group2NodesCount.ToString() & "]", _
                    NamespaceManager)
                    If X3 = 2 Then
     
     
                        Mavariable = Right(X2, 2) & "-" & "RAF" & "-" & X1
                    Else
     
                        Mavariable = Right(X2, 2) & "-" & Right(B27, 2) & "-" & X1
     
                    End If
                End If
                MonNumero = Mavariable
                C7 = MonNumero
                Dim myNav As XPathNavigator = Me.MainDataSource.CreateNavigator()
                'affectation des champs du Numero de la demande....
                myNav.SelectSingleNode("/my:mesChamps/my:Num_demande", Me.NamespaceManager). _
                            SetValue(Mavariable)
                'Fermeture de la connection
                TConnection.Close()
     
            End Sub

  2. #2
    Membre éclairé Avatar de Nadinette
    Femme Profil pro
    Développeur Web
    Inscrit en
    Octobre 2012
    Messages
    264
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Octobre 2012
    Messages : 264
    Par défaut
    http://www.developerfusion.com/tools.../vb-to-csharp/

    Tu n'as pas beaucoup cherché quand même....

Discussions similaires

  1. Conversion Code 128
    Par runtal dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 1
    Dernier message: 26/02/2008, 17h25
  2. Conversion code VBA en VBScript
    Par suckthewindow dans le forum VBScript
    Réponses: 1
    Dernier message: 04/02/2008, 17h16
  3. conversion code source perl en php
    Par alexnet dans le forum Linux
    Réponses: 1
    Dernier message: 24/10/2007, 18h28
  4. conversion code java en equivalent reflexif.
    Par jamal dans le forum Langage
    Réponses: 3
    Dernier message: 13/07/2007, 12h27
  5. Conversion code HTML
    Par MagnetiK dans le forum Réseau/Web
    Réponses: 2
    Dernier message: 18/02/2007, 11h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo