criar novo registros na mesma tabela (mudando apenas o id)

[Guest Wellington]

Bom dia galera,

to com um problema para automatizar um código sql no sistema aqui da emrpesa.

tenho uma tabela "Cons_Custos" com vários registros, quero fazer cópia de alguns registros, mudando apenas o idcusto, como faço isso de uma forma mais rápido para 50 mil registros ?

exemplo:

tenho na tabela

Periodo , Classe, Centro, Tipo, Idcusto

2008-01, 1111,Teste1,C,1

2008-01, 1111,Teste1,C,1

2008-01, 1111,Teste1,C,1

...

quero copiar (criar novo registros na mesma tabela (mudando apenas o idcusto)

2008-01, 1111,Teste1,C,2

2008-01, 1111,Teste1,C,2

2008-01, 1111,Teste1,C,2

hoje faço dessa maneira, mas é lento

strQuery = "SELECT * FROM Cons_Custos WHERE IDICusto=" & IfcCustoAtual & " ORDER BY IDCusto"

Set objRs = gobjConn.Execute(strQuery)

While Not objRs.EOF

strSQL = "INSERT INTO Cons_Custos (Periodo, Classe, Centro, Tipo,IDICusto) Select ....."

Set objRs2 = gobjConn.Execute(strQuery)

objRs.MoveNext

Wend

Abraços,

Wellington

[kuroi]

se o id custo vai ser o mesmo pra todos os registros, você pode fazer assim:

Insert Into Tabela(Periodo, Classe, Centro, Tipo, Idcusto) Select Periodo, Classe, Centro, Tipo, '2' As Idcusto From OutraTabela

[Guest Wellington]

Mas preciso copiar os dados para a mesmoa tabela,

ou seja já tenho dados com 10 mil dados com o id 1 e quero esses mesmo dados, mas agora para o id 2

como faço isso?

desde já eu agradeço pela atenção

Wellington

[kuroi]

mas você quer TROCAR os ids de cada um dos registros ou quer DUPLICAR os registros, dessa vez com um novo id??

se for o primero caso, é só fazer um update, do tipo:

Update Tabela Set Id = '2'

se for o segundo caso, é só fazer como eu passei no post acima. mas ai você faz tanto o insert quanto o select na mesma tabela.

[Guest Wellington]

Agora deu certo,

era o primeiro exemplo mesmo.

muto obrigado pela Ajuda

abraços,

Wellingtom

[Guest --bruno --]

[aonde você achou essas tabelas?