Discussion :

[lucaazori1988]

salut a tous, je veux savoir comment faire pour récuperer les résultats retournés par ma requete sachant que celle ci me retourne toujours un seul enregistrement c`est pourquoi j`avais pas penser à faire recours au data reader.
Voici ma requete:

Code :

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

1
2
3
4
5
6
 Dim sqlQRY1 As String = "SELECT AUDIO.Nom_Aud,IMAGE.Nom_Img FROM [IMAGE],[AUDIO],[TEST] WHERE Id_Test='" & idTest & "' and [IMAGE].Nom_Img=TEST.Nom_Img and AUDIO.Nom_Aud=TEST.Nom_Aud"
'ouvrir la connexion
                myConnexion.Open()
 
                'exécuter la requete
                Dim cmd1 As OleDbCommand = New OleDbCommand(sqlQRY1, myConnexion)

j`ai besoin de AUDIO.Nom_Aud et IMAGE.Nom_Img, comment faire pour les obtenir et les mettre dans 2 variables ???
merci d`avance pour l`aide

[tomlev]

http://dotnet.developpez.com/articles/ado1/vbnet/

[lucaazori1988]

salut, merci pour votre lien, alors j`avais essayé ca :

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
 Try
 
            'déclarer la variable qui va contenir l`id du test en cours
            Dim idTest As Integer
 
 
                'récuperer l`identifiant du test
                idTest = tab(tailleTableau)
                'Préparer la requete.
                Dim sqlQRY1 As String = "SELECT AUDIO.Nom_Aud,IMAGE.Nom_Img FROM [IMAGE],[AUDIO],[TEST] WHERE Id_Test='" & idTest & "' and [IMAGE].Nom_Img=TEST.Nom_Img and AUDIO.Nom_Aud=TEST.Nom_Aud"
 
                'ouvrir la connexion
                myConnexion.Open()
 
                'exécuter la requete
                Dim cmd1 As OleDbCommand = New OleDbCommand(sqlQRY1, myConnexion)
 
                'exécuter le data reader
                Dim data_img_aud As OleDbDataReader = cmd1.ExecuteReader()
 
                'Parcourir le data reader
 
                Do While data_img_aud.Read()
 
                    MsgBox(data_img_aud.GetValue(0))
                Loop
                'fermer le data reader
                data_img_aud.Close()
                'fermer la connexion
                myConnexion.Close()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            myConnexion.Close()
        End Try

Cependant j`obtenais l`erreur suivante:

Data type mismatch in creteria expression

ma question est : si ma requete est juste comment puis je récuperer AUDIO.Nom_Aud et IMAGE.Nom_Img ??

[tomlev]

A priori l'erreur est dans la requête, tu as essayé de l'exécuter directement sur la base de données ? Si la colonne Id_Test est un nombre, il ne faut pas mettre de guillemets simples (apostrophes)

ma question est : si ma requete est juste comment puis je récuperer AUDIO.Nom_Aud et IMAGE.Nom_Img ??

Code :

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

1
2
Dim Nom_Aud As String = data_img_aud.GetString(0)
Dim Nom_Img As String = data_img_aud.GetString(1)

Autre option, pour éviter d'utiliser des index :

Code :

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

1
2
Dim Nom_Aud As String = CType(data_img_aud("Nom_Aud"), String)
Dim Nom_Img As String = CType(data_img_aud("Nom_Img"), String)

Ou encore :

Code :

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

1
2
Dim Nom_Aud As String = data_img_aud.GetString(data_img_aud.GetOrdinal("Nom_Aud"))
Dim Nom_Img As String = data_img_aud.GetString(data_img_aud.GetOrdinal("Nom_Img"))

[lucaazori1988]

merci infiniment