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

VB.NET Discussion :

Erreur : le chemin n'est pas conforme


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Mai 2011
    Messages : 94
    Par défaut Erreur : le chemin n'est pas conforme
    Bonjour,

    J'ai beau chercher sur Internet ou bien dans les cours que je trouve mais là je bug complétement. Mon problème est comme l'indique le titre de mon post. Je vous met mon code si quelqu'un peut me dire pourquoi ça bug ça serait vraiment cool de votre part.

    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
    97
    98
    99
    Sub Lancement()
            Dim Processus As New ProcessStartInfo("C:\..\cmd.exe")
            Process.Start(Processus)
            'Création de la base de données et remplissage de celle-ci à partir du résultat de la commande
            'en utilisant le stream StreamReader après formatage
            Dim StreamRead As StreamReader = File.OpenText("C:\..\configuraton.txt")
            Dim Contenu1, Contenu2, Contenu3 As String
            'On parcourt chaque ligne et on en fait ce qu'on veut. Dans notre cas, on l'ajoute dans notre base de
            'données qu'il faudra vider une fois l'opération de traitement terminées.
            Do Until StreamRead.Peek = -1
                'Lecture de la ligne dans le fichier configuration et découpage des lignes pour l'affectation dans 
                'la base de données. Pour cela une première boucle for qui va tout d'abord récupérer le nom de la
                'machine et ensuite en fonction une nouvelle boucle va se faire pour pouvoir récupérer l'adresse
                'ip et l'adresse mac. Enfin la dernière boucle sera pour le type de boot
                Contenu1 = StreamRead.ReadLine
                Contenu2 = StreamRead.ReadLine
                Contenu3 = StreamRead.ReadLine
                Dim nomP, nomA, nomR As String
                Dim ipP, ipA, ipR As String
                Dim macP, macA, macR As String
                Dim bootp, boota, bootr As String
                Dim tmpnom, tmpipmac, tmpboot As String()
                tmpnom = Contenu2.Split(" ")
                For i As Integer = 0 To tmpnom.Length - 1
                    Dim tempnom As String = tmpnom(i)
                    If (tempnom.StartsWith("PG")) Then
                        nomP = tempnom
                        tmpipmac = Contenu1.Split(" ")
                        For j As Integer = 0 To tmpipmac.Length - 1
                            Dim tampo As String = tmpipmac(i)
                            If (Not String.Equals(tampo, "193.50.231.0")) Then
                                ipP = tampo
                            End If
                            If (tampo.StartsWith("00") And tampo.Contains("00")) Then
                                macP = tampo
                            End If
                        Next
                        tmpboot = Contenu3.Split(" ")
                        For k As Integer = 0 To tmpboot.Length - 1
                            Dim tempboot = tmpboot(i)
                            If (tempboot.EndsWith("com") Or tempboot.EndsWith("com1")) Then
                                bootp = tempboot
                            End If
                        Next
                    ElseIf (tempnom.StartsWith("AG")) Then
                        nomA = tempnom
                        tmpipmac = Contenu1.Split(" ")
                        For j As Integer = 0 To tmpipmac.Length - 1
                            Dim tampo As String = tmpipmac(i)
                            If (Not String.Equals(tampo, "193.50.231.0")) Then
                                ipA = tampo
                            End If
                            If (tampo.StartsWith("00") And tampo.Contains("00")) Then
                                macA = tampo
                            End If
                        Next
                        tmpboot = Contenu3.Split(" ")
                        For k As Integer = 0 To tmpboot.Length - 1
                            Dim tempboot = tmpboot(i)
                            If (tempboot.EndsWith("com") Or tempboot.EndsWith("com1")) Then
                                boota = tempboot
                            End If
                        Next
                    ElseIf (tempnom.StartsWith("RG")) Then
                        nomR = tempnom
                        tmpipmac = Contenu1.Split(" ")
                        For j As Integer = 0 To tmpipmac.Length - 1
                            Dim tampo As String = tmpipmac(i)
                            If (Not String.Equals(tampo, "193.50.231.0")) Then
                                ipR = tampo
                            End If
                            If (tampo.StartsWith("00") And tampo.Contains("00")) Then
                                macR = tampo
                            End If
                        Next
                        tmpboot = Contenu3.Split(" ")
                        For k As Integer = 0 To tmpboot.Length - 1
                            Dim tempboot = tmpboot(i)
                            If (tempboot.EndsWith("com") Or tempboot.EndsWith("com1")) Then
                                bootr = tempboot
                            End If
                        Next
                    End If
                Next
                'Connexion à la base de données. On vérifie que la connexion est bien établi pour pouvoir 
                'insèrer les données obtenues dans le fichier configuration.txt
                connexion.ConnectionString = "Data Source=localhost;Initial Catalog=base;Integrated Security=True"
                connexion.Open()
                If connexion.State = ConnectionState.Open Then
                    Dim requeteP As SqlCommand = New SqlCommand("Insert into machineP [(nomp)(adresseipp)(macp)(bootp)] values (nomP,ipP,macP,bootP)", connexion)
                    Dim requeteA As SqlCommand = New SqlCommand("Insert into machineA [(noma)(adresseipa)(maca)(boota)] values (nomP,ipP,macP,bootP)", connexion)
                    Dim requeteR As SqlCommand = New SqlCommand("Insert into machineR [(nomr)(adresseipr)(macr)(bootr)] values (nomP,ipP,macP,bootP)", connexion)
                    requeteP.ExecuteNonQuery()
                    requeteA.ExecuteNonQuery()
                    requeteR.ExecuteNonQuery()
                End If
            Loop
            StreamRead.Close()
        End Sub

    D'avance merci à tous

  2. #2
    Membre confirmé Avatar de jlm22
    Homme Profil pro
    Etudiant
    Inscrit en
    Décembre 2010
    Messages
    203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France

    Informations professionnelles :
    Activité : Etudiant

    Informations forums :
    Inscription : Décembre 2010
    Messages : 203
    Par défaut
    Edite et met des balises CODE parce que c'est pas facil à lire

    bref c'est volontaire sa :

    Dim StreamRead As StreamReader = File.OpenText("C:\..\configuraton.txt")

    en particulier le C:\..\configuration.txt parce que sa en vb sa passera pas il va te chercher un dossier ".." a moins que tu es juste voulu nous cachez tes dossiers

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Mai 2011
    Messages : 94
    Par défaut
    Oui j'ai fait exprès pour cacher mes dossiers. Et je vais mettre de ce pas les balises.

  4. #4
    Membre émérite Avatar de bizet
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Juin 2005
    Messages
    717
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2005
    Messages : 717
    Par défaut
    Salut

    Edit : remarque deja remontée.

    Sur quelle ligne tu as ton exception?

  5. #5
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Mai 2011
    Messages : 94
    Par défaut
    Bah en fait l'erreur vient au niveau de la base de données. En effet, je veux voir les données que j'ai insérer mais impossible d'y accéder.

  6. #6
    Membre émérite Avatar de bizet
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Juin 2005
    Messages
    717
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2005
    Messages : 717
    Par défaut
    Explique plus, je ne sais pas ou chercher et j'ai pas le temps pour lire tout ton code.

    Est ce que tu as une Exception? Si oui à quelle ligne?

    Si tu n'as pas d'exception, quel est le resultat attendu et qu'est ce que tu obtiens?

  7. #7
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Mai 2011
    Messages : 94
    Par défaut
    En fait mon problème n'est pas une exception mais une erreur. Une fois que je lance mon programme il est censé remplir ma base de données avec différentes valeurs que je récupère dans un fichier texte. Mais lorsque je désire voir si les résultats sont bien dedans : VB 2010 me sort :

    le chemin d'accès n'a pas une forme conforme
    et je ne comprend pas pourquoi

  8. #8
    Membre émérite Avatar de bizet
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Juin 2005
    Messages
    717
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2005
    Messages : 717
    Par défaut
    Mets un breakpoint au debut de ton code, et fais du pas à pas, tu trouveras sur quelle ligne ça plante, ca t'aidera à trouver le problème.

  9. #9
    Membre Expert
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Novembre 2010
    Messages
    793
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Mayenne (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Novembre 2010
    Messages : 793
    Par défaut
    Si tu utilises Visual Studio, peux tu faire pause, puis F11 pour voir quelle est la ligne qui pose problème ?

  10. #10
    Membre confirmé Avatar de jlm22
    Homme Profil pro
    Etudiant
    Inscrit en
    Décembre 2010
    Messages
    203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France

    Informations professionnelles :
    Activité : Etudiant

    Informations forums :
    Inscription : Décembre 2010
    Messages : 203
    Par défaut
    Comment tu verifies tes résultat ? Ou tu les verifies ? (tu verifie a partir de la base?)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 11
    Dernier message: 08/05/2014, 18h10
  2. Réponses: 18
    Dernier message: 07/02/2007, 14h33
  3. [VB6] Erreur : la ligne n'est pas disponible
    Par Asdorve dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 13/03/2006, 14h53
  4. Erreur : ce code n'est pas connu
    Par ruman dans le forum VBA Access
    Réponses: 17
    Dernier message: 13/02/2006, 11h37
  5. Erreur : La classe n'est pas enregistrée
    Par Le Pharaon dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 11/08/2005, 12h04

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