说说你的错误。
BDE可以实现类似foxpro的undelete和pack功能,不过要自己写代码利用BDE API
BDE可以实现类似foxpro的undelete和pack功能,不过要自己写代码利用BDE API
解决方案 »
- 如何使Listview根据大小,自动显示图标?
- 赢95一把,高兴哪,散散分~~~
- 关于com组件的一个问题
- 关于idhttp中代理服务器的用法
- 请问如何使DBgrid中显示数据库表中的数据呢,在线等待,随时结贴
- 大家好,关于二进制文件保存读取问题,谢谢,马上给分,可以多给分,
- 數據集中當前指針的記錄號不是RecNo嗎,為什麼我得到的值總是-1呢,為什麼
- DLL生成的问题
- 各位在北京工作的大哥,拉小弟一把!
- 假设我在一个comobox里选择系名,在另一个comobox里相应地会出现该系的专业名,如何实现?!最好能给出代码,谢谢
- Delphi中如何实现GIF图形的缩放和拖拽?就象ACDsee 32一样?
- 我在写了一个新组件,但是但INSTALL 组件的时候,DELPHI老是运行以前的那一个组件
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;但是我的数据表格是Microsoft Foxpro VFP(*类型的阿,这个函数不支持,他支持两种类型,一个是Paradox,一个是Dbase,我把参数szdbase改成szfoxpro也可以,但是在读我的表格的时候,就是不支持,痛苦阿·