简单问题:DBGrid显示数据

yong427 2004-10-27 05:53:24
我在窗体中添加了一个DBGrid1和一个DataSource1和一个qryGetValue(TADOQuery),和一个ADOConnection
DBGrid1的DataSource设置为DataSource1
DataSource1的DataSet设置为qryGetValue
qryGetValue的连接字符串设置为ADOConnection;

////////////////////////以上所有的设置都没问题的
查询SQL语句的代码如下
with qryGetValue do
begin
close;
SQL.Clear;
SQL.Add('select b.name as 零售商,c.name as 报刊,a.baseDiscount as 基本折扣,a.TransDiscount as 运输折扣, ');
SQL.Add('a.AllDiscount as 合计折扣,d.name as 印点,e.name as 运输线路,f.name as 运输方式,');
SQL.Add('a.saleDiscount as 销售折扣,a.proofID as 票签 ');
SQL.Add('from t_code_retailer_newpaper as a ');
SQL.Add('join t_code_Retailer as b on a.retailerID = b.ID ');
SQL.Add('join t_code_newPaper as c on a.paperid = c.id ');
SQL.Add('join t_code_printPoint as d on a.printID = d.id');
SQL.Add('join t_code_GoodsLine as e on a.transLinesID = e.id');
SQL.Add('join t_code_TransType as f on a.transType = f.id');
SQL.Add('where b.code = :id');
Prepared:= true;
Parameters.ParamByName('id').Value := '2-001';
Active := True;
open;
ExecSQL;
end;
我用单步跟踪之后发现DBGrid中显示的数据为空,我把SQL语句栲到ms sql的查询分析器里执行
是有结果的,我不知道我的代码那里出现漏洞了,请各位指点一下
...全文
124 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
zlkw 2004-10-27
  • 打赏
  • 举报
回复
检查各个控件的属性有没有设置正确!!上面不行只有这样了
yong427 2004-10-27
  • 打赏
  • 举报
回复
回复人: whythinkwhy(小生) ( ) 信誉:100 2004-10-27 18:09:00 得分: 0


改写成sql.text='select..........'
open;
ExecSQL是不带返回值的


/////////////////////////////////
不行啊,按照你的改了,还是什么都没有
whythinkwhy 2004-10-27
  • 打赏
  • 举报
回复
改写成sql.text='select..........'
open;
ExecSQL是不带返回值的
yong427 2004-10-27
  • 打赏
  • 举报
回复
不行啊,查询还是一样什么都没有
xhh_88 2004-10-27
  • 打赏
  • 举报
回复
active就可以了,不要后面的open; ExecSQL;了!
xhh_88 2004-10-27
  • 打赏
  • 举报
回复

with qryGetValue do
begin
close;
SQL.Clear;
SQL.Add('select b.name as 零售商,c.name as 报刊,a.baseDiscount as 基本折扣,a.TransDiscount as 运输折扣, ');
SQL.Add('a.AllDiscount as 合计折扣,d.name as 印点,e.name as 运输线路,f.name as 运输方式,');
SQL.Add('a.saleDiscount as 销售折扣,a.proofID as 票签 ');
SQL.Add('from t_code_retailer_newpaper as a ');
SQL.Add('join t_code_Retailer as b on a.retailerID = b.ID ');
SQL.Add('join t_code_newPaper as c on a.paperid = c.id ');
SQL.Add('join t_code_printPoint as d on a.printID = d.id');
SQL.Add('join t_code_GoodsLine as e on a.transLinesID = e.id');
SQL.Add('join t_code_TransType as f on a.transType = f.id');
SQL.Add('where b.code = :id');
Prepared:= true;
Parameters.ParamByName('id').Value := '2-001';
Active := True;
end;

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧