Creacion de Tabla e inserción de datos

[klionsis]

Hola gente. Les cuento que estoy intentando crear una tabla en tiempo de ejecución y a la vez estoy intentando insertar datos a la misma. El procedimiento que estoy utilizando es similar al siguiente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var
  Productos: TTable;
 begin
  Productos := TTable.Create(nil);
  try
   with Productos do begin

    // Definición de la tabla
    DatabaseName := 'c:\Actualizacion\Tablas'
    TableType := ttDBase;
    TableName := 'Tabla1.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;

    with IndexDefs do begin // Definición de los índices
     with AddIndexDef do begin
      Name := 'PorID';
      Fields := 'IDProducto';
     end;
    
    CreateTable; // Crea la tabla

    // Insercion de datos
    query1.SQL.Clear();
    query1.SQL.Add('Insert Into Productos select * from Articulos');    
    query1.ExcecSQL;
     

   end;
  except
   Productos.Free;
   raise;
  end;
  Productos.Free;
 end;

El problema de esto es que la tabla productos es la que acabo de crear en tiempo de ejecucion y se aloja en 'c:\Actualizacion\Tablas' y la tabla desde adonde estoy sacando los datos 'Articulos' se encuentra en la base de datos que yo estoy manipulando en base a un alias que he creado y que esta en un lugar distinto a la ubicacion de primera tabla.

Por el principio el error que me esta dando es que no existe esta tabla 'Productos'. Les pregunto entonces como puedo hacer para crear esta tabla e insertarle datos como pretendo?

Espero me puedan ayudar.


Gracias.

[[coso]]

Hola, mediante una consulta

Código Delphi [-]
Query1.SQL.Text := 'select * into tabla_destino in ' + ruta_tabla_destino + ' from ' + ruta_tabla_origen;
Query1.ExecSQL;

ruta_tabla_destino y ruta_tabla_origen deben entre comillas, por si hay espacios en esa ruta. saludos.

PD: creo que para acceder a una tabla mediante alias se usa [alias].tabla, no estoy seguro. Igualmente, haciendo que la conexion de tu query1 sea la de la tabla origen, tansolo deberas poner su nombre en vez de ruta_tabla_origen.

[klionsis]

Antes que nada gracias coso. Entiendo lo que me decís pero no lo veo del todo. Segun esto mi consulta quedaria de la siguiente manera ?

Código Delphi [-]
Query1.SQL.Text := 'select * into Productos in "c:\Actualizacion\Tablas" from Articulos';
Query1.ExecSQL;

Gracias.

[[coso]]

si, pruebalo, a ver que tal te va. No hara falta entonces nada del resto del codigo, solo esa consulta.

[[coso]]

perdon, seria

Código Delphi [-]
Query1.SQL.Text := 'select * into Productos in "c:\Actualizacion\Tablas\tabla.dbf" from Articulos';
Query1.ExecSQL;

[klionsis]

He probado de la siguiente manera:

Código Delphi [-]
DataModule1.InsProd.SQL.Add('insert into Productos in "c:\Actualizacion\Tablas\Productos.DBF" select * from Productos');
      DataModule1.InsProd.ExecSQL;

Elimine la creacion de la tabla en tiempo de ejecucion ya que la tabla ya se encuentra en el lugar ("c:\Actualizacion\Tablas\Productos.DBF")

pero la aplicacion me informa esto:

"Invalid use of keyword. Token: in..."

Evidentemente hay un problema con la localizacion de la tabla.


como podré solucionarlo ?