Problema con consulta (Extraño)

[roman]

Pero además, me parece que DEBERÍA funcionar sin tanta conversión:

Código Delphi [-]
ADOQuery1.Parameters[0].Value:= StrToDate(DateToStr(DTP1.Date));
ADOQuery1.Active:= True;

esto es, como mencionaba Van Troi:

Código Delphi [-]
ADOQuery1.Parameters[0].Value:= DTP1.Date;
ADOQuery1.Active:= True;

pues en el primer caso regresamos a un tipo TDate.

Pero, ¡no funciona! ¿Y saben por qué? ¡Porque el valor de DTP1.Date no es un Date! Tiene la parte fracionaria del tiempo. ¿No se supone que debería estar truncado? ¿Será que me falta aplicar algún parche al Delphi?

// Saludos

[vtdeleon]

Tienes razon, lo trae todo. Lo probe con el Turbo.

[vtdeleon]

Me dá, que si se aplica esto:

Código Delphi [-]
ADOQuery1.Parameters.ParamByName('fecha').DataType:=ftDate

deberia funcionar sin la conversión.

[roman]

Pues no. Al menos en mi caso, si pongo

Código Delphi [-]
ADOQuery1.Active := false;

ADOQuery1.Parameters.ParamByName('fecha').DataType := ftDate;
ADOQuery1.Parameters.ParamValues['fecha'] := DateTimePicker1.Date;

ADOQuery1.Active := true;

no funciona. Pero si pongo

Código Delphi [-]
ADOQuery1.Active := false;

ADOQuery1.Parameters.ParamByName('fecha').DataType := ftDate;
ADOQuery1.Parameters.ParamValues['fecha'] := Trunc(DateTimePicker1.Date);

ADOQuery1.Active := true;

funciona bien. Incluso puedo quitar la asignación del tipo de datos:

Código Delphi [-]
ADOQuery1.Active := false;

ADOQuery1.Parameters.ParamValues['fecha'] := Trunc(DateTimePicker1.Date);

ADOQuery1.Active := true;

pero entonces me falla si quiero una segunda consulta con otro parámetro.

// Saludos

[[Caral]]

Hola Roman
Esta si es una parte importante:

pero entonces me falla si quiero una segunda consulta con otro parámetro.

A mi me falla si creo una segunda consulta con otro parametro.
Osea si ejecuto una consulta bien pero si vuelvo a ejecutar otra me da el error.
Como lo soluciono, o si tiene que ver el orden en algo.
Saludos

[vtdeleon]

Ejecutando la misma consulta?

[roman]

Empezado por Caral

Esta si es una parte importante:

¿¡¡Esta Síiii!???

Y todo lo demás ¿no?

Je, je, disculpa, estoy de broma

// Saludos

[vtdeleon]

Con una tabla que tengo en access aqui me ha funcionado de 10.

Código Delphi [-]
With AdoQuery do
begin
  close;
  SQL.Text:='Select fecha from control where fecha<:fecha';
  Parameters.ParamByName('fecha').DataType:=ftDate;
  Parameters.ParamValues['fecha']:=Trunc(DateTimePicker1.Date);
  Open;
end;

Lo he ejecutado una y otra vez, y esta nítido!

[[Caral]]

Hola
Es Viernes me parece muy bien.
Perdon por la equivocacion, la consulta no da problemas, se puede hacer al reves y al derecho cuantas veces se quiera y no da problemas.
En realidad estaba en esta otra parte:

Código Delphi [-]
procedure TFReporteDiario.Button1Click(Sender: TObject);
begin
 //  revisa si ya fue procesado el reporte
   ADOQuery9.SQL.Add('WHERE ReporteDiario.Fecha =#'+DateToStr(DTP1.DateTime)+'#');
   AdoQuery9.Open;
   if DBEdit26.Text = DateToStr(DTP1.DateTime) then
    begin
   MessageDlg('Este Reporte ya fue Procesado.',mtInformation,[mbOK],0);
  ADOQuery9.Close;
//  Close;
  end
  else
  if MessageBox(Handle,
                PChar('Desea Procesar este Reporte' + #13#10 +
                      'Reporte diario de transacciones'),
                PChar('Reportes'),
                MB_OKCANCEL + MB_DEFBUTTON1 + MB_SYSTEMMODAL) = IDOK then
  begin
   ADOQuery9.Close;
   ADOTable1.Open;
   ADOTable1.Insert;
   DBEdit13.Text:= DateTostr(DTP1.DateTime);
   DBEdit14.Text:= DBEdit1.Text;
   DBEdit15.Text:= DBEdit2.Text;
   DBEdit16.Text:= DBEdit3.Text;
   DBEdit17.Text:= DBEdit4.Text;
   DBEdit18.Text:= DBEdit5.Text;
   DBEdit19.Text:= DBEdit6.Text;
   DBEdit20.Text:= DBEdit7.Text;
   DBEdit21.Text:= DBEdit8.Text;
   DBEdit22.Text:= DBEdit9.Text;
   DBEdit23.Text:= DBEdit10.Text;
   DBEdit24.Text:= DBEdit11.Text;
   DBEdit25.Text:= DBEdit12.Text;
   ADOTable1.Post;

end;
   end;

El problema se presenta, Cuando guardo la informacion en otra tabla, tengo que salir del programa cada vez que guardo la informacion.
Osea Guardo una vez, salgo, guardo y asi, bueno otro problemita.
Me lo chequeais.
Saludos
Saludos

[vtdeleon]

Empezado por roman

Pero, ¡no funciona! ¿Y saben por qué? ¡Porque el valor de DTP1.Date no es un Date! Tiene la parte fracionaria del tiempo. ¿No se supone que debería estar truncado? ¿Será que me falta aplicar algún parche al Delphi?

Lo mismo sucede con MonthCalendar.