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

office2008 · 发表于 2008-9-2 09:30

附件已经收集齐全，含答案

附件已经把到现在为止的所有问题和我以前的几个问题都收集在一起，附答案，以后如果代码改进，我会再重新整理，祝大家中秋快乐！

sw95P1mx.rar (84.25 KB, 下载次数: 125)

[此贴子已经被作者于2008-9-12 9:43:54编辑过]

烟雨厦江南 · 发表于 2008-9-2 09:39

连存储过程都出来了哟。

以EXCEL工作表为数据库时，好象是无法使用存储过程的吧

尤其是还要创建临时表的情况下。

office2008 · 发表于 2008-9-2 09:42

按我们自己适合的语句做，不一定要按他的，相同目的而已，第二个问题应该还有办法。

烟雨厦江南 · 发表于 2008-9-2 10:23

第一个问题，需用到辅助区域（[空缺记录$a11:b25]），该辅助区域用于存放所有AA、BB应该造访的任务列表，代码如下：

Sub yy1()
    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
        Sql = "select name,id FROM [空缺记录$a1:b10] group by name,id union all select name,id FROM [空缺记录$a11:b25]"
        Sql = "select name,id from (" & Sql & ") group by name,id having count(id)=1"
        .Range("d2").CopyFromRecordset CNN.Execute(Sql)
    End With
End Sub

烟雨厦江南 · 发表于 2008-9-2 10:39

第二个问题，代码如下：

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

烟雨厦江南 · 发表于 2008-9-2 10:52

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

office2008 · 发表于 2008-9-2 10:56

谢谢！，第二个问题解决，高手就是高手，思路太好了

office2008 · 发表于 2008-9-2 11:05

已到访 name	id
AA	12
AA	16
AA	18
AA	16
BB	14
BB	13
BB	13
BB	16

未到访，求未到访

姓名门牌号
AA      13
AA      14
AA      15
AA      17
BB      12
BB      15
BB      17
BB      18

烟雨厦江南 · 发表于 2008-9-2 11:10

wuWnibcM.rar (20.07 KB, 下载次数: 17)

第一问及第二问的附件

第一问不使用辅助区域（类似于SQL中的临时表）估计也很难

sgrshh29 · 发表于 2008-9-2 11:17

第一个问题,需要辅助表.如果不用辅助表,就做成交叉表形式.第三问还没有看明白.

[此贴子已经被作者于2008-9-2 11:18:47编辑过]

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