Dupliquer un enregistrement completRésolu

Question

Bonjour, je cherche &#224; permettre de dupliquer un enregistrement complet d'une table (pour &#233;viter la resaisie compl&#232;te), j'utilise un insertrecord mais le probl&#232;me que j'ai c'est que le premier champ est un champ autoincr&#233;ment&#233; et cela ne passe pas.
Pouvez-vous m'aider ? 

Voil&#224; mon code :

procedure TForm1.DupliquerFiche;
var
    i : integer;
    ListeChamps : string;
begin
    ListeChamps :='';
    For i:=1 to DM1.QFicheInter.FieldCount -1 do
        if DM1.QFicheInter.Fields[i].Value = null then
            ListeChamps := ListeChamps + ', Null'
        else if DM1.QFicheInter.Fields[i].DataType = ftDate then
            ListeChamps := ListeChamps + ','+ DateToStr(DM1.QFicheInter.Fields[i].Value)
        else if DM1.QFicheInter.Fields[i].DataType = ftTime then
            ListeChamps := ListeChamps + ','+ TimeToStr(DM1.QFicheInter.Fields[i].Value)
        else if DM1.QFicheInter.Fields[i].DataType = ftCurrency then
            ListeChamps := ListeChamps + ','+ FloatToStr(DM1.QFicheInter.Fields[i].Value)
        else if DM1.QFicheInter.Fields[i].DataType = ftFloat then
            ListeChamps := ListeChamps + ','+ FloatToStr(DM1.QFicheInter.Fields[i].Value)
        else if DM1.QFicheInter.Fields[i].DataType = ftBoolean then
            ListeChamps := ListeChamps + ','+ BoolToStr(DM1.QFicheInter.Fields[i].Value)
        else if DM1.QFicheInter.Fields[i].DataType = ftSmallint then
            ListeChamps := ListeChamps + ','+ IntToStr(DM1.QFicheInter.Fields[i].Value)
        else if DM1.QFicheInter.Fields[i].Value <> null then
            ListeChamps := ListeChamps + ','+ DM1.QFicheInter.Fields[i].Value;
    DM1.TFicheInter.InsertRecord([ListeChamps]);
end;

Merci d'avance

cs_sim51 · Answer

Salut,

J'ai une petite question pour toi : pourquoi ton champs est autoincr&#233;ment&#233; ?

Peut &#234;rte parceque c'est la clef primaire de ta table non ?

Donc de toute fa&#231;on tu ne peux pas copier un enregistement complet, il
faut obligatoirement que la clef primaire soit unique donc diff&#233;rente
de l'enregistrement que tu copies.

Sinon, il te suffit de faire un update sur la copie de ton
enregistrement en changeant le champ autoincrement&#233; ( le type
autoincr&#233;mentation ne s'effectue que sur un insert, tu peux toujours le
changer par un update )

Bonne continuation.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e si la r&#233;ponse vous convient !!!

sylviecl · Answer

On m'a conseill&#233; cela et &#231;a marche niquel, avis &#224; ceux que cela pourrait int&#233;resser :




Code:
,
----

With DM1.QFicheInter do
begin
DM1.Table.Append;
for i := 1 to  FieldCount -1 do
DM1.Table.Fields.Fields[i].assign(Fields.Fields[i]);
try
DM1.Table.Post;
Except on Exception do
DM1.Table.Cancel;
end;
end; // with

Abachayib · Answer

Bonjour! j ai une table documentation et j utilise des Tquery! et j aimerai ajouter une table exemplaire !de telle sorte que si j ai quantité de livre = n sa m enregistre n fois le livre mais avec explaire1,2....jsko N eme livre!Merci de bien vouloir me repondre

Abachayib · Answer

CORRECTION ........ c est luto ajouter un champs pas une table!!!!

Bonjour! j ai une table documentation et j utilise des Tquery! et j aimerai ajouter un champs exemplaire !de telle sorte que si j ai quantité de livre = n sa m enregistre n fois le livre mais avec explaire1,2....jsko N eme livre!Merci de bien vouloir me repondre

dubois77 · Answer

Abachayib, tu en mets un peu partout, mais hélas pas un au bon endroit !


Dubois77
site perso

Dupliquer un enregistrement complet

5 réponses

Votre réponse

Discussions similaires