盒子论坛 v2.1

用如下方法实现数据的修改，报错为ADOTabCorporation:DataSet not in edit or insert model。可我设置了adotabcorporation.Edit,这怎么办呢？
adotabcorporation.open;
adotabcorporation.Edit;
adotabcorporation.First;
while not adotabcorporation.Eof do
   begin
   if adotabcorporation.FieldByName('corporation').AsString ='A' then
      adotabcorporation.FieldByName('corporation').AsString:='B';
   adotabcorporation.Next;
end;
adotabcorporation.Post;
adotabcorporation.close;
另外用如下语句实现数据修改也会出错，原因是什么？怎么改呢？
sql:='update corporation set corporation=''+B+'' where corporation=''+A+'';
qryremarkcor.Close;
qryremarkcor.SQL.Clear;
qryremarkcor.SQL.Add(sql);
qryremarkcor.Open;
----------------------------------------------
编程之路真如铁,而今迈步从头越

作者：

chenlei_fly (编程路上一小兵)	★☆☆☆☆	-
	普通会员

2004/1/10 20:39:16

1楼：

没人知道吗？自己顶一下先
----------------------------------------------
编程之路真如铁,而今迈步从头越

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/10 21:03:34

2楼：

1)var
s1:string;
begin
  table1.First ;
ProgressBar1.Max :=table1.RecordCount ;
ProgressBar1.Position :=0;
while not table1.Eof do
  begin

    ProgressBar1.Position :=ProgressBar1.Position+1;
    s1:=table1.fieldbyname('cor').AsString ;
    if s1='B' then
     begin
     table1.Edit ;
      table1.fieldbyname('cor').AsString:='A';
      table1.Post ;
     end;
    table1.Next ;
  end;
  table1.Refresh  ;
end;

2）procedure TForm1.Button3Click(Sender: TObject);
const aa='A'; bb='B';
var
s1:string;
begin
s1:='update sk set cor=''+bb+'' where cor=''+aa+'';
query2.Close ;
query2.SQL.Clear ;
query2.SQL.Add(s1);
  query2.ExecSQL ; //用于无返回记录
s1:='select * from sk';
query2.Close ;
query2.SQL.Clear ;
query2.SQL.Add(s1);
query2.Open ;//用于 SELECT 有返回记录
end;
----------------------------------------------

作者：

zsredmoon (=^@^=)	★☆☆☆☆	-
	盒子活跃会员

2004/1/10 21:17:09

3楼：

问题二报什么错呢?
----------------------------------------------

=^@^=

信息

登陆以后才能回复