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

figfig

QUOTE:

以下是引用office2008在2008-9-2 18:04:36的发言：

假如为空,则为空,否则为字段本身?

Sql = "select iif(isnull(num),null,num) as aa from [连续3天失败标记$a1:d888]"

office2008

不考虑errtype 因素，重复只求最后一条．

SQL = " select  aa.num,aa.operation,aa.dt,last(aa.errtype) from [连续3天失败标记$a1:d888] aa,(" & SQL & ") bb " _
   & " where aa.num=bb.num and aa.operation=bb.operation and aa.dt=bb.dt and aa.errtype=bb.errtype group by " _
   & " aa.num,aa.operation,aa.dt  "

谢谢，以为不怎么可能的事情往往却有完美的结果，各位大师的技艺也是到了令人不得不佩服的境界．总之，非常感谢啊！

fecmen

对SQL语句看得有点云里雾里！先收藏慢慢参研啦！

sgrshh29

[em17]sql语句-数figfig[em17]

fydm

QUOTE:

以下是引用office2008在2008-9-2 9:29:36的发言：

第三个问题:连续3天失败标记(求一组连续3天或3天以上的失败标记)  ,1,可重复,   2 如有重复取最后一条(巨难) ,高手可尝试做两种都做一

请问楼主所说的如有重复取最后一条记录中的最后一条该如何理解，满足什么条件才能认为它是最后一条？是根据错误类型errtype的取值还是根据某种排序结果？因为在数据库中对没有经过排序的记录谈第一条或最后一条（包括某条件下的局部位置）等是没有意义的，除非参考该字段的聚集索引顺序

office2008

恩，看的出你在这方面是高手，我的基础很差的,由于这几天CSDN网站看见  潇洒老乌龟-爱新觉罗.毓华(这个人很厉害）的帖子,觉得挺好,把有些比较好的拿上来让高手帮忙做做,我们学习一下,你如有空请指点迷津,谢谢!

office2008

姓名	课程	分数
张三	语文	74
张三	数学	83
张三	物理	93
李四	语文	74
李四	数学	84
李四	物理	94

转换成

姓名	语文	数学	物理
张三	74	83	93
李四	74	84	94

 ID = Join(Split("语文,数学,物理", ","), "','")
 SQL = " transform max(分数) select 姓名  from [行列转换$a1:c" & r & "] " _
 & " group by 姓名  pivot 课程 in ('" & ID & "') "   

如果

想转成

1,效果:
 姓名  语文  数学  物理  平均分  总分
 张三   74    83    93    83.33   250
 李四   74    84    94    84      252
 合计   148   167  187   167.33   502

请高手继续帮忙，谢谢！   

fydm

QUOTE:

以下是引用figfig在2008-9-2 16:49:39的发言：

下面代码已经优化了，速度应该没问题了，呵呵

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)"
     Sql = " select distinct num ,operation , dt , errtype  from (" & Sql & ") where len(num)>0"
   Sql = " select aa.num,aa.operation,aa.dt,aa.errtype from [连续3天失败标记$a1:d888] aa,(" & Sql & ") bb  where aa.num=bb.num and aa.operation=bb.operation and aa.dt=bb.dt and aa.errtype=bb.errtype"
   .Range("f2").CopyFromRecordset CNN.Execute(Sql)
End With
End Sub

楼主要求连续3天或3天以上的失败记录，此语句貌似只解决了连续3天的问题，而没有提及连续4天、5天......等情况

另外，由b-a=1,c-b=1这2个条件就足以证明c-a=2了，因此，c-a=2这个条件可以不写。

office2008

可答案告诉我连续5天的也解决了。

我没看懂，你看懂了请分解一下

ldy

差不多2个月没用数据库了，手生的很。

重新学习，并简化了fig的代码

Sub ldy简化()
    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
        Sql = "(select * FROM [连续3天失败标记$a1:d888] a, [连续3天失败标记$a1:d888] b, [连续3天失败标记$a1:d888] c where a.num=b.num and b.num=c.num and a.operation=b.operation and b.operation=c.operation and day(b.dt)-day(a.dt)=1 and day(c.dt)-day(b.dt)=1)"
        Sql = "select a.num,a.operation,a.dt,a.errtype from " & Sql & " union select b.num,b.operation,b.dt,b.errtype from" & Sql & " union select c.num,c.operation,c.dt,c.errtype from " & Sql
        Sql = "select aa.num,aa.operation,aa.dt,aa.errtype from [连续3天失败标记$a1:d888] aa, (" & Sql & ") bb where aa.num & aa.operation & aa.dt & aa.errtype = bb.num & bb.operation & bb.dt & bb.errtype"
        .Range("f2").CopyFromRecordset CNN.Execute(Sql)
    End With
End Sub