[VB6] Utilizar valores Armazenados em um Array dinâmico em uma consulta SQL
20/09/2016
0
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
SQL - Utilizado
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
Clique aqui para fazer login e interagir na Comunidade :)