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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Consulta com 3 campos..
Analista
CÁCERES
MT - BRASIL
ENUNCIADA !
Postada em 30/05/2008 12:10 hs            
Bom dia, tenho uma consulta com período de data e nome do devedor, mas preciso de acrescentar nessa consulta um outro campo e não estou consequindo.
a que eu tenho é assim:
'**********************************
    On Error Resume Next
    Data1.RecordSource = "SELECT * FROM ContasAReceber WHERE NomeDevedor Like '*" & Nome.Text & "*'  AND DtCadastro BETWEEN #" & _
    Format(DtInicial, "yyyy/mm/dd") & "# and #" & Format(DtFinal, "yyyy/mm/dd") & _
    "# order by Vencimento"
    Data1.Refresh
'***************
Porém tentei fazer da seguinte forma mas nao deu certo:
'********************************
     On Error Resume Next
    Data1.RecordSource = "SELECT * FROM ContasAReceber WHERE NomeDevedor Like '*" & Nome.Text & "*' and Serviços Like '*" & "PERIÓDICO" & "*' AND DtCadastro BETWEEN #" & _
    Format(DtInicial, "yyyy/mm/dd") & "# and #" & Format(DtFinal, "yyyy/mm/dd") & _
    "# order by Vencimento"
    Data1.Refresh
'**********************
Obs.: o que está em negrito é que pretendo acrescentar na consulta.
Desde já agradeço a todos..
Luciano.
   
William 
CRAVINHOS
SP - BRASIL
Postada em 03/06/2008 08:57 hs            
On Error Resume Next
    Data1.RecordSource = "SELECT * FROM ContasAReceber WHERE NomeDevedor Like '*" & Nome.Text & "*' and Serviços Like '*" & "PERIÓDICO" & "*' AND DtCadastro BETWEEN #" & _
    Format(DtInicial, "yyyy/mm/dd") & "# and #" & Format(DtFinal, "yyyy/mm/dd") & _
    "# order by Vencimento"
    Data1.Refresh
 
 
tenta assim
 
On Error Resume Next
    Data1.RecordSource = "SELECT * FROM ContasAReceber WHERE NomeDevedor Like '*" & Nome.Text & "*' and Serviços Like '%" & "PERIÓDICO" & "%' AND DtCadastro BETWEEN #" & _
    Format(DtInicial, "yyyy/mm/dd") & "# and #" & Format(DtFinal, "yyyy/mm/dd") & _
    "# order by Vencimento"
    Data1.Refresh
     
Macaubal
não registrado
ENUNCIADA !
Postada em 03/06/2008 09:28 hs   
Bom dia analista!, qual a descrição do erro que está te mostrando?
   
José Ari
não registrado
Postada em 03/06/2008 18:15 hs   
Analista,

tira esse On Error Resume Next pra parar no erro e ver o que está acontecendo...

senao voce nunca vai saber onde está o erro......
     
Analista
CÁCERES
MT - BRASIL
Postada em 03/06/2008 21:41 hs            
Não está dando erro nenhum, o problema é que quando digito o nome do devedor, não filtra nada, isto é tentando consular pelo NomeDevedor, DtCadastro, Perióco.
 
preciso fazer o select filtrando esses 3 campos.
 
fazer somente pelo nomedevedor e DtCadastro dá blz. Mas nececito fazer com + 1 campo conforme tentei fazer no código descrito:
 
On Error Resume Next
    Data1.RecordSource = "SELECT * FROM ContasAReceber WHERE NomeDevedor Like '*" & Nome.Text & "*' and Serviços Like '*" & "PERIÓDICO" & "*' AND DtCadastro BETWEEN #" & _
    Format(DtInicial, "yyyy/mm/dd") & "# and #" & Format(DtFinal, "yyyy/mm/dd") & _
    "# order by Vencimento"
    Data1.Refresh

Há William, obrigado mas não deu certo.
 
se alguem puder me ajudar agradeço.
 
     
Tiranossauro
DOIS IRMÃOS
RS - BRASIL
Postada em 03/06/2008 22:11 hs            
tenta fazer uma consulta mantendo apenas o filtro de data e verifica se existe algum regiso que satisfaz as outras condições
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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