F�rum [VB6] Utilizar valores Armazenados em um Array din�mico em uma consulta SQL #562583

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

Curtir t�pico

+ 0

Responder