怎样才能确实删掉dbase库的记录(100分)

  • 主题发起人 主题发起人 Bitman
  • 开始时间 开始时间
bde.hlp 中有相应的dbi...函数,请参考
 
使用RX等控件
或使用函数:(呵呵,天下CODE一大抄)


// 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 not Table.Active then
raise EDatabaseError.Create('Table must be opened to pack');
if not Table.Exclusive 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;
 
bde.hlp 中DbiPackTable函数,请参考
 
你提的问题应该是 xBase 数据库才有的。删除记录时只是做了删除标记,并未真正删除。
我的解决办法是在重载的TTable里增加了一个PackTable方法,要真正删除记录时就调用
这个方法:
procedure TTable.PackTable(ReIndex:Boolean); //ReIndex:是否重建索引
var
STableName: array[0..255] of Char;
begin
if Active then
begin
CheckBrowseMode;
Check(DbiPackTable(DBHandle, Handle, nil, nil, ReIndex));
ClearBuffers;
DataEvent(deDataSetChange, 0);
end else
begin
SetDBFlag(dbfTable, True);
try
Check(DbiPackTable(DBHandle, nil, AnsiToNative(DBLocale, TableName,
STableName, SizeOf(STableName) - 1), GetTableTypeName,ReIndex));
finally
SetDBFlag(dbfTable, False);
end;
end;
end;

核心是调用BDE函数DbiPackTable。
 
多人接受答案了。
 
后退
顶部