Question

delphi问题

ADOtable1.Active:= True;
ADOtable1.Edit;
ADOtable1.FieldByName('users').AsString :=Edit1.Text;
ADOtable1.FieldByName('password').AsString :=Edit2.Text;
ADOtable1.FieldByName('qx').AsVariant :=ComboBox1.Text;
//ADOQuery1.ExecSQL;
ADOtable1.Post;
为什么数据之更新一条
改成
ADOtable1.Active:= True;
ADOtable1.First ;
while not ADOtable1.Eof do
begin
ADOtable1.Edit;
ADOtable1.FieldByName('users').AsString :=Edit1.Text;
ADOtable1.FieldByName('password').AsString :=Edit2.Text;
ADOtable1.FieldByName('qx').AsVariant :=ComboBox1.Text;
//ADOQuery1.ExecSQL;
ADOtable1.Post;
ADOtable1.Next ;
end;
但还是只更新一条啊！！

Answer 1

ADOtable1.Active:= True;
ADOtable1.First ;
while not ADOtable1.Eof do
begin
ADOtable1.Edit;
ADOtable1.FieldByName('users').AsString :=Edit1.Text;
ADOtable1.FieldByName('password').AsString :=Edit2.Text;
ADOtable1.FieldByName('qx').AsVariant :=ComboBox1.Text;
//ADOQuery1.ExecSQL;
ADOtable1.Post;
ADOtable1.Next ;
end;
应该是可以遍历完所有数据进行更新的。。
调试下看看。

Answer 2

ADOtable1.Active:= True;
ADOtable1.First ;
while not ADOtable.Eof do
begin
ADOtable1.Edit;
ADOtable1.FieldByName('users').AsString :=Edit1.Text;
ADOtable1.FieldByName('password').AsString :=Edit2.Text;
ADOtable1.FieldByName('qx').AsVariant :=ComboBox1.Text;
//ADOQuery1.ExecSQL;
ADOtable1.Post;
ADOtable.Next ;
end;

Answer 3

呵呵是ADOtable还是ADOtable1 先搞清楚 用AdoQuery试试

Answer 4

当然只更新一行,更新游标所在的行