Dupliquer un enregistrement complet d'une table paradox

**sylvie cl** · 20/09/2005, 15h05

Bonjour,

je cherche des aides pour copier une fiche d'une table paradox, pour éviter une nouvelle saisie.

Pour l'instant, j'ai essayé ça comme code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
procedure TForm1.DupliquerFiche;
var
i, Numfiche : integer;
ListeChamps, NomColonne : string;
begin
ListeChamps :='';
NomColonne :='';
For i:=1 to DM1.QFicheInter.FieldCount -1 do
 
// je ne le fais pas commencer à 0 pour ne pas prendre le champ autoincrémenté (clé primaire)
 
if (DM1.QFicheInter.Fields[i].Value <> null) then
if DM1.QFicheInter.Fields[i].DataType = ftDate then
begin
ListeChamps := ListeChamps + ','+ DateToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftTime then
begin
ListeChamps := ListeChamps + ','+ TimeToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftCurrency then
begin
ListeChamps := ListeChamps + ','+ FloatToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftFloat then
begin
ListeChamps := ListeChamps + ','+ FloatToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftBoolean then
begin
ListeChamps := ListeChamps + ','+ BoolToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftSmallint then
begin
ListeChamps := ListeChamps + ','+ IntToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if (DM1.QFicheInter.Fields[i].Value <> '') then
begin
ListeChamps := ListeChamps + ','+ DM1.QFicheInter.Fields[i].Value;
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end;
Delete(Nomcolonne,1,1);
Delete(ListeChamps,1,1);
DM1.QFicheInter.SQL.Clear;
DM1.QFicheInter.SQL.Add('INSERT INTO TFichesInter.DB ('+ NomColonne +')');
DM1.QFicheInter.SQL.Add('VALUES ('+ ListeChamps +')');
DM1.QFicheInter.ExecSQL;

Mon problème est qu'il me dit que j'effectue une utilisation incorrecte du mot clé
Il me donne la liste des valeurs et VALUES, mais là j'avoue que je sèche.

Sinon j'ai essayé de la même manière (sans le sql) avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DM1.TFicheInter.InsertRecord([ListeChamps]);

Là j'ai un problème avec mon premier champ qui est auto incrémenté...

Si quelqu'un a ne serais-ce qu'un bout d'idée, je prends !!

Merci

**Rayek** · 20/09/2005, 16h21

Il y a plus simple avec 1 query et 1 TTable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
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

Attention il faut que les champs de ta requete et de ta table soient dans le même ordre
sinon il faut ecrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DM1.Table.FieldByName(Fields.Fields[i].DisplayName).assign(Fields.Fields[i]);

Avec l'une ou l'autre ca copie le champ comme il faut.
De plus comme ca tu peux meme partir de 0 pour le champs autoincrémenté, il sera pris en compte.

**Rayek** · 20/09/2005, 16h27

Autre petit conseil

tu peux ecrire ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
if (DM1.QFicheInter.Fields[i].Value <> null) then
if DM1.QFicheInter.Fields[i].DataType = ftDate then
begin
ListeChamps := ListeChamps + ','+ DateToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftTime then
begin
ListeChamps := ListeChamps + ','+ TimeToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftCurrency then
begin
ListeChamps := ListeChamps + ','+ FloatToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftFloat then
begin
ListeChamps := ListeChamps + ','+ FloatToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftBoolean then
begin
ListeChamps := ListeChamps + ','+ BoolToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if DM1.QFicheInter.Fields[i].DataType = ftSmallint then
begin
ListeChamps := ListeChamps + ','+ IntToStr(DM1.QFicheInter.Fields[i].Value);
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end
else if (DM1.QFicheInter.Fields[i].Value <> '') then
begin
ListeChamps := ListeChamps + ','+ DM1.QFicheInter.Fields[i].Value;
NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
end;

Comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
if (DM1.QFicheInter.Fields[i].Value <> null) then
Case DM1.QFicheInter.Fields[i].DataType of
  ftDate:begin
    ListeChamps := ListeChamps + ','+     DateToStr(DM1.QFicheInter.Fields[i].Value);
    NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
  end;
  ftTime: begin
    ListeChamps := ListeChamps + ','+ TimeToStr(DM1.QFicheInter.Fields[i].Value);
    NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
  end;
  ftCurrency,ftFloat  : begin
    ListeChamps := ListeChamps + ','+ FloatToStr(DM1.QFicheInter.Fields[i].Value);
    NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
  end;
  ftBoolean : begin
    ListeChamps := ListeChamps + ','+ BoolToStr(DM1.QFicheInter.Fields[i].Value);
    NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
  end;
  ftSmallint : begin
    ListeChamps := ListeChamps + ','+ IntToStr(DM1.QFicheInter.Fields[i].Value);
    NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
  end;
  else begin
  ListeChamps := ListeChamps + ','+ DM1.QFicheInter.Fields[i].Value;
  NomColonne := NomColonne + ','+ DM1.QFicheInter.Fields[i].FieldName;
  end; 
end;

[/code]

**sylvie cl** · 20/09/2005, 17h09

Merci beaucoup, j'avais pas réfléchi au case, effectivement c'est mieux.
J'essaye et je te tiens au courant

Merci quand même

**sylvie cl** · 20/09/2005, 17h35

Double merci, ça marche super.
C'est génial !!

**sylvie cl** · 21/09/2005, 11h43

Bonjour,
Tout fonctionne sauf qu'il me duplique toujours le même enregistrement !
J'ai beau essayé différentes choses rien n'y fait.
Si quelqu'un peut m'aider ?

**Rayek** · 21/09/2005, 11h51

il faut que QFicheInter soit bien positionné sur le bon enregistement si tu veux que ca en duplique d'autres.

Si tu ouvres qu'une fois ton QFicheInter et que ne fait aucune modification voir de locate dessus, il est normal que tu es toujours la meme fiche de dupliquée.

**sylvie cl** · 21/09/2005, 11h57

Je m'en suisdouté c'est pourquoi j'ai essayé cela, même résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
procedure TForm1.DupliquerFiche;
var                                   //duplique toujours la première fiche
    i : integer;
begin
    DM1.QFicheInter.First;
    while not DM1.QFicheInter.Eof do
    begin
        if MainForm.NumFiche = DM1.QFicheInter.FieldValues['NUMINTER'] then
        begin
            With DM1.TFicheInter do
            begin
                try
                    Append;
                    for i := 1 to  FieldCount -1 do
                    begin
                        Fields.Fields[i].assign(DM1.QFicheInter.Fields.Fields[i]);
                    end;
                    Post;
                Except on E: Exception do
                begin
                    ShowMessage(E.Message);
                    Cancel;
                end;
                end;  // except
            end; // with
            break;
        end
        else
            DM1.QFicheInter.Next;
    end;
end;

Je ne vois pas ce qui cloche...

**Rayek** · 21/09/2005, 12h01

Envoyé par sylvie cl

Je m'en suisdouté c'est pourquoi j'ai essayé cela, même résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
procedure TForm1.DupliquerFiche;
var                                   //duplique toujours la première fiche
    i : integer;
begin
    DM1.QFicheInter.First;
    while not DM1.QFicheInter.Eof do
    begin
        if MainForm.NumFiche = DM1.QFicheInter.FieldValues['NUMINTER'] then
        begin
            With DM1.TFicheInter do
            begin
                try
                    Append;
                    for i := 1 to  FieldCount -1 do
                    begin
                        Fields.Fields[i].assign(DM1.QFicheInter.Fields.Fields[i]);
                    end;
                    Post;
                Except on E: Exception do
                begin
                    ShowMessage(E.Message);
                    Cancel;
                end;
                end;  // except
            end; // with
            break;
        end
        else  <--- enleve ca sinon tu parcour jamais ton QficheInter
            DM1.QFicheInter.Next;
    end;
end;

Je ne vois pas ce qui cloche...

Voir la reponse dans le code ^^

**sylvie cl** · 21/09/2005, 12h07

Désolée, mais si, si, je le parcours avec ou sans le else (else du if), j'ai fais des pas à pas pour le vérifier.
Mais ça ne fonctionne toujours pas correctement et pourtant j'ai bien le bon numéro de fiche à dupliquer dans NumFiche

Je comprends pas

**Rayek** · 21/09/2005, 14h16

Ok, j'avais pas fait gaffe don selon le type de numfiche :

String :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 if UpperCase(trim(MainForm.NumFiche)) = uppercase(trim(DM1.QFicheInter.FieldByName('NUMINTER').asstring)) then

Si c'est un integer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 if MainForm.NumFiche = DM1.QFicheInter.FieldByName('NUMINTER').asinteger then

sinon vu que tu utilises une requete "QFicheInter".
Pourquoi ne pas faire directement dans ta requete.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With QFicheInter do
begin
  Close;
  SQL.clear;
  SQL.add('select * from LATABLE');
//  SQL.Add('Where NumInter = ' + QuotedStr(NumFiche)); // si string
// SQL.Add('Where NumInter = ' + NumFiche); // si integer;
  Open;
end;
 
Puis apres tu fais ta boucle de transfert normalement.
Avec ca tu recupères directement tous les enregistrements ayant NumFiche

Dupliquer un enregistrement complet d'une table paradox

Bases de données Delphi

Discussions similaires

Partager

Partager