Buscar un archivo

[[egostar]]

Empezado por Caral

Hola

En principio es lo mismo que el programa de Lepe, solo un poco mas extendido.
Intente hacerlo con una base de datos, cambiando el memo por un dbmemo, pero, no me lee de la tabla, pienso que debe ser por tener un solo memo creado y repetido tantas veces como dias.
Me gustaria hacerlo con una base de datos, no se como, no me sale, me das un empujón.
Saludos

Veo que muestras la información cuando das click en el día, puedes hacer esto en el mismo evento.

Código Delphi [-]
  TuQuery.SQL.Text := 'select campo_memo from tabla where fecha = :fecha';
  TuQuery.ParamByName('fecha').AsDate := Fecha;
  TuQuery.Open;
  if TuQuery.RecordCount > 0 then begin
    mmo.Lines.Add(TuQuery.fields[0].asString);
  end;

Salud OS.

[[Caral]]

Hola
No hay manera, por mas que intento, no me recoge la informacion.
Sigo intentando.
Saludos

[[Caral]]

Hola
Puedes intentar hacer una base de datos, ojala access, y veras a lo que me refiero, no da errores, pero no carga nada, le he dado vueltas al codigo y nada.
Saludos

[[Caral]]

Hola
Me acaba de pasar algo curioso, usando este codigo:

Código Delphi [-]
  ShortDateFormat := 'mm/dd/yyyy';
  ADOQuery1.SQL.Text := 'Select Comentarios From Dias WHERE Fecha = '+DateToStr(Fecha);
   ADOQuery1.Active := True;
   ShortDateFormat := 'dd/mm/yyyy';
   mmo1.Lines.Text:= ADOQuery1.Fields[0].Text;

Me devuelve la palabra (MEMO) en cualquier dia que presione.
Que sera?, nunca me ha pasado algo asi.
Saludos

[[egostar]]

Hola amigo Carlos.

Hice las pruebas con una tabla paradox, no tengo access (sorry), aqui te pongo como quedaron las funciones

Código Delphi [-]
procedure TFrCelda.pnl1Click(Sender: TObject);
begin
  Selected := not Selected;
  Form1.Query1.Close;
  Form1.Query1.ParamByName('fecha').AsDate := Fecha;
  Form1.Query1.Open;
  if Form1.Query1.RecordCount > 0 then begin
     mmo1.Lines.Add(Form1.Query1.FieldByName('CampoMemo').Value);
  end;
end;

procedure TFrCelda.Panel1Click(Sender: TObject);
begin
  with Form1.Table1 do begin
     Open;
     Append;
     Form1.Table1Fecha.Value := Fecha;
     Form1.Table1CampoMemo.Value := Mmo1.Text;
     Form1.Table1Status.Value := 0;
     Post;
     Close;
  end;
  mmo1.Lines.Clear;
end;

La sentencia SQL del query es esta

Código SQL [-]
 
select * from agenda
where fecha = :fecha

Funciona sin problema.

Salud OS

Edito

Cuando agregas comentario debes de validar que no exista esa fecha asignada, de otra forma tendrás latosas inconsistencias

[[Caral]]

Hola
Lo voy a revisar, te comento, gracias.
Saludos

[[Caral]]

Hola
Bueno, aqui los resultados:
Ya coloque la base de datos, con la tabla Dias y los campos, Fecha, Comentarios, Estado.
Coloque el codigo que me diste, en Access no es igual la sintaxis, pero esencialmente similar, asi:
Recoger informacion:

Código Delphi [-]
procedure TFrCelda.pnl1Click(Sender: TObject);
begin
  Selected := not Selected;
  Form1.ADOQuery1.Close;
  Form1.ADOQuery1.Parameters.ParamByName('fecha').Value := Fecha;
  Form1.ADOQuery1.Open;
  if Form1.ADOQuery1.RecordCount  > 0 then
  begin
  mmo1.Lines.Add(Form1.ADOQuery1.Fields[1].AsString);
  end;
end;

Y Grabar la informacion:

Código Delphi [-]
procedure TFrCelda.Panel1Click(Sender: TObject);
begin
   with Form1.ADOTable1 do begin
     Open;
     Append;
     Form1.ADOTable1Fecha.Value := Fecha;
     Form1.ADOTable1Comentarios.Value := mmo1.Text;
     Form1.ADOTable1Estado.Value := '0';
     Post;
     Close;
  end;
  mmo1.Lines.Clear;
end;

Para grabar la informacion no hay problema lo hace perfectamente.
Para recoger la informacion, solo recoge el primer dato de la tabla y no respeta la fecha.
Fecha...........Comentarios.........Estado
05/07/2007......nada.................0
06/07/2007......otro..................0
Siempre muestra el primer dato, no importa en que dia se presione.
A que se debera esto, no lo entiendo.?
Saludos