[讨论][分享]SQL接龙(figfig,烟雨,ldy,sgrshh29等完成)

office2008

QUOTE:

以下是引用富戈在2008-9-2 14:24:59的发言：
其实这个与  http://club.excelhome.net/viewthread.php?tid=350339&px=0  有共同之处。创建一个  临时表，然后再用  select * from [临时表] where len(科目代码)>0 作最后的查询。

union 和 union all 是有点不同的 顾名思义后面的有个 all

烟雨厦江南

QUOTE:

以下是引用寅鹞在2008-9-2 14:39:50的发言：

   Sql = "select * from (" & Sql & ") where name not in (select name from (" & Sql & ") group by name,salary having count(name)>1)"

这是不是就是SQL嵌套啊？

 对头，正解！

烟雨厦江南

QUOTE:

以下是引用office2008在2008-9-2 14:48:25的发言：

union 和 union all 是有点不同的 顾名思义后面的有个 all

union：    将查询结果合并起来，如有重复记录则仅保留一条，

union all：将查询结果合并起来，保留所有记录，包括重复记录

简单的说，... union ...  所得的结果与 select distinct * from (... union all ...)是一样的

office2008

这样的讨论下去很好啊，增长知识和思路，谢谢各位一起讨论。

下面插一个小问题

我看见网上很多 select isnull(字段，null).......

在EXCEL试了 不行啊。请教大家，谢谢

figfig

QUOTE:

以下是引用烟雨厦江南在2008-9-2 10:51:43的发言：

第三个问题，在EXCEL中用SQL解决估计 那是相当的难，期待有这样的代码

Sub fig()
 With Worksheets("连续3天失败标记")
   Set CNN = CreateObject("adodb.connection")
    CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;';Data Source=" & ThisWorkbook.FullName
       .Range("f2:i1000").ClearContents
       r = .Range("a65536").End(xlUp).Row
       Sql = "select a.num,a.operation,a.dt,a.errtype FROM [连续3天失败标记$a1:d888] a,[连续3天失败标记$a1:d888] b,[连续3天失败标记$a1:d888] c  where a.num=b.num and a.num=c.num and b.num=c.num and a.operation=b.operation and a.operation=c.operation and b.operation=c.operation and day(b.dt)-day(a.dt)=1 and day(c.dt)-day(b.dt)=1 and day(c.dt)-day(a.dt)=2"
     Sql = Sql & " union (select b.num,b.operation,b.dt,b.errtype FROM [连续3天失败标记$a1:d888] a,[连续3天失败标记$a1:d888] b,[连续3天失败标记$a1:d888] c  where a.num=b.num and a.num=c.num and b.num=c.num and a.operation=b.operation and a.operation=c.operation and b.operation=c.operation and day(b.dt)-day(a.dt)=1 and day(c.dt)-day(b.dt)=1 and day(c.dt)-day(a.dt)=2)"
      Sql = Sql & " union (select c.num,c.operation,c.dt,c.errtype FROM [连续3天失败标记$a1:d888] a,[连续3天失败标记$a1:d888] b,[连续3天失败标记$a1:d888] c  where a.num=b.num and a.num=c.num and b.num=c.num and a.operation=b.operation and a.operation=c.operation and b.operation=c.operation and day(b.dt)-day(a.dt)=1 and day(c.dt)-day(b.dt)=1 and day(c.dt)-day(a.dt)=2)"
    
   .Range("f2").CopyFromRecordset CNN.Execute(Sql)
End With
End Sub

富戈

我也发现一个现象，

extended properties=excel 8.0

可以把 8.0  改为：

3.0

4.0

5.0

都行，但是不能是：

6.0

7.0

9.0

10.0

11.0

呵呵

烟雨厦江南

extended properties=excel 8.0 中的8.0 是指EXCEL的内核版本为8.0

而EXCEL的内核版本并不是1.0，2.0，...，11.0这样依次增加的，而且到EXCEL2007，也就是EXCEL12.0时，连接字符串也变为了

"Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=文件名.xlsx"

office2008

移动号码2	业务1	2008-05-04	失败标记2
移动号码2	业务1	2008-05-04	失败标记1
移动号码2	业务1	2008-05-04	失败标记1
移动号码2	业务1	2008-05-05	失败标记2
移动号码2	业务1	2008-05-06	失败标记2
移动号码2	业务1	2008-05-06	失败标记2

移动号码2	业务1	2008-05-04	失败标记1
移动号码2	业务1	2008-05-04	失败标记2
移动号码2	业务1	2008-05-05	失败标记2
移动号码2	业务1	2008-05-06	失败标记2

少2条记录，不过做成这个样子，那是狂人级别了，谢谢

富戈

我已经安装 Office 2007 版不下10次由删除10次，现在我的电脑上有 2007版，马上测试你所说的情况。结果不成功。微软准备去死吧， 注定不用你的 2007 了，等你2010版出来再用吧。

Sub test()
    Set conn = CreateObject("adodb.connection")
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
   
    strSql = "select * form [sheet1$]"
    Sheet2.Range("a2").CopyFromRecordset conn.Execute(strSql)
    conn.Close: Set conn = Nothing
End Sub

富戈

在我的电脑上测试结果证明：

Sub test()
    Set conn = CreateObject("adodb.connection")
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
   
    strSql = "select * form [sheet1$]"
    Sheet2.Range("a2").CopyFromRecordset conn.Execute(strSql)
    conn.Close: Set conn = Nothing
End Sub

如果版本号改为 12.0 ,则出错停留在  conn.open 那一行上。

如果把 12.0 改为：  8.0  ,则错处停留在

Sheet2.Range("a2").CopyFromRecordset conn.Execute(strSql)

这一行上。

不管怎怎样，都不能测试通过。

我已经更改了  信任所有的宏  设置了。

[此贴子已经被作者于2008-9-2 15:50:15编辑过]