关于SQL在工作簿-工作表之间的查询、排序、转置（盖楼中....）

gjj136138139 · 发表于 2012-7-22 11:45

好贴，把常用的ado对象中的很多经常可能会犯的错误及解决方法都列示出来了

opiona · 发表于 2012-7-23 01:24

本帖最后由 opiona 于 2012-7-23 11:10 编辑

wuxiang_123 发表于 2012-7-22 10:15
按下面格式写，利用聚合函数忽略空值。

问一个题外话：
如果一个人在一个字段的多行都有字符串，一个字母或多个字母
想汇总时，一个人占一行，同字段的多行字符都要（不是只要MAX的）
应该如何做呢！？？
查到有SQL2005等下实现的语句，但是看不懂.

附件：

Book2.rar (33.6 KB, 下载次数: 42)
源数据：
数据.png

想要的效果如下：

opiona · 发表于 2012-7-23 12:06

自己顶一下，哈哈

wuxiang_123 · 发表于 2012-7-24 09:26

opiona 发表于 2012-7-23 01:24
问一个题外话：
如果一个人在一个字段的多行都有字符串，一个字母或多个字母
想汇总时，一个人占一行，同 ...

我只知道在SQL SERVER2005版本以上可以用FOR XML PATH实现你的效果。

opiona · 发表于 2012-7-25 19:17

本帖最后由 opiona 于 2012-7-26 11:00 编辑

在SQL查询时候，很多是没用列标题的，如：列标题是合并单元格等等
Cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
SQL="SELECT * FROM [数据表$A5:C65536"]
EXCEL2003时候没有问题
但是在Excel2007时候，
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=NO';data source=" & ThisWorkbook.FullName
SQL="SELECT * FROM [数据表$A5:C1048576"]
会报错，1048576改成65536，或更小就没问题了。
搜索了一番，说这是Excel2007的一个BUG

请问：Excel2010版本还存在这个问题么
或者Excel2007中有其他办法解决这个问题！

zhaogang1960 · 发表于 2012-7-25 19:46

本帖最后由 zhaogang1960 于 2012-7-26 00:11 编辑

opiona 发表于 2012-7-25 19:17
在SQL查询时候，很多是没用列标题的，如：列标题是合并单元格等等
Cn.Open "provider=microsoft.jet.oledb ...

应该是ThisWorkbook.FullName——自连接的问题
2007SP2测试：
不写区域可以查询全部数据Sql = "select * from [sheet1$]"
写区域只能查询65536行以内数据Sql = "select * from [sheet1$a1:a]"
2010也是如此

opiona · 发表于 2013-1-23 19:25

SQL按照指定顺序排序，有重复.rar (10.8 KB, 下载次数: 34)
有请版主和各位大侠帮忙
数据源：
一个数据源和若干关键字进行模糊查询
即：所有明星字段中包含有输入关键字那些名字的
应排序和分页的要求，我在后面缀上了关键字（根据什么查到的）
上面已经实现

我的问题是：用SQL提取不重复，按照A列排序
查到的结果有重复内容（黄色部分）（关键字不同）
如何提取不重复内容，按照A列内容的顺序进行排序
关键字不同的只留一个，
如果可能，只留最开始在A列出现的那一个关键字
源数据.jpg

最终效果：

zhaogang1960 · 发表于 2013-1-23 21:05

短信收到，请测试：

Sub Macro1() '有重复取第一个关键字
Dim cnn As Object, SQL$
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
SQL = "Select a.*,b.输入关键字 as 关键字 from [Sheet1$" & Sheets("Sheet1").Range("C1").CurrentRegion.Address(0, 0) & "] a,[Sheet1$" _
& Sheets("Sheet1").Range("a1").CurrentRegion.Address(0, 0) & "] b where instr(a.明星,b.输入关键字)"
SQL = "select 编号,电影名,明星,first(关键字) from (" & SQL & ") group by 编号,电影名,明星 order by 编号"
With Sheets("Sheet2")
.UsedRange.Offset(1).ClearContents
.[a2].CopyFromRecordset cnn.Execute(SQL)
End With
cnn.Close
Set cnn = Nothing
End Sub
Sub Macro2() '有重复取最后一个关键字
Dim cnn As Object, SQL$
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
SQL = "Select a.*,b.输入关键字 as 关键字 from [Sheet1$" & Sheets("Sheet1").Range("C1").CurrentRegion.Address(0, 0) & "] a,[Sheet1$" _
& Sheets("Sheet1").Range("a1").CurrentRegion.Address(0, 0) & "] b where instr(a.明星,b.输入关键字)"
SQL = "select 编号,电影名,明星,last(关键字) from (" & SQL & ") group by 编号,电影名,明星 order by 编号"
With Sheets("Sheet2")
.UsedRange.Offset(1).ClearContents
.[a2].CopyFromRecordset cnn.Execute(SQL)
End With
cnn.Close
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2013-1-23 21:07

由于你没有上传数据源，就借用Sheet1的两个区域作为数据源，请看附件

SQL按照指定顺序排序，有重复.rar (15.09 KB, 下载次数: 82)

opiona · 发表于 2013-1-24 00:33

感谢版主，现在又知道SQL里面原来还有 first和last

		自动登录	找回密码
密码			免费注册

[求助] 关于SQL在工作簿-工作表之间的查询、排序、转置（盖楼中....）

问个得寸进尺的问题：VBA中SQL将字符串分组连接成一个字符串

评分

关于在EXCEL2007中SQL无标题查询（HDR=NO）最多65536行的问题（此题无解）感谢赵版主

评分

SQL的查询结果按照某字段的指定顺序进行排序,而且此字段有重复内容

评分