none
VB 6 e Access 2003 - Problema com consulta em parametro de data RRS feed

  • Pergunta

  • Pessoal, estou arrancando meus cabelos com uma query SQL no Access 2003 via VB6, vejam se podem me ajudar...

    Estou executando a seguinte consulta dentro do Access 2003 e ele me retorna 4 linhas (CORRETO! só tem 4 registros com data inferior à 30/12/2009 mesmo):

    SELECT VAGAS.ID_Vaga, usuarios.login, usuarios.unidade, STATUS.Status_vaga, VAGAS.Data_Abertura, VAGAS.Data_Ult_Contato, VAGAS.Data_Limite_Cliente, VAGAS.Data_Fech_Cancel, CLIENTES.Cliente, CLIENTES.Razao_social, CLIENTES.cnpj, TITULOS_VAGAS.Tit_Vaga, VAGAS.Detalhamento_Vaga, VAGAS.Qtde_Vagas, TIPO_VAGA.Tipo_Vaga, VAGAS.Valor_Salario, VAGAS.taxa_Selecao, VAGAS.Taxa_Cancel, VAGAS.Ocorrencia, VAGAS.codcon, VAGAS.data_atualizacao, VAGAS.nc FROM vagas, usuarios, status, clientes, titulos_vagas, tipo_vaga WHERE usuarios.id_usuario = vagas.consultor and status.id_status_vaga = vagas.status_vaga and clientes.id_cliente = vagas.cliente and titulos_vagas.id_tit_vaga = vagas.tit_vaga and tipo_vaga.id_tipo_vaga = vagas.tipo_vaga and usuarios.unidade = 2 and vagas.data_abertura < #30/12/2009# ORDER BY vagas.id_vaga

    Só que ao executar EXATAMENTE a mesma query via VB6, ele não traz nada, dá sempre EOF = true! Já tentei formatar a data em zilhoes de formatos diferentes, já tentei passar a data como string, já converti a data vinda do controle DataPicker para data com o CDate, mas nada resolve!! Por favor, alguém dê alguma luz, estou desesperado mesmo. Se eu tiro o parametro de data da consulta, aí o mardito VB acha dados!

    Detalhe: Estou usando Windows XP SP2 e a data do sistema está definida como "dd/MM/yyyy". Já usei esta formatação acima mas não traz nada. No Access, o campo está definido como DATA ABREVIADA, sem mascara.

    segunda-feira, 13 de setembro de 2010 14:16

Respostas

Todas as Respostas

  • Fala Coltrane

    Você poderia Postar como está abrindo o seu Recordset?


    []s.

    Alan Cossari.

    Twitter Facebook
    segunda-feira, 13 de setembro de 2010 15:58
  • Estou abrindo deste jeito:

    dim RS as New ADODB.Recordset

    With RS
            RS.Open SQL, DBConn, adOpenStatic, adLockReadOnly

    Sendo SQL a variavel que armazena a consulta que colei na 1a mensagem.

    segunda-feira, 13 de setembro de 2010 17:00
  • Esta data você está fixando exatamente do jeito que você postou ou você está pegando o valor de alguma variável?
    []s.

    Alan Cossari.

    Twitter Facebook
    segunda-feira, 13 de setembro de 2010 17:09
  • RESOLVIDO! Acabei de descobrir que o programa estava abrindo conexão com a base errada, e nesta outra base não tinha os dados que eu estava procurando! A consulta está perfeita e agora trouxe os dados pesquisados. Estava muito estranho mesmo, não acredito que perdi a manhã toda nisso!

    De qualquer maneira está resolvido. Peço 1000 desculpas pelo inconveniente, mas fica o alerta para quem quiser trabalhar com multiplas conexões de bancos de dados no mesmo programa, cheque 15 vezes se você está conectado na base correta! :P

    Grato pela presteza.

    Um abraço.

    Rogério.

     

    • Sugerido como Resposta Alan Cossari segunda-feira, 13 de setembro de 2010 18:49
    segunda-feira, 13 de setembro de 2010 18:21
  • Marque Como respondido para encerrar a Thread
    []s.

    Alan Cossari.

    Twitter Facebook
    • Marcado como Resposta R.Coltrane segunda-feira, 13 de setembro de 2010 18:50
    segunda-feira, 13 de setembro de 2010 18:50
  • Acredito que marquei. CLiquei nop botão "marcar como resposta", é só isso mesmo?

    Um abraço.

    • Marcado como Resposta R.Coltrane segunda-feira, 13 de setembro de 2010 18:51
    segunda-feira, 13 de setembro de 2010 18:51
  • Sim é isto mesmo.
    []s.

    Alan Cossari.

    Twitter Facebook
    segunda-feira, 13 de setembro de 2010 18:52