Query的问题

Question

作成函数三
function buildSQL(arg: String): String;
begin
  result := 'Select * From Customer.db where CustNo='+arg;end;

Answer 1

Query里面的语句是这样写的：Select * From Customer.db Where CustNo = :CustNo
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.ParamByName('CustNo').AsInteger := StrToInt(Edit1.text);
  Query1.Open;
end;

Answer 2

去修改一下query属性的params里的custNo的数据类型。因为默认为unknown type
，你必须手动去修改才行，否则提示上述错误。