ricardo celso
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 03/08/2009 17:49 hs
esta consulta esta com algum problema qdo ela nao da erro no relatorio ela nao acha nada
vejam
no sistema esta assim Dim Data1 As Date Dim Data2 As Date Data1 = TxtDtIni2.Text Data2 = TxtDtfim3.Text
RSProduto.Open "SELECT sum(qtdsaida) as QtdTotalSaida FROM tblproduto, tblsaida WHERE codprod = codprodsaida AND datasaida BETWEEN #" & Data1 & "# AND #" & Data2 & "# GROUP BY codprod", cnn, 3, 3
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
|
|
|
|
|
Postada em 03/08/2009 19:43 hs
Você tem dados nessas tabelas que respeitam as codições do WHERE? Sem ter a base, fica dificil achar o erro.
__________________
"It is the way of men to make monsters...and it is the nature of monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
ricardo celso
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 03/08/2009 21:18 hs
sim tem dados, tem relacionamento
|
|
|
|
Postada em 04/08/2009 07:58 hs
Procure algum software para rodar a sua SQL. Um bom exemplo é o WinSQL.
__________________
"It is the way of men to make monsters...and it is the nature of monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
Postada em 04/08/2009 10:39 hs
Abraço e que DEUS te abençõe, espero poder ter te ajudado Eu sou o Senhor, o DEUS de vocês; eu os seguro pela mão e lhes digo; Não fiquem com medo, pois eu os ajudo Isaias 41:13
|
|
|
ricardo celso
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 04/08/2009 11:25 hs
ASh muito obrigado pelo soft winsql vou testar e logo retorno, o Alvaro gostei da apostila vou estudar asim q eu chegar a concerto eu retorno com a solucao muito obrigado
|
|
|