Discussion :

[walid_kerkoub]

Bonjour,
Ma question est simple, y'a t'il une astuce ou une commande qui permet de copier un enregistrement d'une Adotable vers une autre Adotable et qui ont les mêmes champs biensure. Il est biensure possible de copier cet enregistrement champ par champ en utilisant l'instruction :

Code :

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

1
2
3
4
5
ADOTable1.FieldByName('Champ1').AsVariant:=ADOTable2.FieldByName('Champ1').AsVariant
ADOTable1.FieldByName('Champ2').AsVariant:=ADOTable2.FieldByName('Champ2').AsVariant
.
.
.

Mais c'est un peu lourd surtout s'il y a beaucoup de champs mais si quelqu'un connaiterait une astuce pour résumer tout ça en une seule ligne ça serait merveilleux.

Merci à tous.

Delphi 7
Access et ADO.

[Cl@udius]

Salut

Il suffit de faire une boucle sur les Fields, quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
8
var
  I: Integer;
begin
  ADOTable1.Append;
  for I := 0 to ADOTable1.FieldCount - 1 do
    ADOTable1.Fields[I].Value := ADOTable2.Fields[I].Value;
  ADOTable1.Post;
end;

@+ Claudius

[Just-Soft]

Attention ce code suppose que tu es sur le bon enregistrement !

[Yurck]

Une boucle

Code :

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

1
2
3
4
for i:=0 to ADOTable1.FieldCount - 1 do
  if Assigned(ADOTable2.FindField(ADOTable1.Fields[i].FieldName) then
   ADOTable2.FindField(ADOTable1.Fields[i].FieldName).value := ADOTable1.Fields[i].value;

Tu dois pourvoir le faire en SQL aussi

Code :

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

1
2
 
  insert into TABLE2 (select * from TABLE1 where table1.XXX='ZZZ')

voir
http://sqlpro.developpez.com/cours/sqlaz/dml/#LII-E

[Just-Soft]

Je trouve que le code en SQL est plus propre pas besoin de faire une recherche sauf peut-être qu'il faut mettre dans la clause where un identifiant unique sinon tu n'aura pas toujours le bon résultat.

[Yurck]

Attention ce code suppose que tu es sur le bon enregistrement !

....sauf peut-être qu'il faut mettre dans la clause where un identifiant unique sinon tu n'aura pas toujours le bon résultat.

abondance de biens ne nuit pas, il aura ainsi le choix.

[walid_kerkoub]

var
I: Integer;
begin
ADOTable1.Append;
for I := 0 to ADOTable1.FieldCount - 1 do
ADOTable1.Fields[i].Value := ADOTable2.Fields[i].Value;
ADOTable1.Post;
end;

C'est une bonne solution j'y ai pas pensé merci Cl@udius.

Tu dois pourvoir le faire en SQL aussi

Code :

insert into TABLE2 (select * from TABLE1 where table1.XXX='ZZZ')
voir
http://sqlpro.developpez.com/cours/sqlaz/dml/#LII-E

Il y a aussi la solution SQL qui est très bien aussi donc j'ai le choix merci Yurck.

Attention ce code suppose que tu es sur le bon enregistrement !

Oui avant de faire l'insertion il faut pointer les bons enregistrements des côtés et aussi tester la clé s'il y a pas eu une autre insertion entre temps d'un autre poste pour ne pas avoir 2 enregistrements avec la même clé. Merci aussi Just-Soft.

[walid_kerkoub]

Mainentant je rencontre un autre problème qui est comme suit :
Quand l'utilisateur séléctionne un enregistrement pour le modifier, automatiquement je créé une copie de cete enregistrement dans une autre table de même structure, j'ai fait ça à l'aide d'une requête SQL jusque-là c'est bon l'enregistrement est bien créé dans la table Access mais quand je veux accéder à partir de Delphi par exemple par un DBGrid je ne trouve pas cet enregistrement bien qu'il soit dans la table et j'ai remarqué que quand je ferme toute l'application et je réouvre je le trouve dans le dbgrid. J'ai essayé

Code :

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

AdoTable.Refrech

et j'ai essayé aussi

Code :

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

1
2
AdoTable.Active:=False;
AdoTable.Active:=True;

mais l'enregistrement n'apparaît toujours pas. C'est quoi le problème ?
Merci d'avance.

[Yurck]

je ne connais pas access ni le middle ware que tu utilises.

Mais la solution réside dans l'isolation de transaction.
Il faut voir au niveau des objets de type "Session" "Transaction" etc ...

a+

[BuzzLeclaire]

Mainentant je rencontre un autre problème qui est comme suit :
Quand l'utilisateur séléctionne un enregistrement pour le modifier, automatiquement je créé une copie de cete enregistrement dans une autre table de même structure, j'ai fait ça à l'aide d'une requête SQL jusque-là c'est bon l'enregistrement est bien créé dans la table Access mais quand je veux accéder à partir de Delphi par exemple par un DBGrid je ne trouve pas cet enregistrement bien qu'il soit dans la table et j'ai remarqué que quand je ferme toute l'application et je réouvre je le trouve dans le dbgrid. J'ai essayé

Code :

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

AdoTable.Refrech

et j'ai essayé aussi

Code :

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

1
2
AdoTable.Active:=False;
AdoTable.Active:=True;

mais l'enregistrement n'apparaît toujours pas. C'est quoi le problème ?
Merci d'avance.

Salut,

Essai un Close puis un Open, sa marche à tous les coups

Bye bye

[walid_kerkoub]

Pour Yurk

je ne connais pas access ni le middle ware que tu utilises.

Mais la solution réside dans l'isolation de transaction.
Il faut voir au niveau des objets de type "Session" "Transaction" etc ...

Je n'utlise pas access mais uniquement le SGBD Access, j'utilise Delphi 7 avec ADO et pour l'insertion du champ vers la table j'utilise un TADOQuery.

J'ai essayé le

Code :

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

1
2
3
 
ADOTable.Close;
ADOTable.Open;

ça n'a pas marché mais pour tester j'ai inséré un Tbutton

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable.Close;
ADOTable.Open;
end;

J'ai remarqué qu'en clickant plusieurs fois sur ce bouton, l'enregistrement finit par apparaître , des fois une seule fois suffit et d'autres il faut 3 ou 7 clicks pour que ça marche (donc plusieurs close et open). J'ai pensé à mettre une boucle Repeat comme suit :

Code :

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

1
2
3
4
5
 
Repeat
Form1.Button1.Click;
Until ADOTable.IsEmpty=False;
Form1.ShowModal;

Ca a marché l'enregistrement apparaît mais la form prend environ 3 sec des fois jusqu'à 5 sec pour s'ouvrir à cause du nombre de fois de Close et Open, S'il y a un truc plus rapide ça serait mieux, qu'est-ce que vous en dites ?