在线等待，马上揭贴

Question

with dmfrm.ADOQuery9 do
    begin
      close;
      sql.Clear;
      sql.Add('select siminfor.callerid,(select sum(pay) from calllist where calllist.callerid=siminfor.callerid and siminfor.callerid='''+combobox1.Text+''' and calllist.starttime>=:a and calllist.endtime<=:b and calllist.ratetype=1');
      sql.add(') as 市内合计,(select sum(pay) from calllist where calllist.callerid=siminfor.callerid and siminfor.callerid='''+combobox1.Text+''' and calllist.starttime>=:a and calllist.endtime<=:b and calllist.ratetype=2');
      sql.add(') as 长途合计,(select sum(pay) from calllist where calllist.callerid=siminfor.callerid and siminfor.callerid='''+combobox1.Text+''' and calllist.starttime>=:a and calllist.endtime<=:b and calllist.ratetype=5');
      sql.add(') as 拨入合计,(select sum(pay) from calllist where calllist.callerid=siminfor.callerid and siminfor.callerid='''+combobox1.Text+''' and calllist.starttime>=:a and calllist.endtime<=:b ');
      sql.add(') as 总计合计 from siminfor');
      dmfrm.adoquery9.Parameters[0].Value:=strtodatetime(combobox2.text+'-'+combobox3.Text+'-01'+' '+'00:00:00');
      dmfrm.ADOQuery9.Parameters[1].Value:=strtodatetime(combobox2.text+'-'+combobox3.Text+'-31'+' '+'23:59:59');
      open;
    end;
我用的access，怎么老出错呢，难道不支持吗

Answer 1

dmfrm.adoquery9.Parameters].ParamByName('a').Value:=Formatdatetime(combobox2.text+'-'+combobox3.Text+'-01'+' '+'00:00:00');
dmfrm.adoquery9.Parameters].ParamByName('b').Value:=Formatdatetime(combobox2.text+'-'+combobox3.Text+'-31'+' '+'23:59:59'); //格式忘记了,看看Formatdatetime的帮助

Answer 2

showmessage();把你的sql显示出来，看有没有引号出现错误的地方。