我用delphi的ADOQuery来操作vfoxpro表的记录,当我删除记录时,用 delete from vfox_table1,
但表内只是加了一个删除的标记,并未全部删除记录。
如何全部删除记录?就象vfoxpro的命令pack一样。 解决立即给分。
但表内只是加了一个删除的标记,并未全部删除记录。
如何全部删除记录?就象vfoxpro的命令pack一样。 解决立即给分。
解决方案 »
- TreeView如何获取子节点的值
- 怎么实现给字符加边框轮廓?
- 高手请给解析下面的代码递归算法,怎么返回的字符串为空,奇怪??
- 权限高手进来啊!考验你们的时间到了(关于ActionList或 ActionManager 另类用法)
- 如何制作类似QQ那样的界面?
- 怎样在窗体启动的时候将Type所对应的Name添加到所在的节点中????
- 高分相送,请教问题
- delphi的socket通讯中出现的问题?请高手指点!!!!1
- 请问: 如何将MEMO中的HTML源代码,另存为TXT?
- 请教一个关于TStream的压缩问题!急!!!
- 使用findfirst实现层级查询指定的文件
- 请问vc编的DLL的函数参数中有指针的应该如何调用,谢谢
*
* 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.
在VF6.0的库中的时间记录是这样的格式:2004-9-18 00:15:28
我想用命令将该格式转换为:20040918001528 也就是将上述格式中的两横去掉,空格去掉,时间分隔符去掉。
不知各位高手是否有解决办法,还有就是库中的时间记录可实在不少,需要一个能够批量转换的命令,最好是一条命令就能够完成。
谢谢各位高手的指教!
谢谢!
我的mail:[email protected]