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

ADO.NET Discussion :

corrigé les erreurs du oledbexeption


Sujet :

ADO.NET

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Etudient
    Inscrit en
    Août 2012
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Etudient

    Informations forums :
    Inscription : Août 2012
    Messages : 3
    Points : 0
    Points
    0
    Par défaut corrigé les erreurs du oledbexeption
    saluut tout le monde j'essaye de devlloper une application qui gère une base de données en utulisant le vb.net et j'ai un probleme avec l'execution des requete avec le datareader aider moi SVP je suis coincéé là dedans. voici le code que j'ai ecrit
    et merci avous tous

    Code vb.net : 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
    100
    Imports System.Data.OleDb
    Public Class application
        Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\kacimi\Documents\basededepanage.accdb")
        Dim commande1 As New OleDbCommand
        Dim Rd As OleDbDataReader
     
     
     
        Private Sub NouveauToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouveauToolStripMenuItem1.Click
            Me.GroupBox2.Visible = True
            Me.Labelnumserie.Visible = True
            Me.Textnumserie.Visible = True
            Me.GroupBox1.Visible = True
        End Sub
     
     
        Private Sub Textnumserie_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Textnumserie.TextChanged
            If Me.Textnumserie.Text <> "" Then
                Me.Button1.Visible = True
            End If
        End Sub
     
        Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rep_nouveau.Click
            'evenement declenché lors du click sur nouveau reparation
            If GroupBox1.Visible = True And GroupBox2.Visible = True Then
                GroupBox1.Visible = GroupBox2.Visible = False
            End If
            Me.GroupBox2.Visible = True
            Me.Labelnumserie.Visible = True
            Me.Textnumserie.Visible = True
        End Sub
     
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            'evenement declenché lors du click sur le button quitter
            If MsgBox("vous voulez vraiment Quitter l'application", 36, "Quitter") = 6 Then
                Close()
            End If
        End Sub
     
        Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
            Dim x As String
     
            con.Open()
            If con.State = ConnectionState.Open Then
     
                commande1.CommandText = "select  service from mat where (numdeserie=textnumserie.text )"
                commande1.Connection = con
     
                Rd = commande1.ExecuteReader
                Rd.Read()
                If Rd.HasRows Then
                    Rd.Read()
                    GroupBox1.Visible = True
                    utulisateur.Text = Rd(0)
                    libelle.Text = Rd(1)
                    service.Text = Rd(2)
                    num_appelle.Text = Rd(3)
                    utulisateur.Enabled = False
                    libelle.Enabled = False
                    service.Enabled = False
                    num_appelle.Enabled = False
                    GroupBox3.Visible = True
     
                Else
                    MsgBox("table vide")
     
                End If
     
                commande1.Dispose()
                con.Close()
     
            Else
                MsgBox("la connexion a echoué")
            End If
     
        End Sub
     
     
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            If utulisateur.Text <> "" Or Textnumserie.Text <> "" Or service.Text <> "" Or num_appelle.Text <> "" Then
                utulisateur.Text = Nothing
                Textnumserie.Text = Nothing
                service.Text = Nothing
                num_appelle.Text = Nothing
            End If
     
        End Sub
     
        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
     
        End Sub
     
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
            GroupBox1.Visible = True
     
            TextBox1.Text = "kacimi"
     
        End Sub
    End Class

  2. #2
    Membre expert


    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : Belgique

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

    Informations forums :
    Inscription : Avril 2006
    Messages : 970
    Points : 3 304
    Points
    3 304
    Par défaut
    Bonjour,

    j'ai l'impression que votre erreur se situe à cette ligne:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    commande1.CommandText = "select  service from mat where (numdeserie=textnumserie.text )"
    En effet à la lecture de votre code j'ai l'impression que textnumserie doit être un control style un textbox. Si vous écrivez votre requête de cette façon, la requête envoyée à la db sera donc :

    select service from mat where (numdeserie=textnumserie.text)

    Donc si NumDeSerie à comme type de champ dans votre DB un numérique, je verrais plutot :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    commande1.CommandText = "select  service from mat where  numdeserie= " + textnumserie.text.ToString()
    S'il s'agit d'un type de champ text :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    commande1.CommandText = "select  service from mat where  numdeserie= '" + textnumserie.text.ToString() + "'"
    Articles sur les technologies .NET

    Une réponse vous a aidé ? utilisez le bouton

    Votre problème est résolu ? utilisez le bouton

Discussions similaires

  1. Réponses: 12
    Dernier message: 02/07/2009, 08h46
  2. Corriger les erreurs d'orthographe dans Texniccenter
    Par open_source dans le forum Débuter
    Réponses: 1
    Dernier message: 19/05/2009, 11h35
  3. corriger les erreurs d'espace commises dans une phrase
    Par johnny3 dans le forum Débuter avec Java
    Réponses: 22
    Dernier message: 07/05/2008, 00h58
  4. utilitaire pour corriger les erreurs disk
    Par mouna201 dans le forum Composants
    Réponses: 2
    Dernier message: 17/11/2006, 13h07
  5. [Configuration] besoin d'aides impossible de corriger les erreurs :(:((:
    Par moonia dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 11
    Dernier message: 27/03/2006, 11h36

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