procedure TForm1.Button1Click(Sender: TObject);
var
Name: string;
begin
if edit1.text=''then
showmessage('请输入物料代码')
else
begin
Name := trim(Edit1.Text);
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select number ,name,fqty,fname,fnumber from z_luhq_js');
ADOQuery1.SQL.Add('where number like :name order by number');
ADOQuery1.params[0].asstring:='%' + name + '%';
ADOQuery1.ExecSQL;
ADOQuery1.active:=true;
edit1.Text:='';
end;
end;
问题如下:
在ADOQuery1.params[0].asstring:='%' + name + '%';里报错
Build
[Error] FrmMain.pas(72): Undeclared identifier: 'paramters'
[Error] FrmMain.pas(72): Missing operator or semicolon
[Fatal Error] LoginDemo.dpr(6): Could not compile used unit 'FrmMain.pas'
但在不用ADO时Query1.params[0].asstring:='%' + name + '%';是可以通过的
请教ADOQuery1.params[0].asstring:='%' + name + '%';要怎么改一下??
谢谢先~~~~~~
var
Name: string;
begin
if edit1.text=''then
showmessage('请输入物料代码')
else
begin
Name := trim(Edit1.Text);
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select number ,name,fqty,fname,fnumber from z_luhq_js');
ADOQuery1.SQL.Add('where number like :name order by number');
ADOQuery1.params[0].asstring:='%' + name + '%';
ADOQuery1.ExecSQL;
ADOQuery1.active:=true;
edit1.Text:='';
end;
end;
问题如下:
在ADOQuery1.params[0].asstring:='%' + name + '%';里报错
Build
[Error] FrmMain.pas(72): Undeclared identifier: 'paramters'
[Error] FrmMain.pas(72): Missing operator or semicolon
[Fatal Error] LoginDemo.dpr(6): Could not compile used unit 'FrmMain.pas'
但在不用ADO时Query1.params[0].asstring:='%' + name + '%';是可以通过的
请教ADOQuery1.params[0].asstring:='%' + name + '%';要怎么改一下??
谢谢先~~~~~~
解决方案 »
- 一个QUERY返回的多个数据集怎么样用DBGRID来显示
- 要学分布开发,不知要买哪本书好,大家帮忙推荐一本吧,感激不尽!
- dbgrid
- 窗体问题,帮忙解决,谢谢.
- 动画按钮
- 用控件的方法add(addchild)等中用到pchar,string等变量,控件free时是否会释放掉该变量?
- 公司装了ADSL宽带网,但是只要用到Socket的地方就报错Socket error.要怎么解决?请高手指点!
- 请问?谁有WINDOWS API 电子文档?急用!
- 一个重要的问题.
- delphiXE 使用json对象时只释放容器对象即可
- Delphi7编译时的一个怪问题,不知有没人遇到过?
- 数据集比较的效率问题(超超级难题)
ADOQuery1.SQL.Add( "where number like '''+'%'+name+'%'+''' order by number ");
like "%'+:@name+'%"