Problema con consulta (Extraño)

[[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