Ver Mensaje Individual
  #1  
Antiguo 03-05-2007
DavidLM2007 DavidLM2007 is offline
Registrado
 
Registrado: abr 2007
Posts: 6
Reputación: 0
DavidLM2007 Va por buen camino
Error al abirir un DBF creado desde Delphi con un progrma distinto al Database Deskto

Hola de nuevo a todos los foreros.


He creado una tabla DBF desde Delphi de la siguiente forma:
Código Delphi [-]
var
  Productos: TTable;
 begin
  Productos := TTable.Create(nil);
  try
   with Productos do begin
    DatabaseName := ExtractFilePath(Application.ExeName);
    TableType := ttDBase;
    TableName := 'Productos.DBF';
    with FieldDefs do begin // Definición de los campos
     with AddFieldDef do begin
      Name := 'IDProducto';
      DataType := ftSmallint;
     end;
     with AddFieldDef do begin
      Name := 'Descripcion';
      DataType := ftString;
      Size := 25;
     end;
     with AddFieldDef do begin
      Name := 'Precio';
      DataType := ftFloat;
     end;
    end;
    CreateTable; 
   end;
  except
   Productos.Free;
   raise;
  end;
  Productos.Free;
 end;
Si abro la tabla generada con el database Desktop la abre perfectamente, desde otros progrmas gestores de DBF como winDBU, prometheus me da error o me dice que la tabla está corrupta o que no es un DBF válido. He creado una tabla en el Database dEktop (Menu nueva tabla...) y luego he probado a abrirla desde el winDBU y la bre prefectamente (he probado en todos los formatos DBase III Dbase IV...)

Alguien sabe a que se debe esto? para indicar elñ tipo basta con poner TableType := ttDBase?

Gracias por su ayuda.

Última edición por marcoszorrilla fecha: 03-05-2007 a las 19:11:09.
Responder Con Cita