Problema con consulta (Extraño)

[jhonny]

Empezado por vtdeleon

No enteindo como funciona al revez.

No se porque no había preguntado eso antes, pues de hecho cuando puse ese código al revés inmediatamente caí en cuenta lo edite y lo coloque al derecho, pero luego Caral dijo que funciono y bueno yo también me quede medio enredado.

[vtdeleon]

Estamos todos enliado. Caral danos luz!

[[Caral]]

Hola
Pues cosas de la vida insolitas, cuando me disteis el codigo pense exactamente lo mismo, aun asi lo coloque como estaba y funciona, como, no se, revisando mi codigo en otros form, cuando uso parametros, primero uso el parametro y luego activo la consulta, asi:
Ejemplo de un codigo:

Código Delphi [-]
 begin
      try
         QRTransPend:=TQRTransPend.Create(self);
          begin
          QRTransPend.ADOQuery1.Parameters[0].Value := Edit3.Text;
          QRTransPend.ADOQuery1.Parameters[1].Value := Edit4.Text;
         end;
         QRTransPend.ADOQuery1.Open;
         If RadioGroup1.ItemIndex = 0 then QRTransPend.Print
         else QRTransPend.Preview;
      finally
         QRTransPend.Free;
      end;

Preguntais a este novato , que dificil.
Para mi es que me quiere tanto delphi que hace todo lo posible para servir sea como sea.
Saludos

[[Caral]]

Nota curiosa:
Acabo de invertir el parametro en una consulta y tambien funciona, osea al reves y al derecho.
Delphi, eres genial.
Hay que preguntar esto a Borland.
Saludos

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

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.