谁能谈谈EmptyTable的用法?(50分)

  • 主题发起人 主题发起人 lavi
  • 开始时间 开始时间
L

lavi

Unregistered / Unconfirmed
GUEST, unregistred user!
我使用如下代码:
Table.Close;
Table.EmptyTable;
Table.Open;
运行时总是提示Table is busy.请教EmptyTable的使用方式。
 
if not Table.Active then
Table.Active:=True;
Table.EmptyTable;
Table.Active:=False;
 
EmptyTable
is only for dBase or Paradox???
 
对了,我的数据库是Foxpro2.5的,是否需要考虑独占打开得问题?
 
with Table1 do
begin
Active := False;
DatabaseName := 'Delphi_Demos';
TableName := 'CustInfo';
TableType := ttParadox;
EmptyTable;
end;
 
[:(]我使用如下代码:
if not Table.Active then
Table.Active:=True;
Table.EmptyTable;
Table.Active:=False;
运行时总是提示Cannot open Table for exclusive use.
如果使用如下代码:
with Table1 do
begin
Active := False;
DatabaseName := 'Delphi_Demos';
TableName := 'CustInfo';
TableType := ttParadox;
EmptyTable;
end;
运行时总是提示Table is busy.请教EmptyTable的使用方式。
 
EmptyTable是清空表内容,必须在表打开且独占情况下使用
 
也请问大家一个问题:怎么用adotable来修改多个纪录的同一个字段值。我用下边的方法:
adotable1.active:=true;
adotable1.First;
while not adotable1.Eof do
begin
if (ADOTable1.Locate('学习阶段;章节', VarArrayOf(['初一上册','第一章']), []))
then begin
adotable1.Edit;
adotable1.FieldByName('题目总数').AsInteger:=4;
adotable1.Post;
end;
adotable1.Next;
end;
adotable1.refresh;
就是这段代码,是个死循环。post之后指针总是指到表头。请问:如果就用adotable,这个程序到底该怎么写?
它实现的功能就是:把数据表中一些(不止一个)字段的值修改并保存
 
后退
顶部