duplicar varios registros de una tabla

[gmontes]

como puedo duplicar varios registros dentro de la misma tabla.

lo intentes con un insert con un select , pero se ciclo

alguna idea??

[guillotmarc]

¿ Nos enseñas lo instrucción que has intentado ?

[Casimiro Notevi]

Queremos ver el código

[[oscarac]]

no soy muy experto en delphi pero te dejo una idea que se me ocurre

2 arrays,
1 para almacenar los nombres de los campos (Fieldbyname, field, etc)
1 para almacenar los valores de los campos (del que queremos copiar)

entonces hacemos el append y vaciamos en ese nuevo registro el segundo array con los campos almacenados en el primero

se entiende? djie que era una idea

[gmontes]

ok, se que no se debe hacer, pero dentro de ibexpert esto es lo que puse.

INSERT INTO cdetallefac SELECT * FROM cdetallefac WHERE documento='H6234'

si, fue sobre la misma tabla

cuando vi que estaba tratando de insertar el registro 165045600 dije, algo anda mal

fue un lapsus brutus

[[oscarac]]

mmmm y que te parecio mi idea?
quiza alguien con mas experiencia en delphi pueda plasmarla, a veces es util repetir uno o varios registros

[Quim Herrera]

Hola,

Prueba esto:

Código Delphi [-]

procedure DuplicaReg( Dataset: TDataset);
var
 aField : Variant ;
 ANomCamps: Variant;
 i,numcamps      : Integer ;
 begin

 aField := VarArrayCreate( [0, Dataset.Fieldcount-1], VarVariant);
 aNomCamps := VarArrayCreate( [0, Dataset.IBTable1.Fieldcount-1], VarVariant);
 numcamps:=  Dataset.Fieldcount;

 For i := 0 to (numcamps-1) Do
 Begin
   ANomCamps [i] :=  Dataset.fields[i].FieldName;
   aField[i] :=  Dataset.fields[i].Value ;
 End;
 Dataset.append;
 For i := 0 to (numcamps-1) Do
 Begin
    Dataset.FieldByName(ANomCamps[i] ).Value := aField[i ] ;
 End;
 Dataset.Post;
 
end;

Puedes utilizar un IBDataset o un IBTable.
No olvides de hacer el commit

Saludos,

Quim Herrera

[gmontes]

Empezado por oscarac

mmmm y que te parecio mi idea?
quiza alguien con mas experiencia en delphi pueda plasmarla, a veces es util repetir uno o varios registros

lo que no queria era programar, queria hacerlo desde ibexpert, pero creo que es mas limpia tu idea. gracias

[[oscarac]]

Quim herrera lo hizo
parece que no estoy tan mal con las ideas no?

[gmontes]

gracias Quim Herrera

lo voy a probar

[guillotmarc]

¿ Puedes actualizar a la última versión de Firebird ?, puesto que en las últimas versiones corrigieron este comportamiento y tu instrucción ya funcionará como esperas.

Saludos.

[gmontes]

Empezado por guillotmarc

¿ Puedes actualizar a la última versión de Firebird ?, puesto que en las últimas versiones corrigieron este comportamiento y tu instrucción ya funcionará como esperas.

Saludos.

tengo la 2.1.3 instalada. ok