Intervalo de Datas - SqlServer 2000

Question

Sauda��es Dephianas!!!!Estou � frente de um problema duro de se resolver. Eu tenho uma tabela com um campo DATA, no formato varchar. Qdo o usu�rio insere um registro, esta data � gravada no formato 00...

Emerson Nascimento · Answer

tente assim:[code:1:bd3cad4548]select  *from  sua_tabelawhere  convert(datetime, campo_data, 103) between :datainical and :datafinal[/code:1:bd3cad4548]...

Roger1976 · Answer

emerson, eu tinha colocado desta forma:

with ClientDataSet1 do
begin
close;
commandtext := � select * from TESTE � +
� where convert(datetime, DATA_NASC, 103) between � +
FormatDateTime(�DD/MM/YYYY�, StrToDate(Edit1.Text)) + � and � + FormatDateTime(�DD/MM/YYYY�, StrToDate(Edit2.Text));
open;
end;

kra, simplesmente n�o traz informa��o alguma. e o problema � q o campo DATA j� foi criado como varchar(250) (n�o foi eu quem criou) e cont�m informa��es.

T� dif�cil, j� usei cast, n�o funcionou, estou ficando sem op��es.

Obrigado pela for�a, caso tenha alguma outra id�ia, ser� muito bem-vinda.

[]s

Emerson Nascimento · Answer

n�o use datas como strings concatenadas. assim voc� precisar� saber como est� definido o formato de datas no SGBDR.
passe as datas como par�metros para o dataset. assim o mecanismo (driver) do banco de dados se encarrega de enviar a data na formata��o correta.
tente assim:

with ClientDataSet1 do
begin
  close;
  commandtext :=
    �select * from TESTE � +
    �where convert(datetime, rtrim(ltrim(DATA_NASC)), 103) �+
    � between :DataInicial and :DataFinal �;
  params.parambyname(�datainicial�).asqltimestamp :=
    datetimetosqltimestamp(StrToDate(Edit1.Text));
  params.parambyname(�datafinal�).asqltimestamp :=
    datetimetosqltimestamp(StrToDate(Edit2.Text));
  open;
end;

para usar a fun��o DateTimeToSQLTimeStamp � necess�rio adicionar a unit SqlTimSt na cl�usula uses.

Roger1976 · Answer

emerson, muito obrigado, agora funcionou, s� fiz uma pequena altera��o, que deu na mesma:

with ClientDataSet1 do
begin
close;
commandtext := � select * from TESTE where convert(datetime, DATA_NASC, 103) between :data1 and :data2�;
Params.parambyname(�data1�).value := FormatDateTime(�DD/MM/YYYY�, StrToDate(Edit1.Text));
Params.parambyname(�data2�).value := FormatDateTime(�DD/MM/YYYY�, StrToDate(Edit2.Text));
open;
end;

Valeu mesmo!

[]s

Emerson Nascimento · Answer

tire esse FormatDateTime da�......