主表数据:编号 公司姓名
1 sgy
2 aaa
3 bbb
从表数据 公司编号 联系人
1 甲
1 乙
1 丙
查询出这样的结果:公司名称 联系人
sgy 甲,乙,丙
-----------------------------------------
谢谢,星期一结贴。
1 sgy
2 aaa
3 bbb
从表数据 公司编号 联系人
1 甲
1 乙
1 丙
查询出这样的结果:公司名称 联系人
sgy 甲,乙,丙
-----------------------------------------
谢谢,星期一结贴。
解决方案 »
- 关于cxspreadsheet问题
- 求助:定时备份问题
- 得到一个wma或mp3文件,如何用最简单的方法得到它的长度信息呢?
- 这段代码 谁能帮俺一句一句解释一下好么
- 如何给dxdbgrid动态添加列
- Delphi应该怎么学?
- 求救!!
- 请教一个关于Delphi与VB数据库的问题,高分真诚相送!在线等待!
- 用adoquery查询出来的结果可以修改吗(insert,update delete)?
- 我要打包生成安装程序,我找到install shield 文件后,然后怎么办?
- 求两条简单SQL语句
- 有关数据库应用程序用Delphi 6 自带的Installshield制作安装程序的问题——————在线等待!!!!!!
公司负责人编号';
query1.execsql;
这个问题我解决过
实际上最后也是一条SQL语句
但是要程序辅助(循环语句)动态增加数据列
CREATE table person_info(dept_name varchar(10),position_name varchar(10),person_name varchar(10))
INSERT INTO person_info
SELECT '資訊部','軟件編碼員','小李'
UNION ALL SELECT '資訊部','軟件編碼員','小王'
UNION ALL SELECT '行政部','秘書','小芳'select * from person_info--合並函數
CREATE FUNCTION FunMergeCharField(@vchA varchar(10),@vchB varchar(10))
RETURNS varchar(8000)
AS
BEGIN
DECLARE @r varchar(8000)
SET @r=''
SELECT @r=@r+','+person_name FROM person_info WHERE dept_name=@vchA and position_name=@vchB
RETURN(substring(@r,2,8000))
END
GO
--删除测试
DROP TABLE person_info
DROP FUNCTION FunMergeCharField--調用
select * from person_infoSELECT dept_name,position_name,在職人員=dbo.FunMergeCharField(dept_name,position_name)
FROM person_info
GROUP BY dept_name,position_name
go
参考CSDN以前的贴子的!