Consulta usando Query

Delphi

18/08/2003

Em minha tabela Paradox tenho um campo chamado “inicio&8221; do tipo &8220;date&8221;. Como faço uma consulta nesse campo de modo que o resultado apareça num DBGrid?
Usei o seguinte código:

QRAluno.Close;
QRAluno.SQL.Clear;
QRAluno.Sql.Add(´SELECT Malun,Nome,Cpf,Dvenc,Hora,Ini,Ter FROM Aluno´);
QRAluno.Sql.Add(´WHERE Ini = :VDDtaInc´);
QRAluno.Params[0].AsDateTime := StrTodate(Edit1.Text);
QRAluno.Open;

Mas ele fica só dando o erro. Ele está certo. Tem alguma outra forma de se fazer está consulta usando Query?

Denysk


Denysk

Denysk

Curtidas 0

Respostas

Rjanuzzi

Rjanuzzi

18/08/2003

Olá Denysk,

tente aí:

QRAluno.Params[0].[b:53b5578dc3]AsDate[/b:53b5578dc3] := StrTodate(Edit1.Text);


GOSTEI 0
Profjohnny

Profjohnny

18/08/2003

Olá Denysk, tente aí: QRAluno.Params[0].[b:20010e1acd]AsDate[/b:20010e1acd] := StrTodate(Edit1.Text);


Se naum der ceto tente usar uma formatação para data como FormatDateTime para inverter a data...
se eu naum estou enganado em sql a data é invertida assim
mes/dia/ano e naum como estamos acostumado dia/mes/ano

até mais colega...


GOSTEI 0
Vander Batista

Vander Batista

18/08/2003

Declare ua variável Data1 tipo TDateTime;


Passe o valor para ela de um edit:
Data1:=StrToDate(Edit1.Text);

Depois na Consulta chame:

QrAluno.Params[0].Value:=Data1;
ou
QrAluno.Params[0].AsDate:=Data1;


GOSTEI 0
POSTAR