Discussion :

[94340DB]

Bonjour à tous,
je souhaite déplacer un enregistrement d'une même AdoTable qui se compose de plusieurs champs vers une autre ligne de la même table par programmation.
je suis tenté de faire un select vers la ligne n° 3, copier les champs (Fields.count), ensuite faire un autre select pour se positionner sur la ligne 15 et faire un Edit pour insérer l'enregistrement.
Existe t'il une autre astuce?
Merci.
Pièce jointe 151075

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
 
procedure CopieRowToRow(Dataset:TAdoQuery);
var
  aField : Variant;
  i: Integer;
  Num1, Num2:Integer;
begin
 
Num1:=3;     //destinée au Select SQL
Num2:=15;
 
// code que j'ai trouvé. ne fonctionne pas chez moi
  // Create a variant Array
  aField := VarArrayCreate([2,DataSet.Fieldcount-1], VarVariant);
  // read values into the array
  for i := 2 to (DataSet.Fieldcount-1) do
  begin
     aField[i] := DataSet.fields[i].Value ;
  end;
 
 
  // Put array values into new the record
   for i := 2 to (DataSet.Fieldcount-1) do
   begin
   DataSet.Edit;
   if (DataSet.fields[i].CanModify) then
   DataSet.fields[i].Value := aField[i] ;
   DataSet.Post;
   end;
End;
end;

[Ph. B.]

Bonjour,

je souhaite déplacer un enregistrement d'une même AdoTable qui se compose de plusieurs champs vers une autre ligne de la même table par programmation.
je suis tenté de faire un select vers la ligne n° 3, copier les champs (Fields.count), ensuite faire un autre select pour se positionner sur la ligne 15 et faire un Edit pour insérer l'enregistrement.
Existe t'il une autre astuce?

Très clairement, ce n'est absolument pas la méthode à appliquer !
L'ordre des lignes dans un ensemble de données (ADOTable, ADOQuery, ADODataSet dans votre cas) est un concept très fluctuant, et ce quelque soit le moteur de bases de données.
L'ordre ne peut résulter que d'une indexation ou d'une clause bien spécifiée (ORDER BY dans un SELECT).

Si vous voulez insérer un enregistrement, l'idéal est de passer par une requête SQL via un objet TADOQuery :
INSERT INTO MaTable(Colonne1,..., ColonneN) VALUES(Valeur1,..., ValeurN);
Si vous voulez mettre à jour une ligne, ce sera la même approche :
UPDATE MaTable SET Colonne1 = Valeur1,..., ColonneM = ValeurM WHERE ColonneI = ValeurI;
Si vos données sont affichées dans une grille, il suffit de réaliser le rafraichissement de l'ensemble de données lié...

Et quelques remarques sur le 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
 
procedure CopieRowToRow(Dataset:TAdoQuery);
var
  aField : Variant;
  i: Integer;
  Num1, Num2:Integer;
begin
 
Num1:=3;     //destinée au Select SQL
Num2:=15;
 
  // Il manque la commande de positionnement sur la ligne "source"
 
// code que j'ai trouvé. ne fonctionne pas chez moi
  // Create a variant Array
  aField := VarArrayCreate([2,DataSet.Fieldcount-1], VarVariant);
  // read values into the array
  for i := 2 to (DataSet.Fieldcount-1) do
  begin
     aField[i] := DataSet.fields[i].Value ;
  end;
 
 
  // Il manque la commande de positionnement sur la ligne "destination"
 
 
  // L'édition se fait pour tous les colonnes de la ligne, pas à chacune de colonnes
  // car ce n'est pas performant...
  DataSet.Edit;
  // Put array values into new the record
   for i := 2 to (DataSet.Fieldcount-1) do
   begin
     //DataSet.Edit;
     if (DataSet.fields[i].CanModify) then
     DataSet.fields[i].Value := aField[i] ;
     //DataSet.Post;
   end;
  DataSet.Post;
End;
end;

[94340DB]

Merci Philippe, je vais faire un test en SQL.