حذف فیزیکی

[شفیعی]

سلام
با چه دستور می توان اطلاعات یک فایل پاراداکس را به طور فیزیکی (نه به صورت مجازی ) حذف نمود

[Delphi Skyline]

آقا من که فکر کنم (که 90% شاید اشتباه کنم) فیزیکی با مجازی یکیه؟ نه .

[شفیعی]

سلام
یک فایل پاراداکس داریم که می خواهیم در داخل برنامه این فایل را خالی کنیم ولی نمی شود


GORUH-KALA.DB
Name Type Size
1 - CODGORUH : + (Autoincrement) 3
2 - NAMEGORUH : String 20
3 - COMENT : String 25



با استفاده از دستورات زیر فایل خالی می کنیم ولی خالی نمی شود



begin
with Table1 do
begin
Active := False;
TableType := ttParadox;
EmptyTable;
Active := true;
end ;

با دستورات بالا اطلاعات فایل به صورت واقعی حذف نمی شود مثلا وقتی اطلاعات فایل را پاک می کنیم بعد رکورد بعدی را که وارد می کنیم بجای اینکه عدد CODGORUH از یک شروع شود از دنباله اعداد پاک شده شروع می شود

[شفیعی]

سلام
لطفا بنده را راهنمائی نمائید (نیاز فوری )

[Babak-Aghili]

Procedure ParadoxCompation (Table : TTable );
var
TBDesc: CRTblDesc;
hDB: hDBiDB;
TablePath : Array[0..dbiMaxPathLen] of vhar;
Begin
FillChar(TBDesc, Sizeof(TBDesc),0);
with TBDesc Do Begin
StrPCopy (szTblName, Table.TableName);
StrPCopy(szTableType, szParadox);
bPack:= True;
end;
Table.Open;
hDB:= NIL;
Check(DbiGetDirectory(Table.DBHandle, True, TablePAth));
Table.Close;
Check(DbiOpenDatabase(NIL, 'STANDARD', dbiReadWrite, dbiOpenExcl, NIL, 0, NIL, NIL, hDB));
Check(DbiSetDirectory (hDb, TablePath));
Check(DbiDoReStructure(hDb, 1, @TBDesc,nil, nil, nil, False));
Table.Open;
end;

[شفیعی]

سلام
http://www.barnamenevis.org/forum/viewtopic.php?t=12319&postdays=0&postorder=asc&sta rt=10

اگه از من میشنوی پارادکس رو بزار کنار . من تو یک کتاب راهش رو دیدم ولی یک تابعی استفاده کرده بود که من هیچ کجا نتونستم یونیتش رو پیدا کنم .

:موفق:

[شفیعی]

سلام


اگه از من میشنوی پارادکس رو بزار کنار

دوست عزیز بجاش از چی استفاده کنم

اگه برا تک کاربره میخوای از access یا easytable استفاده کن ولی اگربرا تحت شبکه میخوای از sqlserver یا dbisam یا اراکل استفاده کن .
برا تک کاربره بهتر از easytable استفاده کنی که توی سی دی برنامه نویس هستش . البته dbisam هم روآقای کرامتی دارند با ایشون تماس بگیرید .

:موفق:

[شفیعی]

سلام
easytable چیست و مزایای آن نسبت به بقیه چیست

[شفیعی]

سلام
برای ACCESS هم می توان عملیات را انجام داد (UNDELETE- PACK-ZAP)

برم به این لینک .

http://www.aidaim.com/BDE_alternative_Delphi_database_system.htm#Specifi cation

اینجا امکانات easytable رو خواهید دید .

:موفق:

[Touska]

قدرتش را من میدونم

ویرایش شد توسط:
Delphi-Clinic

پسر جان اینجا مغازه نیست.

:mrgreen:

موفق باشید :موفق:

[شفیعی]

سلام


پسر جان اینجا مغازه نیست.

من متوجه نشدم قضیه چیه ؟

این لینک ها رو هم ببین

http://www.aidaim.com/articles/dbtests2.php

http://www.aidaim.com/articles/dbtests1.php


:موفق:

[Touska]

من با License می فروشم و نمایندگی آنها را دارم

گفتم که بدونید و برای حذف و یا ذخیره فیزیکی باید از

دستور Flush Buffer در Easy Table استفاده کنید

موفق باشید :موفق: :flower: