q.SQL.Clear;
q.SQL.Add('insert into 加工统计表 values select 地区 ,sum (数量) ,sum (总金额) from 固定件登记表 where 医生=:address and 是否已出件 =True group by 地区 ');
q.Parameters.ParamByName('address').value:=edit1.Text;
q.Open;
请高手看看我的SQL语句哪儿有错误呀?
q.SQL.Add('insert into 加工统计表 values select 地区 ,sum (数量) ,sum (总金额) from 固定件登记表 where 医生=:address and 是否已出件 =True group by 地区 ');
q.Parameters.ParamByName('address').value:=edit1.Text;
q.Open;
请高手看看我的SQL语句哪儿有错误呀?
解决方案 »
- delphi写的服务程序,显示窗口,关闭服务时有莫名其妙的异常
- 什么按钮有按下或弹起来的属性,这个属性是什么
- 《实践与提高》系列图书征稿函
- 有没有办法提供WebBrowser的下载速度??
- delphi程序和VB程序如何通讯?
- 请问什么地方有32*32的好看的图标下载?
- 请问在delphi5中怎样申明一个dll文件,并怎样调用它?急!!!马上给分
- delphi里有没有像vfp中的grid控件一样,在布局中显示逻辑型数据时以check形式,可供用户选择
- 怎样字符转化,急用
- 题外话,刷卡机到什么地方可以找到呀?
- 急问:如何用TADOStoredproc调用SQLSERVER存储过程的返回值
- 請看一下為什麼在OPEN後我有MSSQL所占用的內存還在上升?
给分!
q.SQL.Add('insert into 加工统计表 values select 地区 ,sum (数量) ,sum (总金额) from 固定件登记表 where 医生=:address and 是否已出件 =True group by 地区 ');
q.Parameters.ParamByName('address').value:=edit1.Text;
q.ExecSQL;我把它改成这样,还是一样的错语呀
q.SQL.Clear;
q.SQL.Add('insert into 加工统计表 (select 地区,sum(数量),sum(总金额) from 固定件登记表 where 医生=":address" and 是否已出件=True group by 地区)');
q.Parameters.ParamByName('address').value:=edit1.Text;
q.ExecSQL;另: 医生=":address"?! 是 地区=":address" 吧
q.SQL.Add('insert into 加工统计表 select 地区 as aaa ,sum (数量) as bbb, sum (总金额) as ccc from 固定件登记表 where 医生=:address and 是否已出件 =True group by 地区 ');
q.Parameters.ParamByName('address').value:=edit1.Text;
q.ExecSQL;编译、运行时是没有错误了,
但是结果为什么“加工统计表” 中只有一行数据呀,而 select 查询出来明明有若干条记录呀
q.SQL.Clear;
q.SQL.Add('insert into 加工统计表 select 地区 as aaa ,sum (数量) as bbb, sum (总金额) as ccc from 固定件登记表 where 医生=:address and 是否已出件 =True group by 地区 ');
q.Parameters.ParamByName('address').value:=quotedstr(edit1.Text);
q.ExecSQL;
再不行就把select 地区 as aaa ,sum (数量) as bbb, sum (总金额) as ccc from 固定件登记表 where 医生=:address and 是否已出件 =True group by 地区 ')放到数据库里面执行一下看看结果啊!
sqltxt:string;
sqltxt:=
'insert into 加工统计表 select 地区 as aaa ,sum (数量) as bbb, sum (总金额) as ccc from 固定件登记表 where 医生='+quotedstr(edit1.Text)+' and 是否已出件 =True group by 地区 ';
q.SQL.txt:=sqltxt;
q.ExecSQL;