Discussion :

[djalil]

Bonjour,

Mon probleme est le suivant:
j'ai une tache d'execution de requete sql où j'affecte le resultat (plusieur lignes)d e mon select à une variable de type objet, jusquà la tout va bien.

Par contre pour controler ma variable je voudrai afficher son résultat. j'ai crée pour cela une tache vb avec le script suivant

Code :

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

MsgBox(Dts.Variables("Ensemble_resultat").Value.ToString)

lors de l'exécution du script j'ai le message suivant: System.__ComObject

J'ai modifié mon script en rajoutant une boucle, mais j'ai toujours le meme message autant de fois que j'ai de ligne, voici le scrip

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim oleDA As New OleDbDataAdapter
        Dim dt As New DataTable
        Dim row As DataRow
 
 
        oleDA.Fill(dt, Dts.Variables("Ensemble_resultat").Value)
 
        For Each row In dt.Rows
 
            MsgBox(Dts.Variables("Ensemble_resultat").Value.ToString)
 
        Next

quelqu'un aurait-il une idée

[djalil]

J'ai trouvé la solution, voici le 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
20
Public Sub Main()
		'
        Dim oleDA As New OleDbDataAdapter
        Dim dt As New DataTable
        Dim row As DataRow
        Dim sMsg As String
        Dim col As DataColumn
 
 
        oleDA.Fill(dt, Dts.Variables("Ensemble_resultat").Value)
 
        For Each row In dt.Rows
            For Each col In dt.Columns
                sMsg = row(col.Ordinal).ToString & vbCrLf
            Next
            MsgBox(sMsg.ToString)
            sMsg = ""
        Next
 
	End Sub