|
Postada em 25/11/2004 14:37 hs
sSql = "SELECT tblLancamentos.IdLanc, tblLancamentos.Lote, tblLancamentos.DataLancamento, tblLancamentos.Data, tblLancamentos.CodContaR, tblContaAnalitica.ContaAnalitica, tblLancamentos.CodContrapartidaR, tblLancamentos.Documento, tblLancamentos.NossoDocumento, tblLancamentos.Historico, tblLancamentos.Vencimento, tblLancamentos.DC, tblLancamentos.ValorDebito, tblLancamentos.ValorCredito, tblLancamentos.Saldo FROM tblContaAnalitica INNER JOIN tblLancamentos ON tblContaAnalitica.CodReduzido = tblLancamentos.CodContaR"
Tenho a instrução acima que funciona normalmente, mas quando tendo quebrá-la para ficar com estética melhor, dá erro. Estou tentando fazer da seguinte forma: sSql = "SELECT tblLancamentos.IdLanc, tblLancamentos.Lote" sSql = sSql & " AND tblLancamentos.DataLancamento" sSql = sSql & " AND tblLancamentos.Data" sSql = sSql & " AND tblLancamentos.CodContaR" sSql = sSql & " AND tblContaAnalitica.ContaAnalitica" sSql = sSql & " AND tblLancamentos.CodContrapartidaR" (...) ALGUÉM PODE AJUDAR?
Marcone
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 25/11/2004 14:44 hs
Se for o resultado do select, não tem and e sim virgula. Pelo que entendi
|
|
|
|
Postada em 25/11/2004 15:07 hs
São mesmo os "AND" que estão a mais. Eis um exemplo de "partida" de um SQL: strSQL = "SELECT qDEBITOS.ASSOCIADO, qDEBITOS.AGREGADO,qDEBITOS.DOCNUM, qDEBITOS.DEBITO " strSQL = strSQL & "AS DEBITO, qDEBITOS.CREDITO AS CREDITO, [DEBITO]-[CREDITO] AS SALDO " strSQL = strSQL & "FROM qDEBITOS " strSQL = strSQL & "GROUP BY qDEBITOS.ASSOCIADO, qDEBITOS.AGREGADO,qDEBITOS.DOCNUM, qDEBITOS.DEBITO, qDEBITOS.CREDITO," strSQL = strSQL & "[DEBITO]-[CREDITO], qDEBITOS.INICIO " strSQL = strSQL & "HAVING qDEBITOS.Inicio < #" & inic & "#" strSQL = strSQL & "UNION " strSQL = strSQL & "SELECT qCREDITOS.ASSOCIADO, qCREDITOS.AGREGADO,qCREDITOS.DOCNUM,qCREDITOS.DEBITO AS DEBITO, " strSQL = strSQL & "qCREDITOS.CREDITO AS CREDITO, [DEBITO] -[CREDITO]AS SALDO " strSQL = strSQL & "FROM qCREDITOS " strSQL = strSQL & "GROUP BY qCREDITOS.ASSOCIADO, qCREDITOS.AGREGADO,qCREDITOS.DOCNUM, qCREDITOS.DEBITO, " strSQL = strSQL & "qCREDITOS.CREDITO, [CREDITO]-[DEBITO], qCREDITOS.INICIO " strSQL = strSQL & "HAVING qCREDITOS.INICIO < #" & inic & "#;"
João Mateus Se precisar de ajuda extra, visite: http://joaomateus.planetaclix.pt
|
|
|
|
Postada em 25/11/2004 15:55 hs
Era isso mesmo, havia excessos de AND. Agora deu certinho, Valeu, pessoal.. 
|
|
|
|