Question

delphi问题

procedure TForm12.Button3Click(Sender: TObject);
begin
ADOQuery1.Close ;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into users(users,passsword,qx)');
ADOquery1.SQL.add('Values(:A1,:A2,:A3)');
ADOtable1.FieldByName('users').AsString :=Edit3.Text;
ADOtable1.FieldByName('password').AsString :=Edit4.Text;
ADOtable1.FieldByName('qx').AsVariant :=ComboBox1.Text;
ADOQuery1.ExecSQL ;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from users');
//ADOQuery1.Open;
ADOtable1.Close ;
ADOtable1.Open;
ADOtable1.Refresh;
end;
运行显示 ADOtable1：field 'users' not found
数据表里有users

Answer 1

因为你你的数据表USERS中没有字段users,所以报错。检查一下相应字段的字段名是什么，改一下就行了。
改这句：
ADOtable1.FieldByName('users').AsString :=Edit3.Text;

PS：估计users是user

for softwb：显然楼主的代码有点问题，可能是书写时出了点小差错。
估计应该是这样：
procedure TForm12.Button3Click(Sender: TObject);
begin
ADOQuery1.Close ;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into users(users,passsword,qx)');
ADOquery1.SQL.add('Values(:A1,:A2,:A3)');
ADOQuery1.ParamByName('A1').AsString :=Edit3.Text;
ADOQuery1.ParamByName('A2').AsString :=Edit4.Text;
ADOQuery1.ParamByName('A3').AsString :=ComboBox1.Text;
ADOQuery1.ExecSQL ;
ADOQuery1.Close;
//ADOQuery1.SQL.Clear;
//ADOQuery1.SQL.Add('select * from users');
//ADOQuery1.Open;
ADOtable1.Close ;
ADOtable1.Open;
ADOtable1.Refresh;
end;

Answer 2

ADOtable1.FieldByName('users').AsString :=Edit3.Text;
这句出问题了
说这个字段不存在，检查下表里面是否有这个字段

你这段代码很奇怪。不知道你要做什么 。。。
如果只是写字段值，为什么
ADOquery1后又用ADOtable1
Adotable1都没open
也没有
ADOtable1.Edit;
就FieldByName('users').AsString :=了。
写完后也没有
Adotable.Post;
估计还会有不少异常抛出。