delphi 错误类EDatabaseError 'BH'not found

来源：百度知道 编辑：UC知道 时间：2024/06/11 03:19:24
procedure TFormkehuinput.Button1Click(Sender: TObject);
var
t:tdate;
begin
t:=now();
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from kehu where kid=:BH');
ADOQuery1.Parameters.ParamByName('BH').Value:=Editidshu.Text;
ADOQuery1.Open;
if ADOQuery1.RecordCount<>0 then
showmessage('客户编号重复！')
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into kehu(kid,kname,phone,wttime,remark)values(:bianhao,:xingming,:dianhua,:riqi,:beizhu)');

if Editidshu.Text='' then
begin
showmessage('请输入客户编号！');
exit;
end
else
ADOQuery1.

ADOQuery1.SQL.Add('select * from kehu where kid=:BH');
ADOQuery1.Parameters.ParamByName('BH').Value:=Editidshu.Text;
上面两句改成:
ADOQuery1.SQL.Add('select * from kehu where kid='''+Editidshu.Text+'''');
是否可以?
或者改成:
ADOQuery1.SQL.Add('select * from kehu where kid=:v0');
ADOQuery1.Parameters[0].Value:=Editidshu.Text;