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

烟雨厦江南

QUOTE:

以下是引用sgrshh29在2008-9-2 11:17:28的发言：
第一个问题,如果不用辅助表,就做成交叉表形式

楼上的兄弟，能不能做个附件发上来学习一下

office2008

比如 1，2，5，6，7，9，10，11，13，15，15，16，17，18

上面这一句里 　连在一起达到或超过３个的是　 5，6，7，９，１０，１１，１５，１５，１６，１７，１８

sgrshh29

QUOTE:

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

比如 1，2，5，6，7，9，10，11，13，15，15，16，17，18

上面这一句里 　连在一起达到或超过３个的是　 5，6，7，９，１０，１１，１５，１５，１６，１７，１８

比较难.请问一下,如果同一天有多个,比如1,2,2,2 不能算是连续的吗?

office2008

同一天 1，2，2，2，2 假如后面没　３　那么　不符合（不是３条，而是连着３天）

１，２，２，２，３，５，６　那么１，２，２，２，３符合

figfig

QUOTE:

以下是引用烟雨厦江南在2008-9-2 11:24:29的发言：
楼上的兄弟，能不能做个附件发上来学习一下

Sub fig()
 Dim arr()
 
 With Worksheets("空缺记录")
   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("d2:e1000").ClearContents
     r = .Range("a65536").End(xlUp).Row
      For i = 12 To 18
      j = j + 1
      ReDim Preserve arr(1 To j)
      arr(j) = "select " & i & " as vv from [空缺记录$a1:b10] "
            Next
            Sql = Join(arr, " union ")
           ' MsgBox Sql
     
     
     
      Sql = "select distinct aa.name,bb.vv from [空缺记录$a1:b10]  aa ,(" & Sql & ")   bb where   len(aa.name)>0 and aa.name&bb.vv  not in (select name&id from [空缺记录$a1:b10] where id>0) "
     .Range("d2").CopyFromRecordset CNN.Execute(Sql)
End With
End Sub

[此贴子已经被作者于2008-9-2 13:14:00编辑过]

富戈

figfig 大师，佩服阿！

office2008

谢谢 figfig大师，真神了

[em17][em17][em17]

同样谢谢烟雨厦江南的代码，思路也不错．

烟雨厦江南

QUOTE:

      arr(j) = "select " & i & " as vv from [空缺记录$a1:b10] "

原来还可以这样[em17]：

        For i = 12 To 18
            j = j + 1
            ReDim Preserve arr(1 To j)
            arr(j) = "select distinct 'AA' as name," & i & " as id from [空缺记录$a1:b10] union select distinct 'BB' as name," & i & " as id from [空缺记录$a1:b10] "
        Next
        Sql = Join(arr, " union ")

这样就可以通过代码在内存中拼凑出辅助表。

佩服啊！

富戈

其实这个与  http://club.excelhome.net/viewthread.php?tid=350339&px=0  有共同之处。创建一个  临时表，然后再用  select * from [临时表] where len(科目代码)>0 作最后的查询。

寅鹞

QUOTE:

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

第二个问题，代码如下：

Sub yy2()
    With Worksheets("5月6月工资")
        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("e2:g100").ClearContents
        Sql = "select date,name,salary  from [5月6月工资$] where date between 200805 and 200806 "
        Sql = "select * from (" & Sql & ") where name not in (select name from (" & Sql & ") group by name,salary having count(name)>1)"
        .Range("e2").CopyFromRecordset CNN.Execute(Sql)
    End With
End Sub

   

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

复制代码

这是不是就是SQL嵌套啊？