consulta em dua tabelas por data com soma


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: consulta em dua tabelas por data com soma

ricardo celso
não registrado

ENUNCIADA !

Postada em 04/08/2009 11:42 hs

pessoal no winsql deu este erro

pessoal coloquei a sql no win sql deu este erro

Erro de sintaxe na seqüência de caracteres na expressão de consulta 'codprod"'. (State:37000, Native Code: FFFFF3E4)

Ash Katchup

CAXIAS DO SUL
RS - BRASIL

ENUNCIADA !

Postada em 04/08/2009 12:06 hs

O Álvaro está correto. Os campos citados na cláusula "GROUP BY" tem que estar declarados no Select.
Nesse teu caso:

SELECT sum(qtdsaida) as QtdTotalSaida, codprod
FROM tblproduto, tblsaida
WHERE codprod = codprodsaida AND datasaida BETWEEN #01/01/2008# AND #02/01/2008#
GROUP BY codprod

Outra coisa:
O WinSQL executa SQL. Você não pode colocar a concatenação de strings lá, só para lembrar.

__________________

"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 04/08/2009 19:14 hs

pessoal consegui eis o codigo

Dim Data1 As Date
Dim Data2 As Date
Data1 = TxtDtIni2.Text
Data2 = TxtDtfim3.Text
RSProdutos.Open "SELECT * From Produtos where DataCadastro BetWeen #" & Format$(Data1, "mm/dd/yyyy") & "# And #" & Format$(Data2, "mm/dd/yyyy") & "# ;", Conexao, 3, 3
If Not RSProdutos.EOF Then
Set DataProdutosCPL.DataSource = RSProdutos
DataProdutosCPL.Show
DataProdutosCPL.Title = "Relatório Geral de Produtos"
Else
RSProdutos.Close
MsgBox "Não foram encontrados Registros", vbInformation, "Aviso"
End If

End Sub

meus amigos este codigo acima foi ajustado pelo tecla do vbmania

vlw amigos muito obrigado

Página(s): 2/2 « ANTERIOR

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR