CONSTRUIR CONSULTA EM DUA TABLELAS POR PERIODO

MASTER2020 03/08/2009 14:57:05
#318707
fiz o relacionamento, mas nao estou conseguindo abri o relatorio, os campos q vao para o relatorio seria codprod, descricao , qtdtotalsaida e isso, nao vai .
da este errro codprod not found[S29]
ANDRE.ADMVB 03/08/2009 18:56:47
#318751
Amigo, poste seu fonte aqui para analisar melhor. Junto com BD e tudo mais....
RCMRO 03/08/2009 20:29:31
#318758
Pessoal,

Desculpe a intromissão mas só faltou uma coisinha no SQL que passaram - colocar CODPROD no SELECT.
Ai vai corrigido:

rs.Open [Ô]SELECT codprod, sum(qtdsaida) as QtdTotalSaida FROM produto, saida WHERE codprod = codprodsaida AND datasaida BETWEEN #[Ô] & DATA1 & [Ô]# AND #[Ô] & DATA2 & [Ô]# GROUP BY codprod[Ô]

é sutil mas é necessário para fazer a quebra.

Abraços
MASTER2020 03/08/2009 21:36:17
#318766
esta aki o fonte o form chama frmrelsaida
MASTER2020 04/08/2009 11:41:05
#318825
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)
TECLA 04/08/2009 12:10:55
#318827 Resposta escolhida
Eis a solução do problema:

1. Altere a estrutura da tabela TBLSAIDA, no campo CODPRODSAIDA de MEMORANDO para NUMERICO.

2. Altere a rotina do COMMAND1 do form FRMRELSAIDA conforme abaixo:
Private Sub Command1_Click()
Dim Data1 As String
Dim Data2 As String
Data1 = Format(TxtDtIni2.Text, [Ô]mm/dd/yyyy[Ô])
Data2 = Format(TxtDtfim3.Text, [Ô]mm/dd/yyyy[Ô])

RSProduto.Open [Ô]SELECT codprod, 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
End Sub


Qualquer dúvida poste aqui!
MASTER2020 04/08/2009 19:18:23
#318914
Sim tecla funcionou perfeita mente muito obrigado, so uma duvida eu queria trazer junto com a sql o campo descricao da tblproduto....fica facil
TECLA 04/08/2009 19:39:51
#318920
Citação:

PATOLOCO escreveu:
Sim tecla funcionou perfeita mente muito obrigado, so uma duvida eu queria trazer junto com a sql o campo descricao da tblproduto....fica facil



Sim, segue código com a alteração.

Private Sub Command1_Click()
Dim Data1 As String
Dim Data2 As String
Data1 = Format(TxtDtIni2.Text, [Ô]mm/dd/yyyy[Ô])
Data2 = Format(TxtDtfim3.Text, [Ô]mm/dd/yyyy[Ô])

RSProduto.Open [Ô]SELECT codprod, descricao, sum(qtdsaida) as QtdTotalSaida [Ô] & _
               [Ô]FROM tblproduto, tblsaida [Ô] & _
               [Ô]WHERE codprod = codprodsaida [Ô] & _
               [Ô]AND datasaida [Ô] & _
               [Ô]BETWEEN #[Ô] & Data1 & [Ô]# AND #[Ô] & Data2 & [Ô]# [Ô] & _
               [Ô]GROUP BY codprod, descricao[Ô], 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
End Sub
MASTER2020 04/08/2009 20:16:39
#318929
Tecla eu fiz a alteracao mas esta dando erro not found descricao
MASTER2020 04/08/2009 20:18:11
#318930
pera fiz arte ja retorno
Página 3 de 4 [31 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar