Discussion :

[Papy214]

Bonjour

Je dis Dataset parce que je pense que le problème concerne ce composant à la base même si je cherche plutôt pour un TTable.e

Je cherche une méthode rapide pour ajouter une ligne à un TDataset en faisant une copie de la ligne en cours.
Basiquement, je peux mettre toutes les valeurs en cours dans un tableau et ajouter une ligne et transférer les valeurs dans la nouvelle ligne.
Mais je suis certain qu'on faire autrement. Je sais que les données sont présentes dans un buffer de ligne (record).
Donc, on doit sûrement pouvoir copier ce buffer dans une variable, créer une nouvelle ligne et envoyer le buffer de dans.
J'ai fouillé dans les poches de Google et à part des copies de champ, je n'ai trouvé que la procédure suivante (suggéré par un membre de la TeamB ) qui ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function CopyRecord(Table: TTable): Boolean;
var
  buf: PByte;
  W: Word;
begin
  GetMem(buf, Table.RecordSize);
  try
    Table.GetCurrentRecord(buf);
    W := DbiAppendRecord(Table.Handle, buf);
  finally
    FreeMem(buf);
  end;
end;

Enfin, disons qu'elle fonctionne mal. La nouvelle ligne est bien créée mais les valeurs dedans sont complètement farfelues et ne sont pas du tout conformes à la ligne "source".

Avez-vous déjà cherché une solution à ce problème ?

[ShaiLeTroll]

DbiAppendRecord c'est une API uniquement BDE donc ce n'est pas lié au TDataSet mais au TBDEDataSet

TRecordBuffer est bien un alias à PByte, donc on ne peut pas trop savoir ce que cela contient

Qu'elle est la base de données derrière ?
Paradox ?
N'ayant pas BDE installé, je n'ai pas les sources pouvoir si ces deux fonctions sont compatibles, essaye sinon DbiReadBlock et DbiWriteBlock

un SGBG SQL, utiliser un INSERT SELECT que le serveur traitera localement

[Papy214]

Tout à fait ! Donc, oublions le TDataset. Mais l'exemple de fonction trouvé sur le net utilise bien un TTable.
Sauf que ça ne fonctionne pas.

Pour le moment, j'ai trouvé une solution à base de TClientDataset qui fonctionne bien.

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 TTableHelper.NewLineOnCurrent;
var
  Cds: TClientDataSet;
  Dtp: TDataSetProvider;
begin
  if Recordcount = 0 then
    Exit;
 
  if State in [dsEdit, dsInsert] then
    Post;
 
  Dtp         := TDataSetProvider.Create(nil);
  Dtp.DataSet := Self;
 
  Cds := TClientDataSet.Create(Dtp);
  Cds.FieldDefs.Assign(FieldDefs);
  Cds.CreateDataSet;
  Cds.Open;
  Cds.Append;
  Cds.CopyFields(Self);
  Cds.Post;
 
  Append;
  CopyFields(Cds);
 
  Cds.Close;
  FreeAndNil(Dtp);
 
  Last;
end;

Au moins, j'ai la bonne structure à chaque fois quelle que soit la source et c'est très rapide.
Je pensais juste trouver plus court.

[ShaiLeTroll]

Faudrait regarder BatchMove si tu peux filtrer la source pour qu'elle soit recopier filtré dans la destination

[Papy214]

On peut utiliser un TTable filtré mais j'ai besoin de copier la ligne depuis un TTable dont le contenu est affiché dans une grille.
Si je filtre, ça va modifier (même temporairement) l'affichage de la grille et je préfère éviter.
Ma méthode parait un peu longue sous sa forme écrite mais rapide à l'exécution.
Je vais rester comme ça.

Merci