关于网友提出的“delphi编程查询数据库中是否存在该数据的下面代码有什么问题”问题疑问，本网通过在网上对“delphi编程查询数据库中是否存在该数据的下面代码有什么问题”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题：delphi编程查询数据库中是否存在该数据的下面代码有什么问题
描述:delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
if trim(edit1.Text)='' then
begin
ShowMessage('药品编码不能为空');
end
else
strSql:= 'select * from table where drug_code=:trim(edit1.Text)';
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add(strSql);
open;
if ADOQuery1.IsEmpty then
begin
ADOQuery1.Close;
Adoquery1.SQL.Clear;
ADOQuery1.SQL.Text:='insert into atf_his_druginfo(drug_code,drugname,specification,pack_name,manufactory,py_code) values(:drug_code,:drugname,:specification,:pack_name,:manufactory,:py_code)';
ADOQuery1.Parameters.ParamByName('drug_code').Value:=trim(edit1.Text);
ADOQuery1.Parameters.ParamByName('drugname').Value:=trim(edit2.Text);
ADOQuery1.Parameters.ParamByName('specification').Value:=trim(edit3.Text);
ADOQuery1.Parameters.ParamByName('pack_name').Value:=trim(edit4.Text);
ADOQuery1.Parameters.ParamByName('manufactory').Value:=trim(edit5.Text);
ADOQuery1.Parameters.ParamByName('py_code').Value:=trim(edit6.Text);
ADOQuery1.ExecSQL;
ShowMessage(edit2.Text+'药品添加成功');
end
else
begin
ShowMessage('数据库中已经存在药品编码为'+trim(edit1.Text)+'的药品信息，请确认后重新输入！');
end
end;
解决方案1: strSql:= 'select * from table where drug_code=:trim(edit1.Text)';
这个＝号后咋赋值的？
strsql:='select * from table where drug_cod=:a1';
ADOQuery1.Parameters.ParamByName('a1').Value:=trim(edit1.Text);
下面insert用参数，上面select也可以用啊
以上介绍了“delphi编程查询数据库中是否存在该数据的下面代码有什么问题”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/826131.html
