Discussion :

[Xteyse]

Salut tout le monde
J'ai un petit problème lorsque je veut faire une recherche dans une base de donnée. J'ai une table Histo qui est chargée dans un datagridview. Je veut faire une recherche dans ma table en fonction de ce qui est choisi dans une combobox (les valeurs de ma combo proviennent aussi d'une Table).
Le code fonctionne quand je n'ajoute pas la clause WHERE à ma requete sql et dès que je l'ajoute j'ai ce message d'erreur :

Microsoft Access Database Engine Aucune valeur donnée pour un ou plusieurs des paramètres requis

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
     'création de la requête,exécution de la commande,
        sql = "SELECT * FROM Histo WHERE Produit = " & cbb_prod.Text
 
 
            'remplissage du DataAdapter,du DataSet et de la DataTable
        cmd = New OleDbCommand(sql)
        dta = New OleDbDataAdapter(cmd)
        cmd.Connection() = cnx
 
        Try
            dta.Fill(dts, "Histo") 'si j'enlève le try l'erreur apparait ici
        Catch ex As OleDb.OleDbException
            MsgBox("ERROR:" & ex.Source & " " & ex.Message, MsgBoxStyle.OkOnly)
        End Try
 
        dtt = dts.Tables("Histo")
dgv_search.DataSource = dtt

Merci.

[Xteyse]

J'ai modifié un peu le code j'ai ajouté une requéte paramétrée à la place de l'ancienne.
ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    cmd.CommandText = "SELECT * FROM Histo WHERE Produit ="
        cmd.Parameters.Add("Produit", System.Data.OleDb.OleDbType.VarChar)
        cmd.Parameters("Produit").Value = cbb_prod.Text

Mais j'ai maintenant une erreur sur le cmd.CommandText :

La référence d'objet n'est pas définie à une instance d'un objet

[asmduty]

Bonjour,
ton CMD ne doit pas être instancié, peut-on avoir le reste du code ?

[BenoitM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    cmd.CommandText = "SELECT * FROM Histo WHERE Produit =@Produit"
        cmd.Parameters.Addnew SqlParameter("@Produit", SqlDbType.VarChar, 5)
        cmd.Parameters("@Produit").Value = cbb_prod.Text

[Xteyse]

Voila le code :

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
Imports System
Imports System.Data
Imports System.Data.OleDb
 
Public Class Form5
    'Déclarationde la variable pour la connection
    Private cnx As OleDbConnection
 
    'Déclaration de la variable pour la commande 
    Private cmd As OleDbCommand
 
 
    'Déclarationde la variable pour le dataadapter
    Private dta As OleDbDataAdapter
 
 
    'Déclaration de la variable pour le dataset
    Private dts As New DataSet
 
 
    'Déclarationde la variable pour la requête
    Private sql As String
 
 
    'Déclarationde la variable pour la datatable
    Private dtt As DataTable
 
 
    'Déclaration de la variable pour la connectionstring
    Private cnxstr As String
 
Private Sub bt_seach2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_seach2.Click
 
'création de la requête,exécution de la commande,
 
        cmd.CommandText = "SELECT * FROM Histo WHERE Produit ="
        cmd.Parameters.Add("Produit", System.Data.OleDb.OleDbType.VarChar)
        cmd.Parameters("Produit").Value = cbb_prod.Text
 
            'remplissage du DataAdapter,du DataSet et de la DataTable
        cmd = New OleDbCommand()
        dta = New OleDbDataAdapter(cmd)
        cmd.Connection() = cnx
 
        Try
            dta.Fill(dts, "Histo")
        Catch ex As OleDb.OleDbException
            MsgBox("ERROR:" & ex.Source & " " & ex.Message, MsgBoxStyle.OkOnly)
        End Try
 
        dtt = dts.Tables("Histo")
dgv_search.DataSource = dtt
End Sub

[youtpout978]

tu fais ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 cmd = New OleDbCommand()

après l'avoir affecté il faut que tu le mette avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
cmd = New OleDbCommand()
cmd.CommandText = "SELECT * FROM Histo WHERE Produit =@Produit"
cmd.Parameters.Addnew SqlParameter("@Produit", SqlDbType.VarChar, 5)
cmd.Parameters("@Produit").Value = cbb_prod.Text

[Xteyse]

Effectivement l'erreur provenait de ça.
J'ai un peu honte
En tout cas merci beaucoup.