Discussion :

[colombe]

bonjour a tous
y a t'il un moyen pour dupliquer une table Dbase(avec la meme structure et les meme données)
merci

[Archibald29]

Bonjour,

Comme ça peut être si je comprends bien la question :

CopyFile('arti.dbf','NewArti.Dbf',True);
ou encore :
CopyFile('arti.dbf',pChar(sFileName),True);

[colombe]

pas possible de faire une copy de table avec un copyfile
je vient de le tester sans succée.

[Bejaia-In]

Fonction qui copie une table avec sa structure dans le même repertoire.
appel de la fonction :

Code :

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

1
2
NomTableOriginale.Exclusive:=True;
CopyTable(Table1.dbhandle, 'NomTableOriginale.DB', 'NomTableCopie.DB');

Implementation :

Code :

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

1
2
3
4
procedure CopyTable(hTmpDb: hDbiDb; SrcTableName: String; DestName: String);
begin
  Check(DbiCopyTable(hTmpDb, True, PChar(SrcTableName), nil, PChar(DestName)));
end;

Cette fonction peut être utilisée avec les tables Paradox,DBase,FoxBase,Access et même les tables SQL.

[forzaxelah]

Ou pour une méthode plus bourrin:

Tu crées une table2 avec les meme champs que celle que tu veux dupliquer mais vide.
Après tu fais un INSERT into Table1
C'est super nul mais au moins ça marche...

[Archibald29]

Essaie encore !!!

Code :

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

1
2
CopyFile('arti.dbf',pChar(sFileName),False);

Cette méthode doit fonctionner : c'est celle que j'utilise pour créer des fichiers temporaires pour des extractions ayant à subir des traitements ultérieurs...
Le dernier paramétre (False/True) correspond à "Fail if Exists"