Discussion :

[theoffss]

Hello, j'ai encore un autre soucis
Je créé une application VB, qui accède à une base de donnée access.
Je souhaite effectuer un contrôle sur une combobox (dans laquelle je rentre un champs destiné à une cellule d'une table) qui vérifiait, si le mot rentré, n'est pas déjà existant dans la table. et le cas échéant, afficher un message d'erreur.
j'ai donc créé une requette (verif3) qui est un simple SELECT me renvoyant la colonne que je souhaite vérifier) et je compare cette requete à ma combobox :

Code :

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

1
2
3
4
5
6
7
If Me.Trec_ingTableAdapter.verif3() = ComboBox1.Text Then
            MessageBox.Show("Ingredient deja present")
        Else
            Me.Trec_ingTableAdapter.recing(Me.ComboBox1.Text, Me.NomRecetteTextBox.Text, Me.NumericUpDown1.Text)
            'Refresh des données de la table
            Me.Trec_ingTableAdapter.Fill(Me.BDDRecIngDataSet.Trec_ing)
        End If

le probleme, est que la comparaison s'effectue uniquement avec le 1 ier champ ou cellule trouvé...
je ne voie pas comment resoudre ça, ma methode est "à l'arrache".
si vous avez des solutions, ou une methode plus simple, je suis preneur.
merci bonne journée

Edit :
J'ai aussi pensé a créé une requete de type

Code :

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

where NomIngredient = "(ma combobox")

et afficher un message d'erreur lorsque cette requete me renvoie un résultat. ma question est donc, que renvoie comme message une requete vide ?

[JPelli]

Bonjour,
S'il y a plusieurs enregistrements résultant de la requête, utilise un datareader et boucle sur chaques lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim CMD as obdc.command
dim DRDR as odbc.datareader
'créer la requête
CMD.commandtext = "Requête de sélection"
drdr = CMD.executereader
while DRDR.read
    If DRDR.getstring(Numéro,nom de la colonne) = ComboBox1.Text Then
            MessageBox.Show("Ingredient deja present")
    Else
            Me.Trec_ingTableAdapter.recing(Me.ComboBox1.Text, Me.NomRecetteTextBox.Text, Me.NumericUpDown1.Text)
            'Refresh des données de la table
            Me.Trec_ingTableAdapter.Fill(Me.BDDRecIngDataSet.Trec_ing)
    End If
end while

Il faut vérifier si le reader retourne des lignes(.hasrows)
Bon boulot Jean

[theoffss]

Merci de ta reponce.

Je vien de tester, mais cela ne fonctionne pas :

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
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim CMD As Odbc.OdbcCommand
        Dim DRDR As Odbc.OdbcDataReader
 
        CMD.CommandText = "SELECT NomIngredient FROM TRec_Ing"
        DRDR = CMD.ExecuteReader
        While DRDR.Read
            If DRDR.GetString(1) = ComboBox1.Text Then
                MessageBox.Show("Ingredient deja present")
            Else
                Me.Trec_ingTableAdapter.recing(Me.ComboBox1.Text, Me.NomRecetteTextBox.Text, Me.NumericUpDown1.Text)
                'Refresh des données de la table
                Me.Trec_ingTableAdapter.Fill(Me.BDDRecIngDataSet.Trec_ing)
            End If
        End While

j'ai l'avertissement :

Code :

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

Avertissement	1	La variable 'CMD' est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution.	H:\Bac a sable\GestRecette\NewGestionRecette\GestionaireRecette\Ajout_Recette.vb	109	9	GestionaireRecette

et lorsque je lance l'application l'erreur : La référence d'objet n'est pas définie à une instance d'un objet. au niveau de la ligne CMD.CommandText = " "...

Si quelqu'un peut m'aider, merci