Consulta Com Query - RESOLVIDO

[ricardo_sdl]

Olá pessoal, o meu problema é o seguinte: Eu tenho uma tabela no Paradox com um campo guardando data depois na hora de fazer uma consulta usando query eu uso uma variável como parâmetro da consulta, mas acontece um erro dizendo que string e data são incompatíveis, então como faço para comparar?

ex:

Query.sql.add('Select * from Classificacao.db where DataColeta=" '+data+'"');

[Corposemalma]

faca assim

Query.sql.add('Select * from Classificacao.db where DataColeta = :data);

query.parambyname('data').asdate := data;

[ricardo_sdl]

Este codigo ta dando parametro invalido, o que eu posso fazer?

[Capablanca]

Este codigo ta dando parametro invalido, o que eu posso fazer?

Tente utilizar o código que eu postei no outro tópico que você inseriu.

[Arlon]

faca assim

Query.sql.add('Select * from Classificacao.db where DataColeta = :data);

query.parambyname('data').asdate := data;

O certo não seria:

Query.sql.add('Select * from Classificacao where DataColeta = :data); // ou seja, tira o ".db". Quando você for fazer uma pesquisa não precisa por a extenção, ponha só o nome da tabela.

query.parambyname('data').asdate := data;

Bem Ricardo, qualquer coisa poste aí.

[ricardo_sdl]

Olá pessoal, infelizmente o código não esta funcionando ainda, continua dando o mesmo erro, parametro inválido. Aí vai o código para vocês darem uma olhada:

Eu fiz as alterações sugeridas, as variáveis data_inicial e data_final vem de outra unit.

Query_Pesquisa.SQL.Clear;

query_pesquisa.Close;

if (pesquisa=0) then

begin

Query_Pesquisa.SQL.Add('Select * from Classificacao where DataColeta>=:data_inicial and DataColeta<=:data_final');

Query_Pesquisa.ParamByName('data_inicial').AsDate:=data_inicial;

query_pesquisa.ParamByName('data_final').AsDate:=data_final;

query_Pesquisa.Open

end;

[Corposemalma]

tenta colokar espaços e usar between:

Query_Pesquisa.SQL.Add('Select * from Classificacao where DataColeta BETWEEN :data_inicial AND :data_final');

[ricardo_sdl]

Infelizmente o mesmo erro, mas ta dando erro em outra linha que naõ dava erro saca só:

query_Pesquisa.SQL.Add('Select * from Classificacao where NomeVulgar="'+texto+'"');

query_pesquisa.Open;

O mesmo erro de parametro invalido.

[Corposemalma]

esse erro da na execucao ou na compilacao?

[s3c]

Tente .asDateTime

[ricardo_sdl]

Finalmente, me desculpem pelo trabalho pessoal o problema era o seguinte, tinham dois arquivos .LCK no diretório da aplicação foi só deleta-los e pronto todas as buscas funcionaram perfeitamente. Valeu pelas dicas pessoal!!

[Arlon]

Só não entendi uma coisa: o que que os tais dos arquivos .LCK têm a ver com a história??

[ricardo_sdl]

LCK vem de Lock, ou seja, de travar. Eles são criados no momento em que você abre a tabela(coisas do paradox), mas quando ocorre algum término anormal de programa esses arquivos não são alterados deixando a tabela travada como se tivesse alguém usando-a, falou galera!

[Corposemalma]

Exatamente!

Problema resolvido Tópico fechado!