CSDN首页 空间 新闻 论坛 Blog 下载 读书 网摘 搜索 .NET Java 视频 接项目 求职 在线学习 买书 程序员 通知
不看会后悔的Windows XP之经验谈 简单快捷DIY实用家庭影院
CSDN社区
搜索 收藏 打印 关闭
CSDN社区 >  Delphi >  VCL组件开发及应用

什么错误呢?

楼主xxsteven()2003-07-01 19:45:34 在 Delphi / VCL组件开发及应用 提问

在程序里面写又有错误了,请看。  
  begin  
  Query1.Close;  
      Query1.SQL.Text   :=  
  'SELECT   nsmc,qiyecode,SUM(sp1)   AS   sumsp,SUM(sp2)   AS   sumsp2,SUM(sp3)   AS   sumsp3,'#13#10   +  
  'SUM(sp4)   AS   sumsp4,SUM(rk1)   AS   sumrk1,SUM(rk2)   AS   sumrk2,SUM(rk3)   AS   sumrk3,'#13#10   +  
  'SUM(rk4)   AS   sumrk4,SUM(qj1)   AS   sumqj1,SUM(qj2)   AS   sumqj2,SUM(qj3)   AS   sumqj3,'#13#10   +  
  'SUM(qj4)   AS   sumqj4'#13#10   +  
  'FROM   main'#13#10   +  
  'where'#13#10   +  
      if   ComboBox3.Text<>''   then  
          Query1.SQL.Add('nsmc='''+ComboBox3.Text+'''');  
      if   ComboBox4.Text<>''   then  
          Query1.SQL.Add('AND   qiyecode='''+ComboBox4.Text+'''');  
      Query1.SQL.Add('GROUP   BY   nsmc,qiyecode');  
      try  
          Query1.Open;  
          ShowMessage('欢迎使用,一共查询到的记录数是:'+IntToStr(Query1.RecordCount));  
      except  
          {}  
      end;  
   
    Query1.SQL.Add('group   by   nsmc,qiyecode');  
    try  
          Query1.Open;  
          ShowMessage('欢迎使用,一共查询到的记录数是:'+IntToStr(Query1.RecordCount));  
      except  
          {}  
      end;  
  end;  
  在   Query1.SQL.Add('nsmc='''+ComboBox3.Text+'''');  
  这个地方有错误  
  问题点数:0、回复次数:8Top

1 楼hch_45(痞子宏)回复于 2003-07-01 19:49:31 得分 0

Query1.SQL.Add('   nsmc='''+ComboBox3.Text+'''   ');  
  注意空格呀  
  Top

2 楼xxsteven()回复于 2003-07-01 19:50:43 得分 0

还是不对呀Top

3 楼xxsteven()回复于 2003-07-01 19:57:44 得分 0

就没有人说话了吗?帮帮忙呀Top

4 楼firetoucher(风焱)回复于 2003-07-01 20:19:05 得分 0

begin  
  Query1.Close;  
  with   Query1.SQL   do  
  begin  
  Add('SELECT   nsmc,qiyecode,SUM(sp1)   AS   sumsp,SUM(sp2)   AS   sumsp2,SUM(sp3)   AS   sumsp3,');  
  Add('SUM(sp4)   AS   sumsp4,SUM(rk1)   AS   sumrk1,SUM(rk2)   AS   sumrk2,SUM(rk3)   AS   sumrk3,');  
  Add('SUM(rk4)   AS   sumrk4,SUM(qj1)   AS   sumqj1,SUM(qj2)   AS   sumqj2,SUM(qj3)   AS   sumqj3,');  
  Add('SUM(qj4)   AS   sumqj4   FROM   main   where   );  
  end;  
  //////////////你的text最后多了+      
  if   ComboBox3.Text<>''   then  
          ...Top

5 楼xxsteven()回复于 2003-07-01 20:35:54 得分 0

编译过了,但运行的时候还是说sql语句错误,但我写了纯sql的时候是正确的Top

6 楼bcghb(我还来不及)回复于 2003-07-01 20:40:16 得分 0

你把你的语句在运行时,Add到一个Memo中,然后再把这些语句在SQL   Server查询分析器执行,看对不对?Top

7 楼xxsteven()回复于 2003-07-01 20:56:22 得分 0

如何add到memo。但我看了的在query里面可以执行。。Top

8 楼xxsteven()回复于 2003-07-01 21:11:31 得分 0

请大家看看,可以执行的sql语句是SELECT   nsmc,qiyecode,SUM(sp1)   AS   sumsp,SUM(sp2)   AS   sumsp2,SUM(sp3)   AS   sumsp3,  
  SUM(sp4)   AS   sumsp4,SUM(rk1)   AS   sumrk1,SUM(rk2)   AS   sumrk2,SUM(rk3)   AS   sumrk3,  
  SUM(rk4)   AS   sumrk4,SUM(qj1)   AS   sumqj1,SUM(qj2)   AS   sumqj2,SUM(qj3)   AS   sumqj3,  
  SUM(qj4)   AS   sumqj4  
  FROM   main   group   by   nsmc,qiyecodeTop

相关问题

  • 什么错误???
  • 什么错误?
  • 什么错误???
  • 什么错误?
  • 什么错误
  • 为什么错误?
  • 什么错误啊??
  • ADODB.Connection 错误 '800a0bb9' 是什么错误?
  • 系统错误 -1 是什么错误?
  • Microsoft VBScript 编译器错误 错误 '800a0401' 是什么错误啊

关键词

  • sp1
  • 语句
  • sql
  • sumsp
  • sumqj
  • sumrk
  • nsmc
  • qj
  • sum
  • qiyecode

得分解答快速导航

  • 帖主:xxsteven

相关链接

  • Delphi类图书
  • Delphi类源码下载
  • Delphi控件下载

广告也精彩

反馈

请通过下述方式给我们反馈
反馈
提问
网站简介|广告服务|VIP资费标准|银行汇款帐号|网站地图|帮助|联系方式|诚聘英才|English|问题报告
北京创新乐知广告有限公司 版权所有, 京 ICP 证 070598 号
世纪乐知(北京)网络技术有限公司 提供技术支持
Copyright © 2000-2008, CSDN.NET, All Rights Reserved
GongshangLogo