Foros Club Delphi - Para verdaderos conocedores de Delphi y Bases

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Para verdaderos conocedores de Delphi y Bases (https://www.clubdelphi.com/foros/showthread.php?t=3727)

Para verdaderos conocedores de Delphi y Bases

Tengo un problema creando tabla, utilizando los metodos de findtableid para saber si ya existe la table (por medio de un edit.text ingreso el nombre dela tabla) al ejecutar aparece el mensaje de error filename too long for a paradox5.0 table, el tipo de tabla creada es ttdefault

Para empezar el fallo que te da es supuestamente que el nombre de la tabla es demasiado largo para la versión 5.0 de Paradox, pero como no vemos el código que utilizas para crear la tabla, no sabemos donde puede estar el fallo.

Aquí tienes un ejemplo de creación de tabla:

Código:

{

  Hier ein Beispiel, wie man schnell eine Paradox Tabelle

  mit einigen definierten Feldern mittels SQL erzeugen kann.

}



procedure TForm1.Button1Click(Sender: TObject);

begin

  with Query1 do

  begin

    DatabaseName := 'DBDemos';

    with SQL do

    begin

      Clear;

      {



        CREATE TABLE erzeugt eine Tabelle mit einem angegebenen

        Namen in der aktuellen Datenbank

      }

      Add('CREATE TABLE "PDoxTbl.db" (ID AUTOINC,');

      Add('Name CHAR(255),');

      Add('PRIMARY KEY(ID))');

      {

        Mit ExecSQL wird die Anweisung ausgeführt,

        welche aktuell in der Eigenschaft SQL enthalten ist.

      }

      ExecSQL;

      Clear;

      Add('CREATE INDEX ByName ON "PDoxTbl.db" (Name)');

      ExecSQL;

    end;

  end;

end;

Un Saludo.

La manera que uso para averiguar si una tabla existe proviene del ejemplo de CreateTable que da Delphi:

Código:

{ Table es una componente TTable }



Table.Active := false;

Table.DatabaseName = 'base de datos';

Table.TableType := ttParadox;

Table.TableName := 'tabla';



if Table Exists then

  { la tabla existe }

// Saludos