USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Quebrar string SQL..
MARCONE
Pontos: 2843
BRASÍLIA
DF - BRASIL
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?

MarconeEmoções

 

TÓPICO EDITADO
   
Venancio
não registrado
Postada em 25/11/2004 14:44 hs   
Se for o resultado do select, não tem and e sim virgula.
 
Pelo que entendi
     
Mateus
AMADORA
PT - PORTUGAL
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

     
MARCONE
Pontos: 2843
BRASÍLIA
DF - BRASIL
Postada em 25/11/2004 15:55 hs            
Era isso mesmo, havia excessos de AND. Agora deu certinho,
 
 
Valeu, pessoal..Emoções
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página