盒子论坛 v2.1

如果DBF文件的扩展名被改成ysk,用foxpro可以打开，而用delphi的table控件就无法打开，怎么解决呀？有谁能告诉我呀？那位高手可以出手相救呀？小女子感激不尽！谢谢！谢谢！再谢谢！e-mail:wangyh@yjy.dq.cnpc.com.cn或wangyif@mail.dqt.com.cn
----------------------------------------------
-

作者：

wangyh413 (wangyh413)	★☆☆☆☆	-
	普通会员

2003/9/22 23:44:06

1楼：

谁在呀？没人愿意帮帮我吗？
----------------------------------------------
-

作者：

30896186 (缘来一家人)	★☆☆☆☆	-
	盒子活跃会员

2003/9/23 9:06:21

2楼：

用query试试
----------------------------------------------
-

作者：

wangyh413 (wangyh413)	★☆☆☆☆	-
	普通会员

2003/9/23 10:13:57

3楼：

但是我不光要打开这个数据库文件，我还要修改这个数据文件，特别是彻底删除记录时，table控件必须设为独占方式：table1.Exclusive:=true,query控件好象不能完成这些功能！

----------------------------------------------
-

作者：

wangyh413 (wangyh413)	★☆☆☆☆	-
	普通会员

2003/9/23 14:07:50

4楼：

谁还有办法呀，帮帮忙，别见死不救呀！
----------------------------------------------
-

作者：

30896186 (缘来一家人)	★☆☆☆☆	-
	盒子活跃会员

2003/9/23 14:49:45

5楼：

XXXXXXXXXXXXXX数据库问题以后可以进数据库题发贴XXXXXXXXXXXXXXXXXXXX
可以啊。
query1.close;
query1.sql.clear;
query1.sql.('delete from table');
query1.ExecSQL;
同样有此效果
XXXXXXXXXXXXXX数据库问题以后可以进数据库题发贴XXXXXXXXXXXXXXXXXXXX
效果更好，效率更高
----------------------------------------------
-

作者：

wangyh413 (wangyh413)	★☆☆☆☆	-
	普通会员

2003/9/28 23:31:21

6楼：

对与dbf文件，向你这样做只是做了个删除标记而已！并不能彻底删除！我找到了个函数
procedure Tform1.PackTable(Table: Ttable);
var
Props: CURProps;
begin
if not Table.Active then
   raise EDatabaseError.Create('Table必需已经打开');
   if not Table.Exclusive then
     raise EDatabaseError.Create('Table必需以独占方式打开');
      Check(DbiGetCursorProps(Table.Handle, Props));
      if (Props.szTableType = szDBASE) then
         Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
      else
         raise EDatabaseError.Create('Table必需是dBASE或FoxPro类型');
showmessage('彻底删除记录!');

end;
对TTable完全好用，但对TQuery并不好用，Table.Exclusive：=true,TQuery好象并不行，你有什么好办法吗？
----------------------------------------------
-

信息

登陆以后才能回复