Crear tabla pdx a partir de dbf

[marcoszorrilla]

También puedes utilizar si es para un caso transitorio una utilidad que viene con Delphi.

C:\Archivos de programa\Archivos comunes\Borland Shared\BDE

datapump.exe

Con esta herramienta pasas las tablas de Dbf a Pdx, sin ningún problema con campos memo...

Un Saludo.

[lbidi]

Gracias, Marcos, pero mi intencion es hacerlo desde el codigo mismo, para instalar el mismo programa en todos mis clientes y que se cree la base automaticamente, sino deberia correr del datapump o el desktop en todas las maquinas, no?

Una pregunta que no habia puesto. Debo crear un Ttable vacio para apuntar a la base dbase? Y que pasa con la ubicacion de la misma? Deberia primero saber donde esta, no?

Salu2 y gracias otra vez.
Leonardo

[trex2000]

Saludos:
La verdad no se si ya pudiste resolver tu problema, apenas estoy viendo este hilo pero te voy a decir como resolvi esa situacion cuando me paso a mi, yo utilize el batchmove que viene en la paleta de delphi.

Espero te sirva.

[lbidi]

Gracias Trex2000. La verdad es que me he dedicado a otras cosas y no pude hacer y no pude hacer ninguna prueba mas.
Intentarte con lo tu me indicas y te aviso.

Salu2.

[marcoszorrilla]

Basándote en este ejemplo sacado de Trucomanía, creo que no te sería
dificil lograr lo que quieres.

procedure TForm1.Button1Click(Sender:TObject);
begin 
  if not Table1.Exists then 
  begin 
    Table1.Active       := FALSE; 
    {Aqui el Alias/Here, the alias}
    Table1.DatabaseName := 'Alias'; 
    Table1.TableType    := ttParadox; 
    {Aqui el nombre de la tabla/Here, the Table name}
    Table1.TableName    := 'Nombre de la Tabla'; 
    with Table1.FieldDefs do 
    begin 
      Clear; 
      Add('IntegerField', ftInteger,  0, FALSE); 
      Add('StringField' , ftString , 30, FALSE); 
      Add('LogicalField', ftBoolean,  0, FALSE); 
      Add('FloatField'  , ftFloat  ,  0, FALSE); 
      Add('DateField'   , ftDate   ,  0, FALSE); 
      Add('TimeField'   , ftTime   ,  0, FALSE); 
    end; 
    Table1.CreateTable; 
  end; 
end; 
 
 
 
Si quieres añadir algún indice, mirate la propiedad IndexDefs
que es similar a la FieldDefs que hemos usado.

Un Saludo.

[lbidi]

Gracias Marcos por tu respuesta.