crear tabla desde una consulta sql...

[ronimaxh]

Hola amigos del club, la pregunta es la Sgte. si tengo dos tablas una maestra de tablas y otra detalle, en la maestra se guarda el id, nombre de la tabla, en la otra detalle se guarda el id de la maestra, nombre del campo, el tipo de datos y la longitud.

Nota: el obtivo de esto es crear tablas dinamicas, que el usuario pueda crear el nombre de las tablas con los campos que quiera, (por eso utilizo dos tablas fijas donde se guardaran el nombre de las tablas y en la otra los compos de las tablas.

Nota2: Quiero a parti de esta consulta crear tablas:

select * from maestra, detalle where maestra.id=detalle.id
A partir de aqui es que quiero crear las tablas, pero no se como hacerlo favor de darme un ejemplo de como puedo hacer.

Nota3: Se que los manejadores de base de datos hacen esto, pero en este caso me toca hacerlo por un practica de universidad. Desde ya gracias!!!.

[jachguate]

Lo que guardas en las tablas que mencionas son los atributos de las tablas a crear?? que no me queda muy claro, pero si es eso, faltará que construyas una sentencia Create table válida, a partir de esta información, y enviarla al motor de base de datos que estes usando.

Hasta luego.

[ronimaxh]

faltará que construyas una sentencia Create table válida, a partir de esta información, y enviarla al motor de base de datos que estes usando.
es exactamente lo que quiero hacer, pero no se como hacerlo denme una ayudita con esto desde ya gracias.

[jachguate]

La sintaxis exacta depende de tu motor.

Lo usual es

Código SQL [-]
Create table nombre_tabla (
  campo1 tipodato,
  campo2 tipodato
);

Hasta luego.

[ronimaxh]

Gracias por contestar, el motor de base de datos que uso es interbase 6.5
si tengo que crear las tablas a partir de la informacion de la consulta, como seria eso....

[jachguate]

Aunque creo que ese es tu trabajo, te daré un buen empujón...

seria algo como:

Código Delphi [-]
  s := 'create table ' + TablaTablasNombreTabla.Value + '(';
  while not TablaCampos.eof do
  Begin
    s := s + TablaCamposNombreCampo.Value ' ' + 
             TablaCamposTipoDato.Value + ' ';
    TablaCampos.Next;
    if not TablaCampos.eof Then
      s := s + ', ';
  end;
  s := s + ')';
  
  Query1.sql.Clear;
  Query1.sql.Add(s);
  try
    Query1.ExecSQL;
  except
    LoQueQuerrasHacerSiNoFunciona;
  end;

Hasta luego.

[ronimaxh]

Gracias amigo por el empujon me sirvio de mucho....