delphi如何物理删除DBF数据
解决方案 »
- delphi Ado操作 表字段为整型
- delphi程序如何让运行后只在托盘出现不在状态栏出现
- 各位用StretchDraw缩放图象,和直接把TImage的属性Stretch设为True有什么区别?
- 请问一下:DLL文件是二进位的文件吗?如果是,为何显示袋子像乱码这样的东西呀,是Windows系统定的吗?还是Windows只不过从内存中取出来
- 请问那里有windows 95 的安装程序?我的分不多了,答对者每人十分吧!谢谢了!
- 一个控件的图标问题?
- delphi简单问题
- NMFTP控件能否判断上传的文件在服务器目录中是否存在?
- 请大家给我一个小程序给我做
- 有谁用过DevExpress控件,帮帮我?这也许和DataSet有关,大家请进……
- 高性能大容量SOCKET并发(四):粘包、分包、解包
- delphi7,ACCESS数据库,使用DBGRID控件显示查询结果,但是结果中,文本类型的字段显示列宽太大,想要能根据字段大小调整字段
老代码了,试试看行否{***************************************************************
*
* Unit Name: unAccessTools
* Purpose : Provide tools to compact and repair Access database.
*
****************************************************************}unit unAccessTools;interfaceuses Sysutils,ComObj,Dialogs;function DaoActive(var DaoObject:OleVariant):Boolean;
function DaoCompactDB(const FileName:string):Boolean;
function DaoRepairDB(const FileName:string):Boolean;implementationfunction DaoActive(var DaoObject:OleVariant):Boolean;
begin
Result:=False;
try
DaoObject:=GetActiveOleObject('DAO.DBEngine.36');
Result:=True;
except
try
DaoObject:=CreateOleObject('DAO.DBEngine.36');
Result:=True;
except
DaoObject:=Null;
end;
end;
end;//压缩Access数据库
function DaoCompactDB(const FileName:string):Boolean;
var
db:OleVariant;
TempFile:string;
begin
Result:=False;
try
if not DaoActive(db) then
Exit;
try
TempFile:=ExtractFilePath(FileName)+'msaTemp.mdb';
db.CompactDatabase(FileName,TempFile);
DeleteFile(FileName);
RenameFile(TempFile,FileName);
Result:=True;
except
on E:EOleException do
ShowMessage(E.Message);
end
finally
db:=Unassigned;
end;
end;//修复Access数据库
function DaoRepairDB(const FileName:string):Boolean;
var
db:OleVariant;
begin
Result:=False;
try
if not DaoActive(db) then
Exit;
try
db.RepairDatabase(FileName);
Result:=True;
except
on E:EOleException do
ShowMessage(E.Message);
end
finally
db:=Unassigned;
end;
end;end.