Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Error al abirir un DBF creado desde Delphi con un progrma distinto al Database Deskto (https://www.clubdelphi.com/foros/showthread.php?t=43150)

DavidLM2007 03-05-2007 12:57:38

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?:confused:

Gracias por su ayuda.


La franja horaria es GMT +2. Ahora son las 19:36:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi