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

20/09/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

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

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

Guilher Silva