Array
(
)

[VB6] Utilizar valores Armazenados em um Array dinâmico em uma consulta SQL

Guilher Silva
   - 20 set 2016

Tenho um Array dinâmico que é criado de acordo com cada linha que eu marco na grade, Ex: Se eu marcar 3 linhas vai criar um array de 3 posições. [0],[1],[2]. Certo.
agora estou precisando pegar os valores contidos nesse array e informar em uma consulta SQL.
O meu array guarda códigos de vendas realizadas que eu selecionei na grade, e quero fazer uma consulta sql para retornar os produtos dessas vendas.
Ex: se o array tiver 5 posições, informar esses 5 valores no IN desse SQL.
Alguém poderia me dar alguma dica de como realizar essa questão, ou se tem alguma maneira melhor de ser feita.
Obrigado pela ajuda.
CODIGO VB6
#Código

For x = 1 To Grade.rows - 1
 If Grade.TextMatrix(x, 17) = "X" Then
 Tem = True
 linha = x
 tot = lernulov(tot) + 1
 End If
Next x

  tot = tot - 1                     
  ReDim VendasSelecionada(tot)
    quant = 0
  For n = 1 To linha 
    If Grade.TextMatrix(n, 17) = "X" Then 
        VendasSelecionada(quant) = Grade.TextMatrix(n, 2)  
        If n < linha Then 
        quant = quant + 1
        End If
    End If
  Next

SQL - Utilizado
#Código
SELECT vei.Codigo_Produto AS ProdCodigo,
       vei.SubCodigo,
       SUM(vei.Quantidade) AS Quantidade,
       SUM(vei.valor_vendido * vei.Quantidade) AS Valor,
       Vei.InibirDescVenda AS InibirDescVenda,
	   vei.Codigo_Venda
FROM tblVendidos vei
WHERE codigo_venda IN (1,
					   2,
					   3)
  AND Devolvido = 0
  AND
    (SELECT isnull(numerocupom, 0)
     FROM tblVendas
     WHERE codigo = codigo_venda) = 0
GROUP BY vei.Codigo_Produto,
         vei.SubCodigo,
         Vei.InibirDescVenda,
		 vei.Codigo_Venda
ORDER BY 1