23 respuestas en este tema

[JordiP]

Perdona egostar, me aventuré al querer ver solucionado el tema de los DateTime. Resulta que en los campos "Date" el problema si que esta resuelto, pero en los DateTime se presenta otro totalmente diferente:

Al insertar un registro Date en una tabla DBF de FoxPro, el registro se crea corretamente, pero cuando intento utilizar un DateTime, no logro que guarde la Hora, siempre la graba como "12:00:00 AM".

El codigo es el mismo del otro POST pero varia en el valor del campo:

delphi

with DataModule1.ADOQuery_Importar do
begin
  active:=false;
  connectionString:='Provider=VFPOLEDB.1;Data Source=C:\IDX\Gesgru\2008;Password="";Collating Sequence=MACHINE';
  SQL.Clear;
  SQL.Add('INSERT INTO table2 (fecha) VALUES (:FECHA)');
  Parameters.ParamByName('FECHA').DataType := ftDateTime;
  Parameters.ParamByName('FECHA').Value := StrToDateTime('13/12/2044 11:22:33');
  ExecSQL;
end;

Como veras el tipo de campo es DateTime y el valor le añado la Hora, pues en la tabla FOX no guarda esa hora 11:22:33 sino que graba 12:00:00

He probado de pasarlo con diferentes separadores, con el AM y nada de nada. Que se me puede estar escapando ?

Gracias.

[eduarcol]

el campo que esta definido en la tabla, estas seguro que es de tipo datetime y no solo date?

[JordiP]

Si que es un DataTime ya que me crea un registro con el formato "dd/mm/yyyy hh:mm:ss AM".

Seguro que es una tonteria y no hayo la solución

Gracias.

[egostar]

Hola

Intenta con esto, a ver si se soluciona.

delphi

Parameters.ParamByName('FECHA').DataType := ftTimeStamp;

Salud OS

[JordiP]

nada de nada, he hecho la prueba con ftTimeStamp y nada mas asignarle este valor, da error.
Por lo visto solo reconoce Date, Time y DateTime y en cualquier modo no graba la hora.

La fecha la graba correctamente pero la Hora siempre pone "12:00:00 AM"

Ya no se que mirar, he estado todo el fin de semana haciendo pruebas y ya no veo donde puede estar el problema.

Si teneis alguna idea será muy bien recibida. 

[felipe]

¿Revisaste que no sea cosa de la configuración de la hora y fecha del equipo?


Saludos!

[JordiP]

podría ser pero probando 01:01:01 creo que no afecta si tiene un formato u otro, ya que el 01 es valido para hora, minuto y segundo.

En el caso de la fecha si que podría afectar por lo de yyyy/mm/dd o mm/dd/yyyy pero es justamente lo que no me da problemas, la fecha.

Gracias FELIPE por el intento.

Seguiremos esperando alguna otra pista 

[Wilson]

Aqui te pongo un ejemplo para trabajar con formatos (puedes cambiarlos a tu gusto),  ensaya mostrando un mensaje con el valor de un registro en especial,  si te funciona adaptalo al algoritmo de importación:

delphi

procedure TForm1.Button1Click(Sender: TObject);
 
var
  MySettings: TFormatSettings;
  s: string;
  d: TDateTime;
begin
  GetLocaleFormatSettings(GetUserDefaultLCID, MySettings);
  MySettings.DateSeparator := '-';
  MySettings.TimeSeparator := ':';
  MySettings.ShortDateFormat := 'mm-dd-yyyy';
  MySettings.ShortTimeFormat := 'hh:nn:ss';
 
  s := DateTimeToStr(Now, MySettings);
  ShowMessage(s);
  d := StrToDateTime(s, MySettings);
  ShowMessage(DateTimeToStr(d, MySettings));
end;

Sin embargo si usas 'mmm-dd-yyyy' como ShortDateFormat  por ejemplo (para mostrar Jun-09-2009), podría producirse un error al llamar StrToDateTime . Si es el caso podrías llamr d := VarToDateTime(s), para esto debes agrgar la unit Variants.

Espero te sirva de algo

Saludos

[JordiP]

Wilson nada de nada, seguimos en las mismas, no creo que se trate de formato, porque he probado de pasar '13/12/2044 11:22:33' de varias maneras y la que mejor acepta a la hora de ejecutar la sentencia SQL es esta, es decir "dd/mm/yyyy hh:mm:ss".

Seguiremos intentandolo y si a alguien se le ocurre alguna otra cosa...............

No quiero creer que sea al unico que se le ha presentado este problema, el FoxPro es demasiado antiguo como para que nadie haya tenido un problema parecido.

Un saludo a todos.

[enecumene]

Hola, se supone que el formato de fecha que acepta FoxPro es yyyy-mm-dd, por lo que se debería ser así:

delphi

Parameters.ParamByName('FECHA').Value := StrToDateTime('2044-12-11 11:22:33AM');

Saludos.

[JordiP]

Ya de entrada, seguro que si le pones AM en el string, te dara error la funcion de Delphi StrToDateTime
 

delphi

StrToDateTime('2044-12-11 11:22:33AM');

Lo del formato del FoxPro con guion tampoco lo reconoce. el formato que se ve al editar una tabla en FoxPro es '12/11/2010 11:22:33 AM'.

Seguiremos mirando e investigando. Dudo que sea el primero y el unico que exporta datos a tablas FoxPro, con lo que alguien debe saber la solución. 

saludos 

[Wilson]

Se me ocurre algo que podría funcionar, y es colocar un DateTimePicker de intermediario para que haga las conversiones que sean necesarias, quedaria mas o menos asi.

delphi

SQL.Clear;  
 SQL.Add('INSERT INTO table2 (fecha) VALUES (:FECHA)');   
 Parameters.ParamByName('FECHA').AsDateTime := DateTimePicker.DateTime;
 ExecSQL;

Así descartarías el problema de formato.

PD: Importante poner AsDateTime en el parámetro.

Saludos

[enecumene]

Ya de entrada, seguro que si le pones AM en el string, te dara error la funcion de Delphi StrToDateTime
 

delphi

StrToDateTime('2044-12-11 11:22:33AM');

Perdón amigo en realidad fue un error de dedo, quise decir así:

delphi

Parameters.ParamByName('FECHA').AsDateTime := '2044-12-11 11:22:33AM';

Lo del formato del FoxPro con guion tampoco lo reconoce. el formato que se ve al editar una tabla en FoxPro es '12/11/2010 11:22:33 AM'.

mmm, qué raro amigo, viendo los tipos de campos en foxpro, se dice que esa base de datos es muy restrictiva en cuanto al formato de fecha, la cual se limita al formato yyyy-mm-dd. Aquí más información.

Seguiremos mirando e investigando. Dudo que sea el primero y el unico que exporta datos a tablas FoxPro, con lo que alguien debe saber la solución.  :'(

saludos 

Antes de seguir con esto, te faltó comentarnos qué versión de BD FoxPro, ya que cada versión hay cambios en la estructura de los tipos de campos.

[JordiP]

aaaaarrrggggg, que desespero con este tema. Vuestro consejo no va tampoco.

delphi

Parameters.ParamByName('FECHA').AsDateTime

No reconoce el "AsDateTime" Lo unico que permite poner es value y no se si hay otra manera de indicarlo ???

Os recuerdo que trabajo con Delphi 2010. Ah por cierto la versión del FoxPro es la 9.0 SP2. Lo peor de todo es que tengo lo ultimo de todo instalado.

seguiremos investigando. Cualquier otra idea se agradecerá.

[enecumene]

delphi

Parameters.ParamByName('FECHA').DataType := ftDateTime;
Parameters.ParamByName('FECHA').Value := '2044-12-11 11:22:33AM';

[JordiP]

Ya lo he probado y sigue igual. SERA POSIBLE ????????????????????????????

He probado con estas 2 cadenas de Conexión (Proveedor).

Cadena de Conexión 1:

delphi

  connectionString:='Driver={Microsoft Visual Foxpro Driver};UID=;SourceType=DBF;SourceDB=C:\dBase;Exclusive=Yes';
  SQL.Clear;
  SQL.Add('INSERT INTO table2 (fecha) VALUES (:FECHA)');
  Parameters.ParamByName('FECHA').DataType := ftDateTime;
  Parameters.ParamByName('FECHA').Value := '2044-12-11 11:22:33AM';
  ExecSQL;

Cadena de Conexión 2:

delphi

  connectionString:='Provider=VFPOLEDB.1;Data Source=C:\dBase;Password="";Collating Sequence=MACHINE';
  SQL.Clear;
  SQL.Add('INSERT INTO table2 (fecha) VALUES (:FECHA)');
  Parameters.ParamByName('FECHA').DataType := ftDateTime;
  Parameters.ParamByName('FECHA').Value := '2044-12-05 11:22:33PM';
  ExecSQL;

en abmos casos me da exactamente el mismo problema, no graba la hora.

[enecumene]

Ah joder, voy a tener que conseguir VFP para hacer unas pruebas, porque no puede ser

[JordiP]

pues te estaria eternamente agradecido por el gesto.

[JordiP]

He probado utilizar un TQuery y un Alias (DNS), ha funcionado pero no del todo bien. Explico:

La fecha y hora se graban bien en esta ocasion pero no se porque, en el momento de ExecSQL se crean varios registros iguales en vez de 1 solo.

El codigo probado es el siguiente:

delphi

with DataModule1.Query1  do
begin
  databasename:='Prueba FoxPro';
  SQL.Clear;
  SQL.Add('INSERT INTO table2.dbf (fecha) VALUES (:FECHA)');
  Params.ParamByName('FECHA').DataType := ftDateTime;
  Params.ParamByName('FECHA').Value := '2044-12-05 11:22:33PM';
  ExecSQL;
end;

Bueno parece que algo se avanza pero a la vez vamos hacia atras.

Saludos

[enecumene]

pues te estaria eternamente agradecido por el gesto.

Qué extraño, no encuentro donde descargar el trial de Visual FoxPro , sólo veo Services Packs y AddOns