Después de haber buscado ayer por la tarde y hoy se ha cumplido la ley de Murphy q dice que cuando no encuentras algo después de intentarlo un rato largo postealo en un foro, justo después lo encontrarás tu solito por tus propios medios...
Hay mucha gente q pregunta algo en un foro y si después encuentra la solución no pone la respuesta...Como a mi no me gusta eso y para recibir ayudar hay q darla os pongo la solución PARCIAL que encontré. Repito es parcial, no encontré una sentencia SQL que me sirviera para access en mi propósito, lo que hice es lo siguiente:
Código:
Procedure TFNGC3.CrearTablaDatos(nombreTabla:string);
var
sql:string;
begin
sql:='CREATE TABLE '+nombreTabla+' AS(SELECT * FROM PlantillaDatos)';
sql:='SELECT * INTO '+nombreTabla+' FROM PlantillaDatos';
AComm1.CommandText := sql;
AComm1.Execute();
sql:='ALTER TABLE '+nombreTabla+' ADD CONSTRAINT PK_'+nombreTabla+' PRIMARY KEY (NOperacion)';
AComm1.CommandText := sql;
AComm1.Execute();
end;
Con el SELECT INTO copio la tabla origen (estructura + datos) en destino. No me hace falta vaciarla porque es una tabla vacía. Lo que pasa q las claves no me las copia así que acto seguido tengo q ponerlas yo con un ALTER TABLE.
Un saludo