Creacion en Forma Dinamica de Tablas

[GerTorresM]

Hola a todos:

Bien tengo una duda que me ha venido asaltando hace varios dias, ¿Puede ser posible Crear en un Modulo de Datos las tablas de una base de datos en forma dínamica?, es decir : Tengo el nombre de la base de datos, mediante una consulta obtengo los nombres de las tablas y mediante un ciclo repetitivo quisiera crear las tablas y su vez mediante otra consulta obtener los nombres de campoas y crear los campos de cada tabla, el asunto que me inquieta es el siguiente: si quiere generar dicho código de forma generica, desconozco la cantidad de tablas a crear (por ende la cantidad de Variables a Utilizar) y de la tablas desconozco la cantidad de campos (nuevamente no tendría referencia al número de variables para los campo), como podría hacerlo con estas atenunates.


Gracías de Antenamo a Todos


gertorresm
Colombia

[kenkatana]

Lo que puedes hacer es crear un TStringList como contenedor de las tablas que vas creando

MyTableList.AddObject('NombreDeMiTabla', MiNuevaTabla)

y asi puedes despues llamarlas en cualquier momento:

Idx := MyTableList.IndexOf('NombreDeTabla');
if Idx > -1 then begin
  MiTabla := TDataSet(MyTableList.Objects[Idx]);
end;

Daniel
[PERU]