Formato de fechas para DateTimePicker incompatible con SQLite

[roman]

Empezado por martini002

he estado lidiando con un problemita de formato para fechas
entre el DateTimePicker y el formato de una columna tipo Date de la base de datos,

Estás buscando la solución a un problema que no existe. No hay tal cosa como incompatibilidad de formatos de fecha entre una base de datos y un datetimepicker, simplemente porque el almacenamiento (base de datos) y presentación (datetimepicker) son dos cosas distintas.

La pregunta correcta es ¿cómo insertar/leer valores de tipo DATE en una base de datos? Y fíjate que digo base de datos , así, en general, y no SQLite.

Aquí dos ejemplos, de inserción y de lectura, usando ZEOS:

Código Delphi [-]
procedure TForm1.btnAgregarClick(Sender: TObject);
begin
  ZQuery1.SQL.Text := 'insert into perosnas (nombre, fecha) values (:nombre, :fecha)';
  ZQuery1.ParamByName('nombre').AsString := txtNombre.Text;
  ZQuery1.ParamByName('fecha').AsDate := dtpFecha.Date;
  ZQuery1.ExecSQL;

  txtNombre.Clear;
end;

procedure TForm1.btnBuscarClick(Sender: TObject);
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text := 'select * from personas where fecha = :fecha';
  ZQuery1.ParamByName('fecha').AsDate := dtpFecha.Date;
  ZQuery1.Open;

  if not ZQuery1.IsEmpty then
    txtNombre.Text := ZQuery1['nombre'];
end;

Mientras uses parámetros, el componente se encargará de pner l fecha en el formato adecuado para cada base de datos.

// Saludos

[martini002]

Caramba, no lo puedo creer,
esto lo intente antes, pero entonces no se que haria mal,
porque estaba leyendo desde el picker AsDate pero entonces me daba un error
ahora que lo recuerdo, me decia que no reconocia el AsDate, entonces tenia que usar AsDateTime,
creo que alli es donde estaba el error entonces, oye Roman, Un millon de Gracias enserio, porque estuve 3 dias
con la moral caida y no habia podido hacer mas nada :')

lo acabo de ver, aqui lo tengo,
Ahora tengo el problemita en modo inverso, y asi es como estaba intentando

Código Delphi [-]
  ZQuery2.Close;
  ZQuery2.SQL.Text:= 'Select Min(Fecha) as FechaInicial From FacturaResumen';
  ZQuery2.Open;
  PFechaInicio.Date:= ZQuery2.FieldByName('FechaInicial').AsDateTime;

aqui puedes apreciar que el tipo es "AsDateTime" pero me dice que la fecha no es correcta.
un saludo, gracias!

[roman]

Empezado por martini002

lo acabo de ver, aqui lo tengo,
Ahora tengo el problemita en modo inverso, y asi es como estaba intentando

Código Delphi [-]
  ZQuery2.Close;
  ZQuery2.SQL.Text:= 'Select Min(Fecha) as FechaInicial From FacturaResumen';
  ZQuery2.Open;
  PFechaInicio.Date:= ZQuery2.FieldByName('FechaInicial').AsDateTime;

aqui puedes apreciar que el tipo es "AsDateTime" pero me dice que la fecha no es correcta.
un saludo, gracias!

Tienes razón, y no creo que hya mucho qué hacer aquí debido al manejo de datos (innecesariamente pobre, diría yo) que hace SQLite y que ya mencionó ecfisa. Básicamente, SQLite ve cualquier dato como una cadena de caracteres.

Sin embargo, tampoco es difícil leer ese valor:

Código Delphi [-]
var
  FS: TFormatSettings;

begin
  ZQuery1.Open;
  FS.ShortDateFormat := 'y-m-d';
  FS.DateSeparator := '-';
  DateTimePicker1.Date := StrToDate(ZQuery1.FieldByName('fecha').AsString, FS);
end;

// Saludos

[martini002]

Interesante esa solucion Roman,
pero he decidido hacer caso omiso a ese requerimiento,
para no complicar las cosas con esa BD he preferido
mostar los datos desde los ultimos 30 dias,
implementando este metodo:
y muerta la culebra por la cabeza
muchas gracias por la ayuda

Código Delphi [-]
PFechaInicio.Date:= Date - 30;