CONSULTA SQL AGRUPAR E SOMAR POR PERIODO
tente ai
RSProduto.Open [Ô]SELECT a.codbase, a.nomebase, b.produtocinsumido, b.dataconsumo, sum(b.qtdconsumo) AS Soma_QTD [Ô] & _
[Ô]FROM tblbase AS A ,tblconsumido AS B [Ô] & _
[Ô]WHERE A.codbase = B.produtoconsumido [Ô] & _
[Ô]AND B.dataconsumo [Ô] & _
[Ô]BETWEEN #[Ô] & Data1 & [Ô]# AND #[Ô] & Data2 & [Ô]# [Ô] & _
[Ô]GROUP BY A.codbase, A.nomebase, B.produtocinsumido, B.dataconsumo[Ô], cnn, 3, 3
RSProduto.Open [Ô]SELECT a.codbase, a.nomebase, b.produtocinsumido, b.dataconsumo, sum(b.qtdconsumo) AS Soma_QTD [Ô] & _
[Ô]FROM tblbase AS A ,tblconsumido AS B [Ô] & _
[Ô]WHERE A.codbase = B.produtoconsumido [Ô] & _
[Ô]AND B.dataconsumo [Ô] & _
[Ô]BETWEEN #[Ô] & Data1 & [Ô]# AND #[Ô] & Data2 & [Ô]# [Ô] & _
[Ô]GROUP BY A.codbase, A.nomebase, B.produtocinsumido, B.dataconsumo[Ô], cnn, 3, 3
Llaia eu postei o fonte aki com o poste
OI Luiscomino muito obrigado pelo fonte, eu testei acho q esta correto, porem estou encerraNDO O RELATORIO ja retorno ate aki muito obrigado
fiz algums mudanças e aqui funcionou.
código do relatório:
Só o Datareport que não funfou, e nem tentei mexer.
a declara do RSProduto tava ADODB.Record e mudei pra Recordset.
código do relatório:
Private Sub Command1_Click()
[ô]by tecla
Dim Data1 As String
Dim Data2 As String
Data1 = Format(TxtDtIni2.Text, [Ô]mm/dd/yyyy[Ô])
Data2 = Format(TxtDtfim3.Text, [Ô]mm/dd/yyyy[Ô])
Set RSProduto.ActiveConnection = cnn
RSProduto.Open [Ô]SELECT a.codbase, a.nomebase, b.produtoconsumido, b.dataconsumo, sum(b.qtdconsumo) AS soma_qtd [Ô] & _
[Ô]FROM tblbase a INNER JOIN tblconsumido b [Ô] & _
[Ô]ON a.codbase = b.produtoconsumido [Ô] & _
[Ô][txt-color=#e80000]where[/txt-color] b.dataconsumo [Ô] & _
[Ô]BETWEEN #[Ô] & Data1 & [Ô]# AND #[Ô] & Data2 & [Ô]# [Ô] & _
[Ô]GROUP BY a.codbase, a.nomebase, b.produtoconsumido, b.dataconsumo[Ô], , [txt-color=#e80000]adOpenStatic[/txt-color]
[ô]by tecla
[ô]este paramentro vai pra relelatorio informando a data inicio e data final
[ô]detalhe isto tem q acontecer antes do relatorio ser aberto
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label5[Ô]).Caption = Data1 [ô]inicial
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label8[Ô]).Caption = Data2 [ô]final
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label11[Ô]).Caption = Date [ô]data do sistema
If Not RSProduto.EOF Then
Set dptsaidadata.DataSource = RSProduto
dptsaidadata.Show
dptsaidadata.Title = [Ô]Relatório de saida do estoque[Ô]
Else
RSProduto.Close
MsgBox [Ô]Não foram encontrados Registros[Ô], vbInformation, [Ô]Aviso[Ô]
End If
End SubSó o Datareport que não funfou, e nem tentei mexer.
a declara do RSProduto tava ADODB.Record e mudei pra Recordset.
OI Luis desculpe a demora, testei seu codigo acho q deu certo so esta dando um erro na pasagem de parametro do data report estou fz uns ajustes, nos caso, Llaia eu ja retorno, preciso resolver o bug do relatorio, se nao, consigo saber se os codigos estam corretos, ja retorno. desder ja muito obrigado pela ajuda
pessoal esta dando um erro no datarepor no vb ele e setado nesta linha
A.codbase na sql
A.codbase na sql
O Luizcumino deu certo sim funcionou perfeito vlw. muito obrigado LLaia pela ajuda e a todos programadores do vbmania
Tópico encerrado , respostas não são mais permitidas