روشی مناسب جهت کپی کردن جداول اکسس و پارادکس

سلام . خوب و خوش هستید ؟ خب خدا را شکر ! :mrgreen:
---------
با کد زیر میتوان با خیال راحت از جداول پارادکس و اکسس BackUp گرفت.
توجه داشته باشید که اگر از TBatchMove و یا کپی کردن معمولی فایلها استفاده کنید به احتمال خیلی زیاد با ایندکسها و .... مشکلاتی پیدا خواهید کرد .

---------
<span dir=ltr>

Procedure CopyTable(T:TTable; DestTbName: string; Overwrite: Boolean);

var

  DBType: DBIName;

  WasOpen: Boolean;

  NumCopied: Word;

Begin

   WasOpen:= T.Active;

   if not WasOpen then T.Open;

   Check(DbiGetProp(hDBIObj(T.Handle)  , drvDRIVERTYPE, @DBType, sizeof (DBIName), NumCopied));

   Check(DBiCopyTable(T.DBHandle, Overwrite, PChar(T.TableName), DBType, PChar(DestTblName)));

   T.Active:= WasOpen;

end;

</span>

:موفق: