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

Babak-Aghili

جمعه 28 اسفند 1383, 22:25 عصر

سلام . خوب و خوش هستید ؟ خب خدا را شکر ! :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>

:موفق: