小弟用VB查询SQL2000数据库中数据,然后写入EXCEl表中。
SQL数据库表名为PP,表结构如下:
编码 数值 时间
A 0.2 5月4日
B 0.1 5月4日
C 0.5 5月4日
D 1.1 5月4日
E . .
F . .
A 0.5 5月6日
B 0.8 5月6日
C 2.5 5月6日
D 0.1 5月6日
. . .
. . .
A 8 5月9日
B 1.1 5月9日
C 5 5月9日
D 6.0 5月9日
. . .
. . .
. . .根据时间条件用select语句查询后结果是:
编码 总和 数值 数值 数值 ...
A 8.7 0.2 0.5 8 ...
B 2.0 0.1 0.8 1.1 ...
C 8 0.5 2.5 5 ...
D 7.2 1.1 0.1 6 ...
E
F
. (同一编码的数值,放在一行)
SQL数据库表名为PP,表结构如下:
编码 数值 时间
A 0.2 5月4日
B 0.1 5月4日
C 0.5 5月4日
D 1.1 5月4日
E . .
F . .
A 0.5 5月6日
B 0.8 5月6日
C 2.5 5月6日
D 0.1 5月6日
. . .
. . .
A 8 5月9日
B 1.1 5月9日
C 5 5月9日
D 6.0 5月9日
. . .
. . .
. . .根据时间条件用select语句查询后结果是:
编码 总和 数值 数值 数值 ...
A 8.7 0.2 0.5 8 ...
B 2.0 0.1 0.8 1.1 ...
C 8 0.5 2.5 5 ...
D 7.2 1.1 0.1 6 ...
E
F
. (同一编码的数值,放在一行)
解决方案 »
- 本人正学习vb,制作了几个vb源码,谁能和我一起研究,共同进步
- 如何使窗体中的最大化,最小化,和关闭按钮失效!。在线等待!急
- 请问在VB中添加了一个data enviroment叫aa,然后添加了一个连接dn,怎样才能使这个连接dn显示状态为(已联接)?
- 请问,错误语句EORROR go to 还有on error resume next 怎么用。求详细解,在线等待
- VB中引用DLL文件出现怪事
- 求VB 发送自定义数据的例子
- 为什么我的.dll不能注册成功?
- 各位老大:救命啊!有关epson tm-300a打印机打印中文字的问题!
- 为何我的工程无法保存????
- VB程序员难道真的没人要吗?
- 毒霸助手3.3
- vb.net编程
select 编码, sum(数值) as 总和,
sum(case when 数值 = '5月4日' then 数值 else 0 ) as 数值_5月4日,
sum(case when 数值 = '5月6日' then 数值 else 0 ) as 数值_5月6日,
... from PP
group by 编码
http://tech.it168.com/db/s/2006-07-31/200607311324786.shtml注:有2005版本以上的pivot函数使用方法,也有动态转换方法,
declare @sql varchar(8000)
set @sql = 'select name,'select @sql = @sql + 'sum(case subject when '''+subject+'''
then source else 0 end) as '''+subject+''','
from (select distinct subject from test) as aselect @sql = left(@sql,len(@sql)-1) + ' from test group by name'exec(@sql)go