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
DatabaseName := 'c:\Actualizacion\Tablas'
TableType := ttDBase;
TableName := 'Tabla1.DBF';
with FieldDefs do begin 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 with AddIndexDef do begin
Name := 'PorID';
Fields := 'IDProducto';
end;
CreateTable;
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.