【已解决】ADO能否实现一对多查询？

LMY123

SQL实现一对多查找.rar (3.91 KB, 下载次数: 56)

2013-4-12 18:06 上传

点击文件名下载附件

zhaogang1960

几乎没有这样的SQL语句，因为不知道字段名
使用TRANSFORM 语句变通一下：

1. Sub Macro1()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim SQL$
   
4.     cnn.Open "provider = microsoft.jet.oledb.4.0; extended properties='excel 8.0;hdr=no'; data source =" & ThisWorkbook.FullName
   
5.     SQL = "Transform sum(f2) select f1 from [数据$" & [a1].CurrentRegion.Address(0, 0) & "] group by f1 pivot f2"
   
6.     Columns("E:IV").ClearContents
   
7.     [e1].CopyFromRecordset cnn.Execute(SQL)
   
8.     cnn.Close
   
9.     Set cnn = Nothing
   
10. End Sub
    

复制代码

zhaogang1960

请看附件
SQL实现一对多查找.rar (10.55 KB, 下载次数: 192)

2013-4-12 19:55 上传

点击文件名下载附件

LMY123

zhaogang1960 发表于 2013-4-12 19:56
请看附件

多谢版主及时指导，效果非常好，学习中
在版主的指导下，已完成工程部位对日期的一对多查询

Sub Macro1()
    Dim cnn As New ADODB.Connection
    Dim SQL$
    cnn.Open "provider = microsoft.jet.oledb.4.0; extended properties='excel 8.0;hdr=no'; data source =" & ThisWorkbook.FullName
    SQL = "Transform F2 select f1 from [数据$" & [a1].CurrentRegion.Address(0, 0) & "] group by f1 pivot f2"
    Columns("E:IV").ClearContents
    [e1].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub



SQL实现工程部位对日期的一对多查询---已实现.rar (11.86 KB, 下载次数: 95)

2013-4-12 20:24 上传

点击文件名下载附件

战战如疯

又学会了一手

zhouxiao

这个好像数组也可办到,楼主是考虑到数据量大会导致数组变慢,才转而用SQL实现?

zhaogang1960

zhouxiao 发表于 2013-6-26 21:19
这个好像数组也可办到,楼主是考虑到数据量大会导致数组变慢,才转而用SQL实现?

如果数据源在活动工作簿中时，通常数组+字典速度优于SQL

zhouxiao

zhaogang1960 发表于 2013-6-26 21:26
如果数据源在活动工作簿中时，通常数组+字典速度优于SQL

谢谢赵老师的解答，哪些情况下迫使我们使用ADO会比较有优势？能否请您列举几个典型的例子，不一定是现在就要学习，是想了解一下以后工作中如果碰到哪些问题，是可以用ADO解决的，我坐的是成本岗位

zhaogang1960

zhouxiao 发表于 2013-6-29 16:26
谢谢赵老师的解答，哪些情况下迫使我们使用ADO会比较有优势？能否请您列举几个典型的例子，不一定是现在就 ...

通常数据源处于不打开状态使用ADO速度上有优势，特别是查询很多工作簿时更是如此

zhouxiao

zhaogang1960 发表于 2013-6-29 16:41
通常数据源处于不打开状态使用ADO速度上有优势，特别是查询很多工作簿时更是如此

谢谢赵老师，如果要学习ADO技术，除了常逛论坛外，有没有比较容易理解的书籍可以推荐给我一两本嘛？感谢