[vb.net] erreur dans un code

Version imprimable

27/03/2006, 09h12
lou87

[vb.net] erreur dans un code

Bonjour ^^

Excusez moi, mais j’ai encore besoin de votre aide…

Dans le programme que je fais en ce moment, je dois rechercher des informations dans une table access, jusque là aucun problème pour m’y connecter et avec ces tables remplir mes combobox….

Et puis dans ma tentative de faire une connection avec les tables access, avec l’aide d’un bouton rechercher, un morceau de code qui jusqu’ici marchait à merveille, me forme une erreur, la voici :

'Il faut créer un objet DataReader:
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()

Erreur :
'Erreur: Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll'

Et depuis cette erreur a été répercuté vers les autres programmes qui marchaient jusqu’ici très bien…

Je ne comprend pas, pouvez-vous m’aider ?

Merci bien  :)
27/03/2006, 09h24
NiamorH
en fait cette erreur ne dis pas grand chose.

mets plutot la ligne de code qui plante dans un
Code:

1 2 3 4 5 6 7 Try ' ta ligne Catch msgbox ex.message End Try
dis nous ce que le msgbox te dit
27/03/2006, 11h16
lou87
pour le message j'ai dut mettre autre chose que ce que vous aviez mis....

j'ai dut mettre :
Code:

1 2 3 4 5 6 try Catch ex As Exception MessageBox.Show(ex.Message) End Try
Et pour le message qu'il m'affiche c'est :

Command text was not for the command object.

Pourquoi il me dit :
Le texte de commande n'était pas pour l'objet de commande ?
27/03/2006, 14h23
NiamorH
Citation:

Envoyé par lou87

pour le message j'ai dut mettre autre chose que ce que vous aviez mis....

:roll:
Oui J'ai écrit ça à la main sur ce forum. Il n'y a pas d'assistance de saisie comme sur VS donc j'oublie des trucs..

apparement ça plante lorsque tu execute ta
requete. est ce qu'on peut voir à quoi elle ressemble ?

j'imagine que tu as qqc qui ressemble à ça :
Code:

1 2 3 Mycommand.CommandText = strSQL myConnexion.Open() Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
mets un point d'arret sur la derniere ligne et execute ton code jusqu'a l'arret.
lorsque ça s'arrete tu devrais avoir une petite fenetre en bas de VS appelée 'Automatique' avec ta requete. tu peux cliquer dessus pour la copier et la coller ici.

Pour le code c'est ceci :

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
Private Sub btn_rechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_rechercher.Click
 
        Dim libelle_logiciel As String = listder_lib_logi_micro.Text
        Dim date_debut As String = Date_deb.Text
        Dim date_final As String = Date_fin.Text
        Dim cellule As String = listder_lib_logi_micro.Text
        Dim type_incident As String = listder_type_incident.Text
        Dim domaine_informatique As String = listder_domaine_info.Text
 
        Dim myDSLibLogMi As DataTable = New DataTable
        Dim myDSCellule1 As DataTable = New DataTable
 
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
                        "c:\user\U237797\acces\bd2.mdb")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
 
 
        Dim requete, requete1, requete2, requete3, requete4 As String
 
        Mycommand.CommandText = requete
 
        If Date_deb.Text <> "" And Date_fin.Text <> "" Then
            requete = "SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE between Date_deb.text and Date_fin.text"
        Else : Date_deb.Text = "" And Date_fin.Text = ""
        End If
 
        MyConnexion.Open()
 
            Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
            'Erreur: Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll'
 
            Do While myReader.Read()
 
                If myReader.IsDBNull(0) = False Then
                    listder_lib_logi_micro.Items.Add(myReader.GetString(0))
                End If
 
            Loop

Pour ce qui est de la petite fenêtre 'Automatique', je ne l'ai pas eu...

(Et excuse moi si tu as pris ça comme un reproche ce que j'ai mis plus haut :oops: )

27/03/2006, 15h05
boulete

Salut, je chope le message en route.
Il y a un truc bizarre dans ton code :

Citation:

Dim requete, requete1, requete2, requete3, requete4 As String

Mycommand.CommandText = requete

If Date_deb.Text <> "" And Date_fin.Text <> "" Then
requete = "SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE between Date_deb.text and Date_fin.text"
Else : Date_deb.Text = "" And Date_fin.Text = ""
End If

Déjà, requete est mis à jour après l'avoir attribué à ta commande. C'est pas bizarre ça ?
Et en +, dans le cas de Date_deb.Text = "" And Date_fin.Text = "" , t'as plus de requete du tout ...

C'est pas là ton pbm ?
27/03/2006, 15h28
lou87

Disons que j'ai deux DateTimerPicker pour l'intervalle de ce que je recherche donc c'est normale que je reprend leurs données séparément...

J'ai crée plusieurs requêtes afin de ne pas perdre le résultat de chaque requête donc je ne comprend pas beaucoup quand tu me dis que ma requête est mis à jour après l'avoir attribué à ma commande.... et après tu me dis que jen'ai plus de requête du tout (la dernière ligne de ma requête c'est un else donc si le programme ne trouve rien en ces dates là, il annule les dates c'est vrai que j'aurai put lui dire de retrouner un message disons qu'il n'y a pas tel chose à ces dates là)...

:? :oops:
27/03/2006, 15h42
boulete

Tu n'as peut-être pas mis tout le code. Dans ce que tu nous montres, requete est mis a jour dans ton bloc :

Citation:

If Date_deb.Text <> "" And Date_fin.Text <> "" Then
requete = "SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE between Date_deb.text and Date_fin.text"
Else : Date_deb.Text = "" And Date_fin.Text = ""
End If

et pas avant. Or, avant cela, tu attribues requete à ta commande ...

Quant à te dire que tu n'as plus de requete du tout, lorsque je lis ton code, dans le else, tu ne mets pas à jour requete, t'as du oublier une partie de ton code c'est pas possible autrement ...
28/03/2006, 09h44
NiamorH

tel que tu nous le montre, tu tente d'executer une requete vide.
voilà le probleme.
à +
28/03/2006, 17h04
6su7

SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE TA DATE between Date_deb.text and Date_fin.text

Dans le code que tu nous donne

Code:

1
2
3
4
5
6
7
8
Dim requete, requete1, requete2, requete3, requete4 As String 
 
        Mycommand.CommandText = requete 
 
        If Date_deb.Text <> "" And Date_fin.Text <> "" Then 
            requete = "SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE between Date_deb.text and Date_fin.text" 
        Else : Date_deb.Text = "" And Date_fin.Text = "" 
        End If

la ligne

Code:

Mycommand.CommandText = requete

doit se situer après

Code:

1
2
3
4
If Date_deb.Text <> "" And Date_fin.Text <> "" Then 
            requete = "SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE between Date_deb.text and Date_fin.text" 
        Else : Date_deb.Text = "" And Date_fin.Text = "" 
        End If

Sinon, tu te retrouve avec une erreur te disant que la propriété commandtext n'a pas été initialisée.

29/03/2006, 12h08
lou87

Bonjour ^^

En fesant ce que tu m'as dit de faire (Joked) il me dit que :

le texte command n'a pas été placé pour l'objet command
29/03/2006, 12h32
boulete

D'une part tu dois déplacer ta portion de code comme te l'a indiqué joKED, mais en plus tu dois modifier ta requete, elle n'est pas bonne, comme te l'a indiqué 6su7 ...

Ca ira mieux après !
29/03/2006, 12h50
lou87

Oui mais le problème avec cette fameuse requête c'est que je voudrais l'ensemble des 'choses' qui sont entre ses deux dates là..... Donc pas à une date précise....

A moins que je n'ais pas compris ce que vous me disiez.... :oops:
29/03/2006, 12h56
boulete

On ne t'a pas dit de mettre une date précise ! :D

Code:

requete = "SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE [color=red]DATE_INITIAL [/color]between Date_deb.text and Date_fin.text

ne prend pas en compte que les dates comprises entre tes deux indicateurs ?
29/03/2006, 13h04
lou87

oki ^^

Excusez moi :oops: :oops: :oops: :oops: :oops: :oops: :oops:
29/03/2006, 13h10
boulete

pas de soucis ! :D

Merci de m'avoir fait remarquer cette erreur, j'ai modifié, et essayer de faire comme vous me l'avez dit mais apparement cela ne veut toujours pas marcher...

Si je met le code en entier, croyez vous que cela peut vous être utile ? :oops:

Excusez moi j'abuse de votre aide, mais bon j'essai aussi avec mes collègues mais on avance pas beaucoup...

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
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
Private Sub btn_rechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_rechercher.Click
 
        Dim libelle_logiciel As String = listder_lib_logi_micro.Text
        Dim date_debut As String = Date_deb.Text
        Dim date_final As String = Date_fin.Text
        Dim cellule As String = listder_lib_logi_micro.Text
        Dim type_incident As String = listder_type_incident.Text
        Dim domaine_informatique As String = listder_domaine_info.Text
 
        Dim myDSLibLogMi As DataTable = New DataTable
        Dim myDSCellule1 As DataTable = New DataTable
 
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
                        "lien source")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
        Dim Mycommand1 As OleDbCommand = MyConnexion.CreateCommand()
        Dim Mycommand2 As OleDbCommand = MyConnexion.CreateCommand()
        Dim Mycommand3 As OleDbCommand = MyConnexion.CreateCommand()
        Dim Mycommand4 As OleDbCommand = MyConnexion.CreateCommand()
 
 
        Dim requete, requete1, requete2, requete3, requete4 As String
 
 
        MyConnexion.Open()
 
        If Date_deb.Text <> "" And Date_fin.Text <> "" Then
            requete = "SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE DATE_INITIAL between Date_deb.text and Date_fin.text"
        Else : MsgBox("Il n'y a pas d'incident à ces dates")
        End If
 
        Mycommand.CommandText = requete
 
        Try
            Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
            'Erreur: Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll'
 
            Do While myReader.Read()
 
                If myReader.IsDBNull(0) = False Then
                    listder_lib_logi_micro.Items.Add(myReader.GetString(0))
                End If
 
            Loop
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
 
 
        If listder_lib_logi_micro.Text <> "" Then
            requete1 = "SELECT DISTINCT (AOP_SDIQWA2.NOM_APPLICATION)FROM AOP_SDIQWA2 WHERE libelle_logiciel"
        Else : listder_lib_logi_micro.Text = ""
        End If
 
        Mycommand1.CommandText = requete1
 
        Try
 
            Dim myReader1 As OleDbDataReader = Mycommand1.ExecuteReader()
            'Erreur: Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll'
 
            Do While myReader1.Read()
 
                If myReader1.IsDBNull(0) = False Then
                    listder_lib_logi_micro.Items.Add(myReader1.GetString(0))
                End If
 
            Loop
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
 
 
        If listder_cellule.Text <> "" Then
            requete2 = "Select CC_INITIALE, CELLULE_ASSIGNE FROM HDC_VW_INCIDENTS WHERE cellule"
        Else : listder_cellule.Text = ""
        End If
 
        Mycommand2.CommandText = requete2
 
        Dim myReader2 As OleDbDataReader = Mycommand2.ExecuteReader()
        'Erreur: Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll'
 
        Do While myReader2.Read()
 
            If myReader2.IsDBNull(0) = False Then
                listder_lib_logi_micro.Items.Add(myReader2.GetString(0))
            End If
 
        Loop
 
 
 
        If listder_type_incident.Text <> "" Then
            requete3 = "SELECT DISTINCT (HDC_VW_INCIDENTS.TYPE) FROM HDC_VW_INCIDENTS WHERE type_incident"
        Else : listder_type_incident.Text = ""
        End If
 
        Mycommand3.CommandText = requete3
 
        Dim myReader3 As OleDbDataReader = Mycommand3.ExecuteReader()
        'Erreur: Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll'
 
        Do While myReader3.Read()
 
            If myReader3.IsDBNull(0) = False Then
                listder_lib_logi_micro.Items.Add(myReader3.GetString(0))
            End If
 
        Loop
 
 
 
        If listder_domaine_info.Text <> "" Then
            requete4 = "SELECT DISTINCT (HDC_VW_INCIDENTS.DOMAINE) FROM HDC_VW_INCIDENTS WHERE domaine_informatique"
        End If
 
        Mycommand4.CommandText = requete4
 
        Dim myReader4 As OleDbDataReader = Mycommand4.ExecuteReader()
        'Erreur: Une exception non gérée du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll'
 
        Do While myReader4.Read()
 
            If myReader4.IsDBNull(0) = False Then
                listder_lib_logi_micro.Items.Add(myReader4.GetString(0))
            End If
 
        Loop
 
 
 
        '* affichage d'un résultat dans une page excel *'
 
        Dim myreader5 As OleDbDataReader = Mycommand.ExecuteReader()
 
        Dim xlApp As Excel.Application
 
        Try
            xlApp = GetObject(, "excel.application")
        Catch
            xlApp = New Excel.Application
        Finally
            xlApp.Visible = False
        End Try
 
        'ajout d'une page et sélection 
 
        Dim xsIncidents As Excel.Worksheet = xlApp.Workbooks.Add.ActiveSheet
 
        'requete serveur 
 
        Try
            With Mycommand.CommandText = requete
                MyConnexion.Open()
 
                Do While myreader5.Read()
 
                    If myreader5.IsDBNull(0) = False Then
                        listder_lib_logi_micro.Items.Add(myreader5.GetString(0))
                    End If
 
                Loop
 
            End With
            ' affichage 
            xlApp.Visible = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub

04/04/2006, 12h59
lou87

up
05/04/2006, 10h18
lou87

Bonjour ^^

Personne n'a une idée ?

:oops:
05/04/2006, 13h01
behe

salut, tu es sur que les dates sélectionnées sont bien formatées lors de la requête SQL?
05/04/2006, 13h26
lou87

Bonjour ^^

J'ai tout mis au format texte....
10/04/2006, 08h59
lou87

Bonjour ^^

Je n'arrive pas à avancer à cause de cette erreur....

Serait-ce dut à mes requêtes (qui serait incorrecte ?) ?

A une erreur dans le code ?

Je ne sais pas, j'ai beau m'y attabler avec des collègues, ils ont proposés des solutions diverses et variées, mais cela ne marche toujours pas.... :cry:
11/04/2006, 08h37
lou87

Up
11/04/2006, 09h45
boulete

il faut que tu dises où ça plante dans ton code, parce que ça fait un peu long !
11/04/2006, 09h59
lou87

Et bien toujours au même endroit....

Les

Code:

Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()

J'ai pourtant fait des modifications, et je fesais du pas à pas, mais si je mettais pas du 'try.... catch ex as exception... end try', il s'arrêtait sur l'erreur et n'avançait plus...
11/04/2006, 10h02
lou87

(Et merci pour la réponse :) )
11/04/2006, 10h05
bidou

si ta requête c'est
"SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE DATE_INITIAL between Date_deb.text and Date_fin.text"
tu m'étonnes que ca se gauffre :roll:
Il faudrait voir à utiliser des paramètres pour que ce soit des valeurs de date qu'il utilise dans between
11/04/2006, 10h09
boulete

Met un point d'arrêt avant le try de ton execute reader et donne le contenu de ta requête.
11/04/2006, 10h26
lou87

Citation:

Envoyé par bidou

si ta requête c'est
"SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE DATE_INITIAL between Date_deb.text and Date_fin.text"
tu m'étonnes que ca se gauffre :roll:
Il faudrait voir à utiliser des paramètres pour que ce soit des valeurs de date qu'il utilise dans between

J'ai pas très bien compris ta dernière phrase...

@ boulete :

J'ai fait ce que tu m'as demandé, mais il n'y a rien qui s'affiche...
11/04/2006, 10h35
bidou

là tu lui demandes de chercher une date comprise entre Date_deb.text et Date_fin.text. Tel que tu l'as écrit, ce ne sont pas les valeurs contenues par ces variables qui sont utilisées dans la requête mais le nom des variables.
Pour faire ce que tu veux on utilise généralement des paramètres de requête. Tu trouveras des exemples dans l'aide en cherchant sur OleDbCommand.Parameters.Add par exemple
11/04/2006, 10h53
boulete

Ca veut dire qu'il n'y a rien dans ta requête ...
Pour déterminer quelle peut-être l'erreur générée lors de l'exécution de la commande, il faut regarder ce que tu lui envoies, en l'occurence le contenu de ta requête.
Si tu testes ta variable 'requete' et qu'il n'y a rien dedans, alors tu envoies une commande vide, ce qui explique le plantage.

Regarde :

Citation:

If Date_deb.Text <> "" And Date_fin.Text <> "" Then
requete = "SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE DATE_INITIAL between Date_deb.text and Date_fin.text"
Else : MsgBox("Il n'y a pas d'incident à ces dates")
End If

Là, tu initialises ton sql

Citation:

Mycommand.CommandText = requete

Là, tu attribues ton sql à ta commande. On est bien d'accord que si requete est vide, la commande est également vide.

Citation:

Try
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()

Et là tu initialises ton datareader à partir de ta commande. SI ta commande est vide, ça plante.

L'idée est donc de vérifier le contenu de ton sql, qui doit merder.
C'est pour cela que je te disais de mettre un point d'arrêt avec le try, pour tester la variable requete.
Si tu me dis qu'elle est vide, c'est que tu ne passes même pas dans ton if ... then ... etc .

Vois-tu ?

Mais soit dit en passant, je pense plutot que ta reque^te est fausse tout simplement.

Déjà comme te le disait bidou, tu as mis le nom des variables dans ta requête au lieu de mettre la valeur.

Il faut écrire :

Code:

requete = "SELECT DATE_INITIAL FROM HDC_VW_INCIDENTS WHERE DATE_INITIAL between #" & Date_deb.text & "# and #" & Date_fin.text & "#"

Déjà ça devrait être mieux ...
11/04/2006, 10h56
lou87

Excusez moi de vous embêtez tant, mais je débute en vb.net… Et il y a plus ou moins des erreurs, que j’arrive parfois à régler et d’autre pas… :oops:

Je vous remercie de votre gentillesse de bien vouloir à chaque fois me répondre et aussi de votre grande patience… :)
11/04/2006, 11h20
boulete

Et en plus, pour ta requête, si tu as sur une base access, tu dois d'une part gérer tes dates entre #, et en plus les présenter au format américain (mm/dd/yyyy)
11/04/2006, 11h34
bidou

d'où l'intérêt des paramètres
24/04/2006, 10h26
lou87

Bonjour ^^

Merci pour vos réponses :), j'ai mis des # aussi dans les autres requêtes et ça marche mieux mais bon, apparement le programme ne fonctionne pas encore correctement...

Je vais essayer de mettre mes dates en format américain mais dans ma base access, ceux ci sont de format normale autrement dit de format français.
24/04/2006, 10h56
boulete

Dans Access, les dates sont stockées en format français, mais lorsque tu exécutes une requête sql, le format de date retenu pour les comparaisons est obligatoirement format américain ...

Sinon tu fais comme te disais Bidou, tu utilises des paramètres pour ta requête ...