insert into tabla values (select *... ¿?

[jorgesl]

Hola, que tal.
Tengo un TQuery con la siguiente instruccion SQL:

Código SQL [-]
select * from SOSTAT_RESUL where SOSTAT_RESUL.PNTNAM like :nomenclatura and SOSTAT_RESUL.SUBNAM like :sSubE order by SOSTAT_RESUL.PNTNAM

Esa instruccion me regresa una serie de registros que estan almacenados en una tabla y esos registros, necesito insertarlos en otra tabla.

El problema es que esos registros tienen muchísimos campos (como 70) y seria muy dificil hacer insert into tabla values (x1,x2,x3, ....,x70);.. se imaginan ?

Mi pregunta es saber si puedo hacer algo como:

Código SQL [-]
insert into tabla values (select * from SOSTAT_RESUL where SOSTAT_RESUL.PNTNAM like :nomenclatura and SOSTAT_RESUL.SUBNAM like :sSubE order by SOSTAT_RESUL.PNTNAM);

y como es uqe hay que hacerlo.

O que otra opción me dan.

Uso delphi 2006 y la base de datos esta en Access
Gracias !

[Kosmo]

Creo que se puede hacer mas o menos como tu has dicho:

Código SQL [-]
 
INSERT INTO MiTabla SELECT Campo1,Campo2,Campo3 FROM OtraTabla WHERE MiCampo='X'

Creo que algo asi funcionaría, sin poner "Values".

Además de esa versión, en caso de que la tabla no este creada, también tienes otra manera de hacerlo (que al menos funciona con bases de datos oracle, no se si con el resto también).

Código SQL [-]
 
SELECT * FROM MiTabla AS NuevaTabla

Eso lo que haría sería crearte una tabla con las columnas necesarias utilizando el mismo tipo de datos que las columnas de la tabla origen seleccionadas.

Espero te sirva

[[Bicho]]

Hola pasata por aquí.

Saludos

[vtdeleon]

Saludos

Empezado por jorgesl

Mi pregunta es saber si puedo hacer algo como:

Código SQL [-]
insert into tabla values (select * from SOSTAT_RESUL where SOSTAT_RESUL.PNTNAM like :nomenclatura and SOSTAT_RESUL.SUBNAM like :sSubE order by SOSTAT_RESUL.PNTNAM);

Si se puede, siempre que la consulta "Select" arroje la misma cantidad de campos que la tabla en "Insert". Si por alguna razon tienes insertar solo 60 campos (ej.) lamentablemente tendras que especificar cada campo.

Empezado por jorgesl

y como es uqe hay que hacerlo.

Como lo veo arriba esta bien y como te escribi mas arriba: Campo en Inset = Campo en Select

[FOURIER]

insert into tabla(CamposAgregar) select CamposAgregar from SOSTAT_RESUL where SOSTAT_RESUL.PNTNAM like :nomenclatura and SOSTAT_RESUL.SUBNAM like :sSubE order by SOSTAT_RESUL.PNTNAM;

[jorgesl]

Hago lo sigueinte:

Código Delphi [-]
       {}Qinte := TQuery.Create(Self);
        {}Qinte.DatabaseName := 'Objetos';
        {}Qinte.RequestLive := True;
        {}Qinte.Close;
        {}Qinte.SQL.Text := 'insert into SOSTAT_RESUL_ORDEN (select * from SOSTAT_RESUL where SOSTAT_RESUL.PNTNAM like :interruptor)';
        {}Qinte.Prepare;
        {}Qinte.ParamByName('interruptor').AsString := interruptor;
        {}Qinte.Open;

pero en Qinte.Prepare;

Marca el siguiente error:

'Invalid use of keyword.
Token: select
Line Number: 1.'

Si quito los parentesis entre lso que esta el select, el error que me marca dice: 'Capability not supported'

[jorgesl]

Vi un error que tengo:

Debo de hacer ExcecSQL en lugar de Open.
Pero igual sigue sin funcionar.

El error me lo da en el prepare.

Quice hacer la prueba simplemente haciendo

Código SQL [-]
insert into SOSTAT_RESUL (PNTNAM) values ("PRUEBA")

pero al llegar al momento donde se ejecuta el query, me dice que la tabla es de solo lectura...
Pero la tabla no es de solo lectura...

Ya me desespero ese error... es lo único que me falta para terminar mi proyecto

[JOSEA]

Hola a todos.
Supongo que las dos tablas tendran campos similares, si es asi puede que te sirva esto (es un poco basto):

  query1.open;
  tablasegunda.BatchMove(query1,batappend);
  query1.close;