Datos De Un Dbgrid A Un Calendario

[kainchu3102]

Solo me trajo una sola fecha y me la marco en el calendario, en realidad lo que quiere es que me traiga todas las fechas guardados desde un dbgrid o desde la base de datos mysqly me muestre seleccionada en el calendario

[kainchu3102]

Tambien intente con un FDQuery pero igual me trae una sola fecha


procedure TFORMCALENDARIO.BitBtn1Click(Sender: TObject);
begin
with DataModule1.FDQuery1 Do
begin
SQL.Clear;
SQL.Add ('SELECT fec_tur FROM turnos');
// ORDER BY fecha_desde ASC'
Open();
end;

CAL1.Date := DataModule1.FDQuery1.Fields.FieldByName('fec_tur').AsDateTime;

end;

[mRoman]

Hola Kainchu.

En este link hablan de lo q necesitas....checalo talvez te resuelva tu problema.

Saludos.

[kainchu3102]

Muchas gracias mi hermano pero no me sirvio

[Neftali [Germán.Estévez]]

Empezado por kainchu3102

Solo me trajo una sola fecha y me la marco en el calendario

Es correcto, pues es lo que tú le has indicado.

Código Delphi [-]
MonthCalendar1.date := DBGTURNOS.DataSource.DataSet.FieldByName('fec_tur').AsDateTime;

Con esta línea has asignado 1 fecha a la proipiedad Date del Calendario.

Empezado por kainchu3102

en realidad lo que quiere es que me traiga todas las fechas guardados desde un dbgrid o desde la base de datos mysqly me muestre seleccionada en el calendario

Para eso deberás ejecutar la consulta y realizar un recorrido por el resultado (todos los registros) para ir asignándolos.

Código Delphi [-]
with DataModule1.FDQuery1 Do
  begin
  SQL.Clear;
  SQL.Add ('SELECT fec_tur FROM turnos');
  Open();
  while not eof do begin
    MonthCalendar1.date := FieldByName('fec_tur').AsDateTime;
    Next;

  end;

     end;

El problema es que MonthCalendar1 sólo tiene una propiedad Date para asignar, por lo tanto en cada registro estás "machacando" la fecha del anterior. Al menos el componente estandard de Delphi.

Tendrás que buscar un componente diferente o asignar las fechas de otra manera.