delphi7中把edit空间的值读取出来写入数据库。

Question

var
mz:string;
bm:string;
begin
mz:=edit2.Text;
bm:=edit4.text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update t_person');
ADOQuery1.SQL.Add('set name=:mz');
ADOQuery1.SQL.Add('where person_bm=bm');
ADOQuery1.Parameters.ParamByName('mz').Value:=zm;
ADOQuery1.Parameters.ParamByName('bm').Value:=bm;
ADOQuery1.Open;
end;
上面是我写的代码不知道哪里错了能运行但是操作的时候出现错误

Answer 1

改成下面这样：
var
mz:string;
bm:string;
begin
mz:=edit2.Text;
bm:=edit4.text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update t_person set name='''+mz+''''+'where person_bm='''+bm+'''');
ADOQuery1.SQL.ExceSql
ADOQuery1.Open;
end;
注意连接好ADOQuery1就可以了

Answer 2

这个扫描枪其实就是一个自动键盘一样，delphi不用任何编程的，只需设 edit为焦点（用户手动或者程序自动设为焦点都可以），就行了。
可以接受扫描枪的输入并自动按回车

Answer 3

var
mz:string;
bm:string;
begin
mz:=edit2.Text;
bm:=edit4.text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update t_person');
ADOQuery1.SQL.Add('set name=:mz');
ADOQuery1.SQL.Add('where person_bm=bm');
ADOQuery1.Parameters.ParamByName('mz').Value:=name;//把这儿的name改为mz
ADOQuery1.Parameters.ParamByName('bm').Value:=bm;
ADOQuery1.Open;
end;

Answer 4

var
mz:string;
bm:string;
begin
mz:=edit1.Text;
bm:=edit2.text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update AA');
ADOQuery1.SQL.Add('set T=:mz');
ADOQuery1.SQL.Add('where ID=:bm');
ADOQuery1.Parameters.ParamByName('mz').Value:=mz;
ADOQuery1.Parameters.ParamByName('bm').Value:=bm;
ADOQuery1.ExecSQL;
//ADOQuery1.Open;
楼主：插入和更新数据库使用ExecSQL，查询使用Open。还有，参数的值是mz 不是zm（ADOQuery1.Parameters.ParamByName('mz').Value:=zm;）