+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1

    Homme Profil pro hamza kacimi
    Etudient
    Inscrit en
    août 2012
    Messages
    3
    Détails du profil
    Informations personnelles :
    Nom : Homme hamza kacimi
    Localisation : Maroc

    Informations professionnelles :
    Activité : Etudient

    Informations forums :
    Inscription : août 2012
    Messages : 3
    Points : -1
    Points
    -1

    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 :
    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
    Expert Confirmé


    Homme Profil pro Eric Metz
    Développeur informatique
    Inscrit en
    avril 2006
    Messages
    924
    Détails du profil
    Informations personnelles :
    Nom : Homme Eric Metz
    Âge : 38
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Santé

    Informations forums :
    Inscription : avril 2006
    Messages : 924
    Points : 3 246
    Points
    3 246

    Par défaut

    Bonjour,

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

    Code :
    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 :
    commande1.CommandText = "select  service from mat where  numdeserie= " + textnumserie.text.ToString()
    S'il s'agit d'un type de champ text :

    Code :
    commande1.CommandText = "select  service from mat where  numdeserie= '" + textnumserie.text.ToString() + "'"

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •