[Resolvido]consulta sql

Amigos,
Estou com um problema nesta consulta

strSQL = "SELECT TAB_CADASTRO.PROTOCOLO ,TAB_CADASTRO.ID, TAB_CADASTRO.CPF, TAB_CADASTRO.NOME, TAB_CADASTRO.FONE, TAB_CADASTRO.MODALIDADE, TAB_CADASTRO.ORIGEM_RECURSO, TAB_CADASTRO.NUMERO_CONTRATO, TAB_CADASTRO.DATA_ASSINATURA, TAB_CADASTRO.CONFIRMACAO_ASSINATURA, TAB_CADASTRO.RETORNAR_EM, TAB_CADASTRO.CONTA_DEBITO, TAB_CADASTRO.CORRESP_CORRETOR, TAB_CADASTRO.EMPREENDIMENTO, TAB_CADASTRO.DESISTENCIA, TAB_OCORRENCIAS.PROTOCOLO , TAB_OCORRENCIAS.COD, TAB_OCORRENCIAS.OCORRENCIA, TAB_OCORRENCIAS.DATA, TAB_OCORRENCIAS.OBSERVACOES, TAB_OCORRENCIAS.MATRICULA FROM TAB_CADASTRO INNER JOIN TAB_OCORRENCIAS ON TAB_CADASTRO.[PROTOCOLO] = TAB_OCORRENCIAS.[PROTOCOLO]WHERE Data Between #" & Form_frmConsulta.Texto0 & "# And #" & Form_frmConsulta.Texto2 & "# AND TabOcorrencias.Ocorrencia=" & Form_frmConsulta.Combinação6

oque faço? Alguem pode me ajudar.
olhe a imagem o erro que dá

Adilson

dyl,

Nomeie os controlos de forma a identificar o tipo de controlo e o conteúdo armazenado.
Neste seu problema, no final, em vez de
TabOcorrencias.Ocorrencia=" & Form_frmConsulta.Combinação6
Coloque
TabOcorrencias.Ocorrencia='" & Form_frmConsulta.Combinação6 & "'"

Amigão, esta consulta é sobre o assunto

no topico

Consulta pela ocorrência com maior data

Que voce utilizou até o comando sql drop etc.

vou lhe passar o bd, para você dar uma olhada

http://dl.dropbox.com/u/37804873/BD%20Set%202011.rar

O Amigo que efetuar uma consulta onde apareça a ultima data da ocorrencia selcionada na combo.

no frmcadastro xiste o botão ocorrencia por data que abra o frm de pesquisa.

Pode nos ajudar


Adilson

dyl2011.programador,

Baixei o banco de dados disponibilizado, porem não tem as tabelas informada na consulta!

Bom pelo que eu entendi o erro ocorre na formatação da data tente o seguinte:


Inclua a função abaixo em um módulo generico.

Código:

Public Function fnValidarData(sDATA As String, Optional sFormato As String = "DD/MM/YYYY") As String
    On Error GoTo ERRO
    Dim Ano As String
    Dim Mes As String
    Dim Dia As String
   
    Ano = -1
    Mes = -1
    Dia = -1
   
    If Not IsDate(sDATA) Then GoTo ERRO
    Ano = Right("0000" & Year(Trim(sDATA)), 4)
    Mes = Right("0000" & Month(Trim(sDATA)), 2)
    Dia = Right("0000" & Day(Trim(sDATA)), 2)
           
    Dim sAux 'As String
    sAux = Ano & "-" & Mes & "-" & Dia
    fnValidarData = Format(sAux, sFormato)

    Exit Function
ERRO:
    fnValidarData = ""
End Function

Em seguida altere sua query para que formate a data para YYYY/MM/DD, conforme abaixo:

Código:

SELECT TAB_CADASTRO.PROTOCOLO,
      TAB_CADASTRO.ID,
     TAB_CADASTRO.CPF,
     TAB_CADASTRO.NOME,
     TAB_CADASTRO.FONE,
     TAB_CADASTRO.MODALIDADE,
     TAB_CADASTRO.ORIGEM_RECURSO,
     TAB_CADASTRO.NUMERO_CONTRATO,
     TAB_CADASTRO.DATA_ASSINATURA,
     TAB_CADASTRO.CONFIRMACAO_ASSINATURA,
     TAB_CADASTRO.RETORNAR_EM,
     TAB_CADASTRO.CONTA_DEBITO,
     TAB_CADASTRO.CORRESP_CORRETOR,
     TAB_CADASTRO.EMPREENDIMENTO,
     TAB_CADASTRO.DESISTENCIA,
     TAB_OCORRENCIAS.PROTOCOLO,
     TAB_OCORRENCIAS.COD,
     TAB_OCORRENCIAS.OCORRENCIA,
     TAB_OCORRENCIAS.DATA,
     TAB_OCORRENCIAS.OBSERVACOES,
     TAB_OCORRENCIAS.MATRICULA
    
FROM TAB_CADASTRO
INNER JOIN TAB_OCORRENCIAS ON TAB_CADASTRO.[PROTOCOLO] = TAB_OCORRENCIAS.[PROTOCOLO]
WHERE TAB_OCORRENCIAS.DATA
BETWEEN #" & fnValidarData(Form_frmConsulta.Texto0, "YYYY/MM/DD") & "#
  AND  #" & fnValidarData(Form_frmConsulta.Texto2, "YYYY/MM/DD") & "#
  AND TabOcorrencias.Ocorrencia = " & Form_frmConsulta.Combinação6

Se caso não resolver o problema, por favor nos de maiores informações para que possamos tentar ajudar, ou se for o caso disponibilize o Banco de Dados.

Att,
Leandro Fonseca.

Boa tarde,

Segue o BD2

http://dl.dropbox.com/u/37804873/BD2.rar


Agradeço a sua ajuda,

Adilson

Adilson,

Na query tem a função:

Código:

MAX(TAB_OCORRENCIAS.COD)

Você quer que retorne apenas o ultimo registro cadastrado? Essa é uma função agregada e é necessário que agrupe as demais colunas com GROUP BY.

Att,
Leandro Fonseca.

Adilson,

Se for para exibir todos os registro de ocorrências, ficaria mais ou menos assim (veja anexo).
Quando você for usar os campos combos não esquece de utilizar o ID para armazenar o valor na tabela.
Falta implementar o resto da sua lógica, eu alterei apenas a query para que fique correta.

Se tiver alguma dúvida estou a disposição.

Att,
Leandro Fonseca.

Não estou entendendo.


Esse banco de dados não é seu?

att

Adilson

dyl2011.programador,

Não é você que está com problemas com a Query?
E essa query não é dessa base de dados?

Será que eu me confundi!

Att,
Leandro Fonseca.

Rapaz perdão.

Vou lhe explicar, agora que clareou. é um integrante deste forum que tava com esse problema amigão, (me perdoe mesmo) tô pensando que voce era ele.

Valeu vou avaliar, depois pois estou repaando uns erros no meu Back end com Avelino.

Depois entro m contato

Brigadoo


Adilson