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ódigoFor 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ódigoSELECT 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