Discussion :

[Marc_27]

Bonjour à tous,

J'ai une variable de type Array que j'essaye de remplir avec un DataReader.

Je vais essayer de m'expliquer:
J'ai une table T_mdp (user_nom [string], user_id [int32], mdp [string])

Je voudrais mettre dans un Array les champs mdp et user_id.
voilà mon 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
Dim MyConnexion As OleDbConnection = New OleDbConnection(ConnectionString)
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
        strSQL = "SELECT T_mdp.mdp, T_mdp.user_id " & _
                     "FROM T_mdp " & _
                     "WHERE T_mdp.user_nom='Username'"
        Mycommand.CommandText = strSQL
        MyConnexion.Open()
        Dim Reader As OleDbDataReader = Mycommand.ExecuteReader()
        Dim arrResult(2)
        For i = 1 To 2
            If Reader.Read() Then
                arrResult(0) = True
                arrResult(i) = Reader(i - 1)
            Else
                If Not arrResult(0) = True Then arrResult(0) = False
            End If
        Next
        Reader.Close()
        MyConnexion.Close()

J'arrive à remplir le mdp, mais il mets la valeur Null pour le user_id, l'Array reste donc (True, mdp, Null), et je ne compreds pas pourquoi, car le champs est bien rempli sur la table.

Est-ce que quelqu'un pourrait m'aider, svp?
Merci d'avance

[Marc_27]

Pour tester, j'ai changé l'ordre de mon SQL:

Code :

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

1
2
3
strSQL = "SELECT  T_mdp.user_id, T_mdp.mdp " & _
                     "FROM T_mdp " & _
                     "WHERE T_mdp.user_nom='Username'"

et maintenant je retrouve bien l'user_id, mais pas le mdp!

Il y a donc un problème pour trouver la dernière valeur.

[olsimare]

Bonjour.

Ta boucle est un peu bizarre car quand tu fais Reader.Read, cela déclenche la lecture de la ligne suivante du Reader.

Donc comme ton select ne rend qu'une seule ligne ça ne le fait pas du tout !

D'ailleurs, si je comprends ce que tu veux faire, tu n'as pas besoin du For :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        Dim Reader As OleDbDataReader = Mycommand.ExecuteReader()
        Dim arrResult(2)
        If Reader.Read() Then
           arrResult(0) = True
           arrResult(1) = Reader(0)
           arrResult(2) = Reader(1)
        Else
           arrResult(0) = False
        End If
        Reader.Close()

Devrait suffire.

Cdt.

[Marc_27]

Merci olsimare,

Je suis heureux de te dire que je commence a me débrouiller un peu avec du vb... (très peu pour l'instant, mais c'est déjà quelque chose )

J'ai besoin du for, car j'ai mis 2 comme un exemple, dans mon application j'utilise n. Il faudrait faire l'inverse:

Code :

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

1
2
3
4
5
6
7
8
If Reader.Read() Then
            For i = 1 To 2
                arrResult(0) = True
                arrResult(i) = Reader(i - 1)
            Next
            Else
                If Not arrResult(0) = True Then arrResult(0) = False
            End If

Je m'explique:
Pour n'avoir pas besoin d'écrire le code du data reader toutes les fois, j'ai fait la fonction suivant:

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
    Public Function MyReader(ByVal strCon As String, ByVal intNumber As Int16, ByVal strSQL As String) As Array
        Dim MyConnexion As OleDbConnection = New OleDbConnection(strCon)
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
        Mycommand.CommandText = strSQL
        MyConnexion.Open()
        Dim Reader As OleDbDataReader = Mycommand.ExecuteReader()
        Dim arrResult(intNumber)
        If Reader.Read() Then
            For i = 1 To intNumber
                arrResult(0) = True
                arrResult(i) = Reader(i - 1)
            Next
        Else
            If Not arrResult(0) = True Then arrResult(0) = False
        End If
        Reader.Close()
        MyConnexion.Close()
        Return arrResult
    End Function

et toutes les fois où j'ai besoin d'un data reader, je fais, par exemple:

Code :

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

1
2
3
4
strSQL = "SELECT T_mdp.user_nom " & _
                 "FROM T_mdp LEFT JOIN T_log ON T_mdp.user_id=T_log.user_id " & _
                 "ORDER BY T_log.dernier_log DESC"
        arrReader = MyReader(ConnectionString, 1, strSQL)

(intNumber c'est la quantité des champs du SELECT)
Après, j'utilise la première position du vecteur pour savoir s'il y a eu des résultats dans ma requête...

Tu pense que c'est un bon méthode?

[olsimare]

Bonjour.

Concernant le fait que cela soit la bonne méthode, j'utilise plutôt un dataset pour faire ce genre de truc plutôt qu'un datareader, mais pourquoi pas, si cela convient...

Par contre, passer le nombre de colonne est inutile, tu peux utiliser le datareader.FieldCount pour obtenir le nombre de colonne retourné.

D'autre part, si tu veux vraiment que ton code soit réutilisable, tu devrais créér une classe qui met à dispo non seulement les différents item, mais également une propriété indiquant que la requête a bien retourné quelque chose.

Cdt.

[Marc_27]

Ok, merci pour l'astuce...

Comment j'avias dit, je commence à me débrouiller maintenant, je peux voir que j'ai un long parcours à faire...