Erreur sur ExecuteReader

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai fai une application Vb de la gestion du personnel sur Microsoft visuel basic 2010 avec Acess 2007, mon probbleme c'est dans la recherche avec ExecuteReader, voila le code dans la classe ou j'ai declaré la variable du ExecuteReader :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Imports System.Data.OleDb
Imports System.Windows.Forms
 
Public Class informatique_connection
    Public mycon As OleDbConnection
    Public strcon As String
    Public rdr As OleDbDataReader
    Public myreq As String
    Private cmd As OleDbCommand
 
    Public Sub connecting_in_informatique()
        strcon = "provider=Microsoft.ACE.OLEDB.12.0; Data source=C:\Users\user\Documents\bd.accdb"
        mycon = New OleDbConnection(strcon)
        mycon.Open()
        cmd = New OleDbCommand(myreq, mycon)
        rdr = cmd.ExecuteReader
    End Sub
    Public Sub disconnecting_in_informatique()
        rdr.Close()
        mycon.Close()
    End Sub
End Class

et voila la fonction de la recherche :

Code:

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
Dim rech As String
        Dim i As Integer
        i = 1
        rech = InputBox("Entrer le matricule", "Recherche")
        TextBox1.Text = rech
            db_informatique.myreq = "SELECT * FROM Perso WHere Matricule = '" & TextBox1.Text & "'"
            db_informatique.connecting_in_informatique()
            Do While db_informatique.rdr.Read
                Me.a1.Text = db_informatique.rdr(0).ToString
                Me.a2.Text = db_informatique.rdr(1).ToString
                Me.a3.Text = db_informatique.rdr(2).ToString
                Me.a4.Text = db_informatique.rdr(3).ToString
                Me.a5.Text = db_informatique.rdr(4).ToString
                Me.a6.Text = db_informatique.rdr(5).ToString
                Me.a7.Text = db_informatique.rdr(6).ToString
                Me.a8.Text = db_informatique.rdr(7).ToString
                Me.a9.Text = db_informatique.rdr(8).ToString
                Me.a12.Text = db_informatique.rdr(9).ToString
                Me.a10.Text = db_informatique.rdr(10).ToString
                Me.a11.Text = db_informatique.rdr(11).ToString
                Me.a13.Text = db_informatique.rdr(12).ToString
                Me.a14.Text = db_informatique.rdr(13).ToString
                Me.a15.Text = db_informatique.rdr(14).ToString
                i = 2
            Loop
            db_informatique.disconnecting_in_informatique()
        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.Message.ToString)
        End Try
 
    End Sub

quelqu'un pourra m'aider?? :?

Merci d'avance...

03/10/2013, 21h44
wallace1
Bonsoir Asuna,

Regardes bien cette ligne :
Code:

1 2 cmd = New OleDbCommand(myreq, mycon)
----> ta requête sql ("myreq") est vide !!!!!

Il faut que tu déplaces ces 2 lignes dans ta sub rechercher :
Code:

1 2 3 cmd = New OleDbCommand(myreq, mycon) rdr = cmd.ExecuteReader
Ta méthode "SeConnecterA" ne doit pas contenir d'exécution de commande donc encore moins de requête SQL, sinon ça veut dire que tu fais en même tps d'autres traitements ...... pas logique pour une sub qui s'occupe uniquement de la connection à la base..!!

A+
03/10/2013, 21h51
Asuna

Pardonnez moi parceque je suis débutante.. d’âpres ce que j'ai compris myreq n'est pas vide car j'ai mis dans ma fonction la requette suivante

Code:

db_informatique.myreq = "SELECT * FROM Perso WHere Matricule = '" & TextBox1.Text & "'"

sinon qu'est ce que je dois faire ?
03/10/2013, 21h56
wallace1

Tu peux commencer par poster l'intégralité de ta classe et nous dire à quoi corresponds ceci exactement :

Code:

db_informatique.myreq

puisque le nom de ta classe est "informatique_connection" ???!!!

Merci.

j'ai declaré bd_informatique comme un type de informatique_connection, voila tt le code de la recherche :

Code:

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
Imports System
Imports System.Data
 
Public Class modiPerso
    Dim db_informatique As New informatique_connection
 
    Private Sub modiPerso_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Try
            Dim rech As String
            Dim i As Integer
            i = 1
            rech = InputBox("Entrer le matricule", "Recherche")
            TextBox1.Text = rech
            db_informatique.myreq = "SELECT * FROM Perso WHere Matricule = '" & rech & "'"
            db_informatique.connecting_in_informatique()
            Do While db_informatique.rdr.Read
                Me.a1.Text = db_informatique.rdr(0).ToString
                Me.a2.Text = db_informatique.rdr(1).ToString
                Me.a3.Text = db_informatique.rdr(2).ToString
                Me.a4.Text = db_informatique.rdr(3).ToString
                Me.a5.Text = db_informatique.rdr(4).ToString
                Me.a6.Text = db_informatique.rdr(5).ToString
                Me.a7.Text = db_informatique.rdr(6).ToString
                Me.a8.Text = db_informatique.rdr(7).ToString
                Me.a9.Text = db_informatique.rdr(8).ToString
                Me.a12.Text = db_informatique.rdr(9).ToString
                Me.a10.Text = db_informatique.rdr(10).ToString
                Me.a11.Text = db_informatique.rdr(11).ToString
                Me.a13.Text = db_informatique.rdr(12).ToString
                Me.a14.Text = db_informatique.rdr(13).ToString
                Me.a15.Text = db_informatique.rdr(14).ToString
                i = 2
            Loop
            db_informatique.disconnecting_in_informatique()
        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.Message.ToString)
        End Try
 
    End Sub

03/10/2013, 22h14
wallace1
Autant pour moi Asuna, je n'avais pas compris qu'il s'agissait de ton instanciation :oops::oops:.... fatigue quand tu nous tient... ^_^

perso j'utilise tjrs ceci lorsque je parcours (pas grave...) :
Code:

1 2 3 4 5 While db_informatique.rdr.Read ' ... ' ..... End While
Sinon à quoi ressemble ta table "Perso" exactement stp ?

Ton message d'erreur indique bien que tu essayes de récupérer une donnée qui ne possède pas un bon type.
Donc soit tu as une données de type image par exemple dans ta base et que tu essayes de la récupérer en type String soit un autre truc du genre ...

1 pièce(s) jointe(s)

Ah, je l'ai remplacé et j'ai supprimer le "try" alors mnt j'ai un autre probleme.. message d'erreur ne s'affiche plus mais quand j'entre le Matricule pour faire la recherche, les champs s'affichent mais vide !!

Code:

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
Imports System
Imports System.Data
 
Public Class modiPerso
    Dim db_informatique As New informatique_connection
 
    Private Sub modiPerso_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Dim rech As String
        Dim i As Integer
        i = 1
        rech = InputBox("Entrer le matricule", "Recherche")
        TextBox1.Text = rech
        db_informatique.myreq = "SELECT * FROM Perso WHere Matricule = '" & rech & "'"
        db_informatique.connecting_in_informatique()
        While db_informatique.rdr.Read
            Me.a1.Text = db_informatique.rdr(0).ToString 'Matricule
            Me.a2.Text = db_informatique.rdr(1).ToString 'Nom
            Me.a3.Text = db_informatique.rdr(2).ToString 'Prenom
            Me.a4.Text = db_informatique.rdr(3).ToString 'CIN
            Me.a5.Text = db_informatique.rdr(4).ToString 'Date de naissance
            Me.a6.Text = db_informatique.rdr(5).ToString 'Adresse
            Me.a7.Text = db_informatique.rdr(6).ToString 'Tél
            Me.a8.Text = db_informatique.rdr(7).ToString 'E-mail
            Me.a9.Text = db_informatique.rdr(8).ToString 'Situation familliale
            Me.a12.Text = db_informatique.rdr(9).ToString 'Date de recrutement
            Me.a10.Text = db_informatique.rdr(10).ToString 'Date prev. retraite
            Me.a11.Text = db_informatique.rdr(11).ToString 'Echelle
            Me.a13.Text = db_informatique.rdr(12).ToString 'Formatrion de base
            Me.a14.Text = db_informatique.rdr(13).ToString 'Droit de congé
            Me.a15.Text = db_informatique.rdr(14).ToString 'jours restants
            i = 2
        End While
        db_informatique.disconnecting_in_informatique()
 
 
    End Sub

je pense pas parce que j'ai fait assurer que les types sont les meme

voila ma table:

03/10/2013, 23h03
wallace1

Verifies bien que tes formats de date sont correctes. Ce message d erreur est souvent lié a ca ;)

Salut

utilises des requetes parametrées
ta class
la méthode

Code:

Public Sub connecting_in_informatique()

doit etre seulement pour la connection
ainsi

Code:

1
2
3
4
5
6
Public Sub connecting_in_informatique()
        strcon = "provider=Microsoft.ACE.OLEDB.12.0; Data source=C:\Users\user\Documents\bd.accdb"
        mycon = New OleDbConnection(strcon)
        mycon.Open()
 
    End Sub

et aussi écris tes requetes dans ta class dans des méthode

Code:

1
2
3
4
5
6
7
8
9
10
11
  Public function RechercheSelonMatricule(idmatricule as integer) As 
OleDbDataReader 
 
     Dim sql As String = String.Empty
        Dim command As New OleDbCommand(sql, mycon)
 
       command.CommandText = "  SELECT * FROM Perso WHere Matricule = [?];"
       command.Parameters.Add("?", OleDbType.Integer).Value = idmatricule
       return   command.ExecuteReader()
 
   end function

dans ta form

Code:

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
  Imports System.Data.OleDb
 <div class="bbcode_container">
	<div class="bbcode_description">Code:</div>
	<hr /><code class="bbcode_code"> <span style="color: #0000ff;">private</span>  db_informatique <span style="color: #0000ff;">As</span> <span style="color: #0000ff;">New</span> informatique_connection</code><hr />
</div>   'dans le load 
       Dim rech As String
        Dim i As Integer
        Dim recordset As OleDbDataReader
    db_informatique.connecting_in_informatique
 
        i = 1
        rech = InputBox("Entrer le matricule", "Recherche")
        dim matricule as integer
        if Integer.TryParse(rech,matricule) then
          recordset = db_informatique.RechercheSelonMatricule(matricule)
            While recordset.Read
            Me.a1.Text = recordset(0).ToString 'Matricule
            Me.a2.Text = recordset(1).ToString 'Nom
            Me.a3.Text = recordset(2).ToString 'Prenom
            Me.a4.Text = recordset(3).ToString 'CIN
            Me.a5.Text = recordset(4).ToString 'Date de naissance
            Me.a6.Text = recordset(5).ToString 'Adresse
            Me.a7.Text = recordset(6).ToString 'Tél
            Me.a8.Text =recordset(7).ToString 'E-mail
            Me.a9.Text = recordset(8).ToString 'Situation familliale
            Me.a12.Text = recordset(9).ToString 'Date de recrutement
            Me.a10.Text = recordset(10).ToString 'Date prev. retraite
            Me.a11.Text = recordset(11).ToString 'Echelle
            Me.a13.Text = recordset(12).ToString 'Formatrion de base
            Me.a14.Text = recordset(13).ToString 'Droit de congé
            Me.a15.Text = recordset(14).ToString 'jours restants
            i = 2
        End While
     end if
     'ferme la connection
      db_informatique. disconnecting_in_informatique

03/10/2013, 23h46
Asuna

oui, mais svp pouvez vous me montrer comment déclarer un "textbox" comme type Date ? je l'ai pas trouvé dans les parametres!!

d'accord shayw je vais assyer
04/10/2013, 00h18
Asuna

2 pièce(s) jointe(s)

ca n'a pas marché shayw :(
04/10/2013, 09h21
_Ez3kiel
Sur ta 2éme image on voit clairement que tu as remplacé le code de shayw
Code:

1 2 Public function RechercheSelonMatricule(idmatricule as integer) As OleDbDataReader
par
Code:

1 2 Public function RechercheSelonMatricule(idmatricule as integer) As OleDbDataReader()
Les parenthèses indiquent que c'est un tableau à 1 dimension de OleDbDataReader, or ce n'est pas ce que tu souhaites. :ccool:

Et pour ta textbox de type Date, passe plutôt par une MaskedTextBox avec MaskedTextBox.Mask = "00/00/0000" et MaskedTextBox.ValidatingType = GetType(Date)
04/10/2013, 10h00
chaparo

Citation:

Envoyé par Asuna

oui, mais svp pouvez vous me montrer comment déclarer un "textbox" comme type Date ?

J'aurais plutot dit d'ajouter un dateTimePicker
04/10/2013, 10h34
_Ez3kiel

Si j'ai bien compris, sa "textbox de type date" lui servira à l'affichage de données (Date de naissance, Date de recrutement, date de prev. retraite, etc), donc ce sera plus parlant à la lecture avec une maskedtextbox (totalement pas objectif comme avis :mrgreen: ), et ça surchargera moins l'IHM que d'avoir 3 DTP.
04/10/2013, 12h12
Asuna

oui oui Ez3kiel mercii ca marche :D Mercii shayw et wallace1 vous m'avez vraiment sauvé, j'ai ma soutenance la semaine prochaine et ça me casse la tete :arf:
04/10/2013, 13h46
_Ez3kiel

Si c'est bon, pense à cliquer sur :resolu: ;)
04/10/2013, 14h01
Asuna

C'est fait :)