6 respuestas en este tema

[JordiP]

Buenas, se me presenta un problema, quiero pasar información de una base de datos en Delphi a una tabla DBF de FoxPro.

Cuando leo registros con campos fecha (Date o DateTime) de la tabla DBF, no tengo problemas, se lee perfectamente como un string. El formato es '10/10/2010'. El problema se presenta cuando quiero insertar o modificar dicho campo fecha (Date) da error, me dice que "El Proveedor actual no admite que una única ejecución devuelva multiples recordsets".  Esto que es ? que quiere decir este mensaje ?

El codigo que he probado (en delphi) es el siguiente:

delphi

with DataModule1.ADOQuery_Importar do
  begin
    active:=false;
    connectionString:='Provider=VFPOLEDB.1;Data Source=C:\dirBD;Password="";Collating Sequence=MACHINE';
    SQL.Clear;
    SQL.Add('INSERT INTO table2 (fecha) VALUES (:FECHA)');
    Parameters.ParamByName('FECHA').Value := StrToDate('01/01/2010');
    active:=true;
  end;

En el propio FoxPro, la sentencia para insertar un registro es la siguiente:

sql

INSERT INTO table2 (fecha) VALUES (CTOD("11/10/2010"))

donde CTOD es un comando que convierte de caracter a Date

Esto mismo he hecho en Delphi y también da error

delphi

  with DataModule1.ADOQuery_Importar do
  begin
    active:=false;
    connectionString:='Provider=VFPOLEDB.1;Data Source=C:\dirBD;Password="";Collating Sequence=MACHINE';
    SQL.Clear;
    SQL.add('INSERT INTO table2 (fecha) VALUES (CTOD("11/10/2010"))');
    active:=true;
  end;

Alguien sabe de que manera se puede grabar un campo fecha en una tabla DBF de FoxPro ??

[egostar]

Hola JordiP, bienvenido a DelphiAccess.

Intenta con esto:

delphi

with DataModule1.ADOQuery_Importar do
  begin
    connectionString:='Provider=VFPOLEDB.1;Data Source=C:\dirBD;Password="";Collating Sequence=MACHINE';
    SQL.Clear;
    SQL.Add('INSERT INTO table2 (fecha) VALUES (:FECHA)');
 
    Parameters.ParamByName('FECHA').DataType := ftDateTime;
    Parameters.ParamByName('FECHA').ParamType := ptInput;
    Parameters.ParamByName('FECHA').Value := StrToDateTime('01/01/2010');
 
    ExecSQL;
  end;

Salud OS

Edito, No puedes usar active := true debes usar ExecSQL.

[JordiP]

Alusinante amigo EGOSTAR, que rapida tu respuesta, creo que no me ha dado tiempo ni de publicar la pregunta, jaja.

Te comento, utilizo Delphi 2010 y el componente es un TADOQuery y el campo ParamType que me comentas no existe en dicho componente. Es posible que hayan cambiado este campo por otro y lo desconozco. :^)

Espero poder encontrar una respuesta porque ya tengo casi acabado mi programa y me supondría una catastrofe tener que modificar parte del programa por este problema.

Gracias de nuevo por responder.

[egostar]

Hola JordiP

Tienes razón, no existe la propiedad ParamType en los componentes ADO, en su lugar es Direction

delphi

with DataModule1.ADOQuery_Importar do
  begin
    connectionString:='Provider=VFPOLEDB.1;Data Source=C:\dirBD;Password="";Collating Sequence=MACHINE';
    SQL.Clear;
    SQL.Add('INSERT INTO table2 (fecha) VALUES (:FECHA)');
 
    Parameters.ParamByName('FECHA').DataType := ftDateTime;
    Parameters.ParamByName('FECHA').Direction := pdInput;
    Parameters.ParamByName('FECHA').Value := StrToDateTime('01/01/2010');
 
    ExecSQL;
  end;

Salud OS

[JordiP]

Ya tengo solucionado el problema, el tema estaba en que utilizaba "active=true" en vez de "ExecSql". Según he leido hace unos minutos hay una importante diferencia entre una y otra instrucción, el hilo al que hago referencia es http://www.clubdelph...ead.php?t=14163 (es de otro foro, espero que no haya problemas).

Open se usa para consultas que regresan registros (SELECT) mientras que ExecSql se usa para consultas que no regresan registros (UPDATE, INSERT, DELETE)

He tomado el codigo que comentaste y lo unico que hice es quitar la linea que te dije que no reconocia el componente

delphi

Parameters.ParamByName('FECHA').ParamType := ptInput;

y cambiar

delphi

active:=true;

por

delphi

ExecSQL

El codigo resultante y que funciona es:

delphi

with DataModule1.ADOQuery_Importar do
begin
  active:=false;
  connectionString:='Provider=VFPOLEDB.1;Data Source=C:\dirBD;Password="";Collating Sequence=MACHINE';
  SQL.Clear;
  SQL.Add('INSERT INTO table2 (fecha) VALUES (:FECHA)');
  Parameters.ParamByName('FECHA').DataType := ftDateTime;
  Parameters.ParamByName('FECHA').Value := StrToDateTime('01/01/2010');
  ExecSQL;
end;

Para ser mi primer POST en este Foro, ha ido muy pero que muy bien.

Gracias a todos.

[egostar]

Ah pues que bien amigo, voy a asignar este tema como resuelto para que otros puedan encontrar esta información mas rápidamente.

Nuevamente bienvenido a DelphiAccess.

Salud OS

[egostar]

Ya tengo solucionado el problema, el tema estaba en que utilizaba "active=true" en vez de "ExecSql". Según he leido hace unos minutos hay una importante diferencia entre una y otra instrucción, el hilo al que hago referencia es http://www.clubdelph...ead.php?t=14163 (es de otro foro, espero que no haya problemas).

Open se usa para consultas que regresan registros (SELECT) mientras que ExecSql se usa para consultas que no regresan registros (UPDATE, INSERT, DELETE)

Por supuesto que no hay ningún problema

Salud OS