Question

不知delphi 'select * from 临时表 where 临时表.车牌号=:a' :a是什么意思？:a运行通过，b c d出现问题？

with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select * from 临时表 where 临时表.车牌号=:a and 临时表.收货单位=:b and (临时表.收货地址=:c and 临时表.时间=:d');
parameters.ParamByName('a').Value:=Trim(DBGrid1.Fields[0].AsString );
parameters.ParamByName('b').Value:=Trim(DBGrid1.Fields[15].AsString);
parameters.ParamByName('c').Value:=Trim(DBGrid1.Fields[10].AsString );
parameters.ParamByName('d').Value:=Trim(DBGrid1.Fields[1].AsString );

Answer 1

楼主的这句话有错误
SQL.Add('select * from 临时表 where 临时表.车牌号=:a and 临时表.收货单位=:b and 临时表.收货地址=:c and 临时表.时间=:d');

把“临时表.收货地址”前面那个括号搞掉就OK了

简练一些的话还可以这么写
const sql_T:string = 'select * from 临时表 where 临时表.车牌号=%s and 临时表.收货单位=%s and 临时表.收货地址=%s and 临时表.时间=%s'
var mysql:string;
begin
mysql:=format(sql_T,[quotedStr(Trim(DBGrid1.Fields[0].AsString )),quotedStr(Trim(DBGrid1.Fields[15].AsString )),quotedStr(Trim(DBGrid1.Fields[10].AsString )),quotedStr(Trim(DBGrid1.Fields[1].AsString ))]);
with adoquery1 do
begin
close;
sql.text:=mysql;
open;
end;

end;

Answer 2

程序感觉没问题。
你把SQL语句中的汉字都换成字母。
最少要把临时表用别名代替。
如：
SQL.Add('select * from 临时表 tmp where tmp.车牌号=:a and tmp.收货单位=:b and tmp.收货地址=:c and tmp.时间=:d');
原来中间还多个“(”
如果报错，再把你的
parameters.ParamByName('d').Value:=Trim(DBGrid1.Fields[1].AsString );
改成：parameters.ParamByName('d').Value:=strtodate(Trim(DBGrid1.Fields[1].AsString ));

Answer 3

传递参数的变量

追问

b c d怎么会出现错误？望解答

追答

改下写法试下
with ADOQuery1 do
begin
close;
parameters.ParamByName('a').Value:=Trim(DBGrid1.Fields[0].AsString );
parameters.ParamByName('b').Value:=Trim(DBGrid1.Fields[15].AsString);
parameters.ParamByName('c').Value:=Trim(DBGrid1.Fields[10].AsString );
parameters.ParamByName('d').Value:=Trim(DBGrid1.Fields[1].AsString );
open;
ADOQuery1 中
select * from 临时表 where 车牌号=:a
and 收货单位=:b
and 收货地址=:c
and 时间=:d

你原来的写法少了一个括号
('select * from 临时表 where 临时表.车牌号=:a and 临时表.收货单位=:b and (临时表.收货地址=:c and 临时表.时间=:d'));

追问

是以下这样吗？
sql.add(select * from 临时表 where 车牌号=:a
);
sql.add(and 收货单位=:b);
sql.add(and 收货单位=:c);
sql.add(and 收货单位=:d);

追答

sql.add('select * from 临时表 where 车牌号=:a ');
sql.add('and 收货单位=:b');
sql.add('and 收货单位=:c');
sql.add('and 收货单位=:d');
这样

追问

不行

追答

提示错误？
不行用下面的方法做下
with ADOQuery1 do
begin
close;
parameters.ParamByName('a').Value:=Trim(DBGrid1.Fields[0].AsString );
parameters.ParamByName('b').Value:=Trim(DBGrid1.Fields[15].AsString);
parameters.ParamByName('c').Value:=Trim(DBGrid1.Fields[10].AsString );
parameters.ParamByName('d').Value:=Trim(DBGrid1.Fields[1].AsString );
open;
ADOQuery1 中
select * from 临时表 where 车牌号=:a
and 收货单位=:b
and 收货地址=:c
and 时间=:d

追问

错误提示

追答

这样看来应该是你的数据类型不对
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select * from empbas where empid=:a ');
SQL.Add('and empname=:b');
SQL.Add('and unitid=:c');
SQL.Add('and sex=:d');
parameters.ParamByName('a').Value:='';
parameters.ParamByName('b').Value:='';
parameters.ParamByName('c').Value:='';
parameters.ParamByName('d').Value:='';
open;
我自己测试了可以
你这里的类型不对Trim(DBGrid1.Fields[15].AsString);
你可以showmessage(Trim(DBGrid1.Fields[15].AsString)); 看下是什麽类型的数据，是否和数据库的类型一致

Answer 4

检查b,c,d的数据类型 .将错误提示发上来

追问

错误提示

追答

根据错误提示,看来是无法读取 DBGrid1.Fields[15].AsString 报错,
你可以先用showmessage(DBGrid1.Fields[15].AsString ) ;试一下 ,

追问

很感谢你的帮助，我试试

追答

DBGrid1.Fields[0].AsString 的用法好奇怪啊.
至少应该修改为DBGrid1.datasource.dataset.fieldbyname('字段名称').asstring ;
最好直接使用数据集操作: 如:adoquery1.fieldbyname('字段名称').asstring