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

figfig

没问题,这个跟99楼一个思路啊,代码稍微改改就可以了,请传附件

office2008

好的我刚想传上来

0aSgFBlN.rar (7.75 KB, 下载次数: 9)

2008-9-11 23:29 上传

点击文件名下载附件

[此贴子已经被作者于2008-9-11 23:29:27编辑过]

figfig

Sub yy2()
Dim arr()
 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("g2:n10").ClearContents
     r = .Range("a65536").End(xlUp).Row
 Sheets("行列转换3").[a1:e18].Name = "tbl"

sql1 = "select distinct 姓名 ,(select top 1 调薪时间 from  tbl  where 姓名=a.姓名 ),(select top 1 调整后薪资 from  tbl  where 姓名=a.姓名 )"
j = 1
For i = 1 To 13

sql2 = " ,(select top 1  调薪时间 from tbl where 姓名=a.姓名 and 调薪时间 not in (select top " & i & "  调薪时间 from  tbl where 姓名=a.姓名    )),(select top 1  调整后薪资 from tbl where 姓名=a.姓名 and 调整后薪资 not in (select top " & i & "  调整后薪资 from  tbl where 姓名=a.姓名    )) "
ReDim Preserve arr(0 To j)

arr(i) = sql2
j = j + 1
Next
sql3 = Join(arr, "")

sql4 = " from  tbl a"
Sql = sql1 & sql3 & sql4
'MsgBox Sql
     .Range("g2").CopyFromRecordset CNN.Execute(Sql)
  
End With
End Sub

office2008

谢谢大师！大师关于EXCEL或者ACCESS+SQL技术完全够格出本书了 。[em23][em23][em23][em38][em38][em38]

office2008

已经把此帖的所有问题和答案收集齐全于1楼附件中，谢谢各位高手帮忙！中秋快乐！

ifhwfu

强烈建议 figfig 出一本 Excel 的 ADO + SQL 的教程，我们都来买。

ifhwfu

其实就是把 figfig 在论坛上所有的回帖整理、在梳理一下大纲就可以了。大家支持否？

zbs112

下载学习，谢谢！