Récupérer le résultat d'une requete dans une variable

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

Code:

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

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.

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

Il faut utiliser :

Code:

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:

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.

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

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.

Citation:

Envoyé par Sankasssss

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.

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

Code:

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

Code:

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

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:

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.

J'ai essayé ceci

Code:

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:

1
2
 
System.Object[]

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

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

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.

Citation:

Envoyé par DotNetMatt

Arf ok :aie: 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 :P. Voilà ce que c'est que de répondre à 1h du matin... Faut aller dormir à la place :p

Bonjour,
Merci J'ai essayé ceci

Code:

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:

System.Object[]

Citation:
Envoyé par Marie_7
Bonjour,
Merci J'ai essayé ceci
Code:

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:

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 !

merciiiii ça marche maintenant
Code:

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