help!!!(200分)

tourist · 1999-06-11

如何在Delphi中对后台数据库进行物理删除(如：paradox)？

menxin · 1999-06-11

你是指删除库而不是删除记录吗？

CJ · 1999-06-11

简单的，DELETEFILE 不过，你一定要保证没人正在使用此数据库

Blade · 1999-06-11

直接删除文件.

menxin · 1999-06-11

如果只是想删除文件，什么都行了，好几种方法吧。

huizhang · 1999-06-12

是想删除程序建立的临时库吧，程序启动后用FindFirstFile，FindNextFile将一个 Alias下的文件记录到一个TStringlist中，关闭程序前在检测如果有不在TStringLst 中的文件就用DeleteFile删除之。 FindFirstFile, TStringList, DeleteFile的用法都可以用问题检索在本论坛上找 到。

suny · 1999-06-12

假如没人正在使用此数据库的话 用 DELETEFILE 删除， all of *.db or *.dbf 如果是网络数据库，用drop table 即可

yysun · 1999-06-12

以下文字引自 http://www.borland.com/devsupport/bde/bdeapiex/index.html This example will pack a Paradox or dBASE table therfore removing already deleted rows in a table. This function will also regenerate all out-of-date indexes (maintained indexes) This example uses the following input

ackTable(Table1) // Pack a Paradox or dBASE table // The table must be opened execlusively before calling this function... procedure PackTable(Table: TTable); var   Props: CURProps;   hDb: hDBIDb;   TableDesc: CRTblDesc; begin   // Make sure the table is open exclusively so we can get the db handle...   if Table.Active = False then     raise EDatabaseError.Create('Table must be opened to pack');   if Table.Exclusive = False then     raise EDatabaseError.Create('Table must be opened exclusively to pack');   // Get the table properties to determine table type...   Check(DbiGetCursorProps(Table.Handle, Props));   // If the table is a Paradox table, you must call DbiDoRestructure...   if Props.szTableType = szPARADOX then   begin     // Blank out the structure...     FillChar(TableDesc, sizeof(TableDesc), 0);     //  Get the database handle from the table's cursor handle...     Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));     // Put the table name in the table descriptor...     StrPCopy(TableDesc.szTblName, Table.TableName);     // Put the table type in the table descriptor...     StrPCopy(TableDesc.szTblType, Props.szTableType);     // Set the Pack option in the table descriptor to TRUE...     TableDesc.bPack := True;     // Close the table so the restructure can complete...     Table.Close;     // Call DbiDoRestructure...     Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, FALSE));   end   else     // If the table is a dBASE table, simply call DbiPackTable...     if Props.szTableType = szDBASE then       Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, TRUE))     else       // Pack only works on PAradox or dBASE; nothing else...       raise EDatabaseError.Create('Table must be either of Paradox or dBASE ' +                'type to pack');   Table.Open; end;

Jams · 1999-10-04

DeleteFile将连数据库的结构也给删除了。若要保留结构就不能用该过程！

yh · 1999-10-04

这份又让yysun得了。

坏蟑螂 · 1999-10-06

paradox表有许多相关文件， 就算用“DELETEFILE”删除， all of *.db or *.dbf 还可能有*.px、*.val、*.xg0、*.xg1........ 实际上TTable提供了“正常”的方法删除表， 就是"Table1.DeleteTable"。 它的好处如下： 1。不管你的表有多少配套文件，统统删除，决不多删一个，也决不少删一个； 2。不管你的表是本地表，还是C/S表，都能搞定，而你的代码却差别不大； 3。保留Table1中的结构信息，可以马上重建新表（如果你开发时曾用字段编辑器 　　或运行时通过编程将结构信息加入Table1中的话）。 我建议你能用VCL提供的“正常”途径解决问题，就不要用“非常规”的方法来做。 （原因：可移植、可读性、通用性、代码简洁。。。。。。。你也知道，不说了）

坏蟑螂 · 1999-10-06

仔细读读yysun的代码，那是怎么PackTable,不是删除表， 学过dBase或Fox的都知道PACK命令吧， 实际上对于Paradox和dBase表，当你执行Table1.Delete时， 真正的记录并未删除，直到你做PackTable(Paradox表)或Pack(类dBase语言)时， 才真正删除。 二者不同的是：对Paradox表执行Table1.Append(或Table1.Insert)时，若有已 删除且未PACK掉的记录，就利用其空间存放新记录，而dBase始终分配新空间，原 已删除且未PACK掉的记录，可用“RECALL”命令（类dBase语言）恢复。 yysun的这段程序就是干PACK那事儿的。

cAkk · 2000-07-23

时间太久，强制结束。   wjiachun

help!!!(200分)

tourist

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

Blade

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

suny

Unregistered / Unconfirmed

yysun

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

yh

Unregistered / Unconfirmed

坏蟑螂

Unregistered / Unconfirmed

坏蟑螂

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Similar threads