PDA

Ver la Versión Completa : AdoQuery y dos fechas


jocey
28-11-2007, 14:21:33
Antes que nada saludar a la noble sociedad del club, espero y deseo que todos esten bien, bueno, tengo un informe con QuickReport, pero que utilizo Adoquery, esta consulta que hago con el Adoquery con access como gestor de base de datos me trabaja de maravilla, pero si el gestor es SQl me da error diciendo que 'DateValue' no es un parametro soportado o algo parecido, les pongo aqui el codigo de como lo uso para access a ver si alquien me puede ayudar como seria en sql..... saludos de antemano

Jocey


procedure TFormprincipal.Button1Click(Sender: TObject);
var dia1, dia2 : string;
begin
dia1 := DatetoStr(formprincipal.DateTimePicker1.Date);
dia2 := DatetoStr(formprincipal.DateTimePicker2.Date);
try
with formre do
formre.ADOQuery1.SQL.Add('WHERE (((incidencias.fechainicio) Between ''' + dia1 + ''' And ''' + dia2 + '''))');
formre.ADOQuery1.Open;
formre.QuickRep1.Preview;
{formre.DataSetre.Last;}
Finally
formre.QuickRep1.Free;
formre.ADOQuery1.Last;
{formre.ADOQuery1.Close;}
end;
end;

enecumene
28-11-2007, 15:53:30
Hola, intentalo de esta manera:

procedure TFormprincipal.Button1Click(Sender: TObject);
begin
try
with formre do
formre.ADOQuery1.SQL.Add('WHERE (((incidencias.fechainicio) Between :dia1 And :dia2))');
formre.ADOQuery1.Params.ParamByName('dia1').value := DateTimePicker1.Date;
formre.ADOQuery1.Params.ParamByName('dia2').value := DateTimePicker2.Date;
formre.ADOQuery1.Open;
formre.QuickRep1.Preview;
{formre.DataSetre.Last;}
Finally
formre.QuickRep1.Free;
formre.ADOQuery1.Last;
{formre.ADOQuery1.Close;}
end;
end;

Espero que te ayude

Saludos.