Datos De Un Dbgrid A Un Calendario
 

BUENAS GENTE MI CONSULTA ES LA SIGUIENTE COMO HAGO PARA LLEVAR DATOS DE FECHA DE UN DBGRID A UN CALENDARIO YA CON FECHAS SELECCIONADAS EN EL DBGRID Y QUE SE REFLEJEN EN EL CALENDARIO? MUCHAS GRACIAS DESDE YA

YO INTENTE CON ESTE CODIGO PERO NO MARCHA NI PARA NI PARA ADELANTE

DBGTURNOS.DataSource.DataSet.Fields.FieldByName('fec_tur').AsDateTime := MonthCalendar1.date;

Antes de nada te recomiendo revisar la Guía de estilo de los foros.
Y de paso, podrías editar tu mensaje y eliminar las mayúsculas.

El destino de la asignación debe estar a la izquierda, por lo tanto si quieres asignar los que hay en el Grid al Calendario, el código debería ser este:

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

Y de paso utiliza TAG's cuando pongas código en los mensajes.

No se pudo!
 

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

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;

Hola Kainchu.

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

Saludos.

Muchas gracias mi hermano pero no me sirvio :(

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.



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.

Como haz planteado el problema, la solución que se te da es la correcta.

Pero si lo que buscas es poder plasmar un grupo de fechas en un calendario, entonces o haces tu propio desarrollo o usas un componente de tercero.

Acá te dejo el link a un proyecto en github KingCal Delphi Calendar Component - Open Source Edition No se si es lo que buscas y nunca he usado el componente, pero puede darte una guía.

Algo mas comercial... DevExpress - VCL Scheduler - Month view