Question

Delphi access数据库查询出问题了

procedure TForm5.Button1Click(Sender: TObject);
begin
if(Edit1.Text <>'') then
begin
Form4 := TForm4.Create(self);
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text:= 'select 编号,品名规格,脚长 from PM where ps ='+Quotedstr(trim(edit1.text));
Query1.Parameters.ParamByName('ps').Value:= Edit1.Text;
Query1.Open;
Form4.edtsn.Text := Query1.Fields[0].AsString;
Form4.edtps.Text := Query1.Fields[1].AsString;
Form4.edtfl.Text := Query1.Fields[2].AsString;
Form4.ShowModal;
end;
end;

end.[/code]

表PM中有ps ,编号，品名规格，脚长等10几个字段名称

我想实现的功能是，在form5输入ps，点击button1就能弹出form4,并在form4中用三个edit分别显示三个字段值，
编绎完全没问题，在form5输入ps值后,能够从数据库表里查询并显示数据，但是不是跟PS对应的那一行数据，而是显示最后一行的数据。
比如：
ps 编号 品名规格 脚长
1 001 20 20
2 002 30 30
3 003 40 40

输入：1，
查询，
结果显示：
编 号：003 品名规格：40 脚长：40

就是这样，是不是下面的语句写错了？
Form4.edtsn.Text := Query1.Fields[0].AsString;
Form4.edtps.Text := Query1.Fields[1].AsString;
Form4.edtfl.Text := Query1.Fields[2].AsString;

Answer 1

删除这句: Query1.Parameters.ParamByName('ps').Value:= Edit1.Text;

应该是SQL查询Where条件原因
在 Query1.Open 行设置断点,跟踪看一下Query1.SQL.Text的SQL语句

Answer 2

Query1.Parameters.ParamByName('ps').Value:= Edit1.Text;
这一句是多余的！
还有，你的ps字段是文本类型的还是数值类型的？如果是数值类型，则应该要去掉Quotedstr函数。

Answer 3

Query1.SQL.Text:= 'select * from PM where ps ='''+trim(edit1.text)+''''
哈哈，我是来领分的