Estou precisando copiar uns registros de uma tabela para a mesma, o Problema é que estar identificando a chaveprimaria que também é AutoIncremento, eu utilizei esse codigo
Tentei apenas fazer a copia do registro e deu Erro
//realiza a copia
begin
Table2.Insert;
for Num := 0 to Table1.FieldCount - 1 do
Table2.Fields[Num].Assign(Table1.Fields[Num]);
Table2.FieldByName(Chave).Value:= '';
Table2.Post;
end;
Tentei identificar a Chaveprimaria e dizer que é nula, e deu erro
proced...
var
Num: SmallInt;
i:integer;
Chave:string;
begin
//Identifica a Chave primaria
table1.IndexDefs.Update;
for I:=0 to table1.IndexDefs.Count-1 do
begin
if table1.IndexDefs.Items[I].Options = [ixPrimary..ixUnique] then
chave:=Table1.IndexDefs.Items[I].Fields;
end;
Label1.Caption:=Chave;
//realiza a copia
begin
Table2.Insert;
for Num := 0 to Table1.FieldCount - 1 do
Table2.Fields[Num].Assign(Table1.Fields[Num]);
Table2.FieldByName(Chave).Value:= '';
Table2.Post;
end;
END;
Alguém sabe como posso fazer este tipo de copia do registro onde contém o um AutoIncremento?
Pergunta
Pirambu!
Estou precisando copiar uns registros de uma tabela para a mesma, o Problema é que estar identificando a chaveprimaria que também é AutoIncremento, eu utilizei esse codigo
Tentei apenas fazer a copia do registro e deu Erro
Tentei identificar a Chaveprimaria e dizer que é nula, e deu erroAlguém sabe como posso fazer este tipo de copia do registro onde contém o um AutoIncremento?
Obs.: estou usando banco de dados ACCESS 2003
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.