有如下语句:
form1.Query1.Close;
form1.Query1.sql.Clear;
sqlnamestr:='delete from dataname'
form1.Query1.SQL.Add(sqlnamestr;
form1.Query1.ExecSQL;
不能删除记录,但是只做了删除标记,而没有删除。
虽然用sql语句看不见,但是文件没有变小,用vfp打开,只做了删除标记。我用的是vfp的数据库。
form1.Query1.Close;
form1.Query1.sql.Clear;
sqlnamestr:='delete from dataname'
form1.Query1.SQL.Add(sqlnamestr;
form1.Query1.ExecSQL;
不能删除记录,但是只做了删除标记,而没有删除。
虽然用sql语句看不见,但是文件没有变小,用vfp打开,只做了删除标记。我用的是vfp的数据库。
解决方案 »
- image控件画图时高度超出范围怎么解决?
- 这个技术叫什么名字?
- 一个小问题,请帮忙,谢谢!
- 1条挺难写的SQL语句
- 怎么在打印时弹类似Word里一样的打印机设置对话……
- 这个问题,在我脑中都创建了1000个“线程”了,快崩溃了
- 急!!!!打开某个窗口时报Access Violation at address ‘’ Read of address ‘’
- word中表格轉入資料庫求救!!!!!
- 美丽的圣诞,你还在加班吗?
- DBNavigator控件可否在程序中将某个已经显示的按钮变为不显示?
- 求一控件!!!!急!!!!
- 我热爱Pascal,但对于我至爱的语言的前途感到迷茫,请大家来看一看,谈一谈!
// The table must be opened exclusively 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;
有一个"pack"命令,但在delphi6中怎么用?