Discussion :

[Marie_7]

Bonsoir,
Comment faire pour récupérer le résultat d'une requete dans une variable

Code :

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

1
2
3
4
5
6
7
 
con.Open()
        Dim ol As New OleDb.OleDbDataAdapter("select nom from tab1 where login= '" & TextBox1.Text & "' and p= '" & TextBox2.Text & "'", con)
        Dim mr As New DataSet
        ol.Fill(mr)
 
con.Close()

merci

[PixelJuice]

Il faut utiliser le DataSet qui est rempli par la requête.Si tu n'attends qu'un seul résultat de ta requête , il te faudra aller dans la première Table du dataset , et prendre la premiere valeur de la première Row.

[Marie_7]

Merci pour votre réponse mais malheureusement je n'ai pas compris ta proposition

[PixelJuice]

Il faut utiliser :

Code :

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

Dim resultat As Object() = mr.Tables(0).Rows(0).ItemArray

Avec ce code , on récupère les valeurs de la requête , du moins le premier résultat.Les champs sont déjà avec le bon type .Si un champs était de type INT en SQL , il le sera aussi dans ItemArray , etc ...

Si tu veux boucler sur tous les résultats :

Code :

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

1
2
3
4
5
6
 Dim resultat As Object()
 
For i As Integer = 0 To mr.Tables(0).Rows.Count - 1
		' ton travail pour chaque résultats de la requête
	resultats = mr.Tables(0).Rows(i)
Next

J'ai utilisé un convertisseur C# => VB.Net , donc j'espère que tout est bon.

[Sankasssss]

Juste pour information, ce n'est pas une obligation, un dataCommand seul permet de récupérer une valeur d'une cellule :

Code :

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

1
2
3
4
5
        Using dc As New OleDb.OleDbCommand("select nom from tab1 where login= ? and p= ? ", con)
            dc.Parameters.Add("P1", OleDb.OleDbType.VarChar).Value = TextBox1.Text
            dc.Parameters.Add("P2", OleDb.OleDbType.VarChar).Value = TextBox2.Text
            Dim varNom = dc.ExecuteScalar
        End Using

De plus, il faut TOUJOURS utiliser les requêtes paramétrées comme je l'ai fait, cela évite les injections SQL (sécurité) et c'est bien plus simple à gérer surtout quand on a des types complexes comme des dates.

[Kropernic]

De plus, il faut TOUJOURS utiliser les requêtes paramétrées comme je l'ai fait, cela évite les injections SQL (sécurité) et c'est bien plus simple à gérer surtout quand on a des types complexes comme des dates.

Ou quand il y a des apostrophes dans les chaînes de caractères.

[Marie_7]

Bonsoir,
merci pour vos réponses
Comment faire pour avoir ce boucle if parceque j'ai eu cet erreur

Code :

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

1
2
3
4
5
 
Dim resultat As Object() = mr.Tables(0).Rows(0).ItemArray
        If resultat = "Marie" Then
            ......................
        End If

Code :

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

1
2
3
 
La résolution de surcharge a échoué, car aucun '=' accessible ne peut être appelé avec ces arguments*:
    'Public Shared Operator =(a As String, b As String) As Boolean': Une valeur de type 'Tableau à 1 dimension(s) de Object' ne peut pas être convertie en 'String'.

merci

[DotNetMatt]

L'opérateur égal (=) ne permet pas de réaliser une égalité entre un type System.Object et un type System.String. Essaie comme ceci :

Code VB.NET :

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

If resultat.ToString() = "Marie" Then

Mais si la variable resultat est NULL, tu vas lever une NullReferenceException, il faut donc au préalable vérifier que resultat contienne bien quelque chose.

[Marie_7]

J'ai essayé ceci

Code :

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

1
2
3
4
 
Dim resultat As Object() = mr.Tables(0).Rows(0).ItemArray
Label1.Text = resultat.ToString()
If resultat.ToString() = "Marie" Then

mais le label contient

Code :

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

1
2
 
System.Object[]

[DotNetMatt]

Arf ok Je n'ai quasiment jamais utilisé de DataSet/DataTable, sauf quand je débutais, donc je laisse ceux qui connaissent te répondre...

[Marie_7]

En faisant une recherche j'ai trouvé que je peux utiliser recordset. Comment je peux faire ça? Cette solution est-elle utile? Et surtout qu'elle est la référence à ajouter
merci

[Kropernic]

Il y a plein de façon de faire.

Le souci dans ton exemple précédent, c'est que la variable résultat est un tableau.

Lorsque tu écris resultat.ToString() = "Marie", tu ne compares pas un élément du tableau en particulier au texte "Marie" mais bien le tableau complet. Il te faut prendre l'élément du tableau se trouvant à l'index contenant le texte à comparer.

Mais tu devrais lire le cours de Mr. Lasserre (qui se trouve en post-it de ce forum). Tu y trouverais toutes les réponses que tu cherches.

[Kropernic]

Arf ok Je n'ai quasiment jamais utilisé de DataSet/DataTable, sauf quand je débutais, donc je laisse ceux qui connaissent te répondre...

T'as juste pas les yeux en face des trous pour ne pas voir que resultat est un tableau . Voilà ce que c'est que de répondre à 1h du matin... Faut aller dormir à la place :p

[Marie_7]

Bonjour,
Merci J'ai essayé ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim da As New OleDb.OleDbDataAdapter("select nom from tab1 where login= '" & Connexion.TextBox1.Text & "' and p= '" & Connexion.TextBox2.Text & "'", cnn)
        Dim ds As New DataSet
        da.Fill(ds)
        Dim resultat As Object() = ds.Tables(0).Rows(0).ItemArray
        Dim N As Integer = resultat.Length
        For I = 0 To N-1
            If resultat(I).ToString() = "Marie" Then
                Label1.Text = resultat.ToString()
            End If
        Next I

Mais toujours j'obtiens meme résultat: le label contient

Code :

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

System.Object[]

[Kropernic]

Bonjour,
Merci J'ai essayé ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim da As New OleDb.OleDbDataAdapter("select nom from tab1 where login= '" & Connexion.TextBox1.Text & "' and p= '" & Connexion.TextBox2.Text & "'", cnn)
        Dim ds As New DataSet
        da.Fill(ds)
        Dim resultat As Object() = ds.Tables(0).Rows(0).ItemArray
        Dim N As Integer = resultat.Length
        For I = 0 To N-1
            If resultat(I).ToString() = "Marie" Then
                Label1.Text = resultat.ToString()
            End If
        Next I

Mais toujours j'obtiens meme résultat: le label contient

Code :

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

System.Object[]

Oui et c'est normal. Tu testes bien si un élément du tableau contient le texte Marie mais tu mets tout ton tableau dans le texte du label... N'oublie pas de spécifier ton index I à ce moment-là également !

[Marie_7]

merciiiii ça marche maintenant

Code :

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

1
2
 
Label1.Text = resultat(0).ToString()