[求助]用VBA编写SQL查询问题

zhang911 · 发表于 2006-4-2 23:08

你好!

我图片中只是没有列全所有的产品的品号!(因该是要列全的)

其实需求是很简单的.

我就是要按给定的品号的顺序求出,本月销售(退货)的发生数和累计数.

zhang911 · 发表于 2006-4-2 23:10

以下是引用[I]爱歌学习[/I]在2006-4-2 21:28:37的发言：
又看了一下，如果不改变顺序的话，那其实就是一个单纯的复制问题，而且你的累计销售、累计退货不是失去了意义？

?你说的我不是很明白!

[此贴子已经被作者于2006-4-2 23:11:19编辑过]

爱歌学习 · 发表于 2006-4-2 23:58

明白了，这样？

71GgDorE.rar (16.74 KB, 下载次数: 19)

zhang911 · 发表于 2006-4-3 19:05

我试了一下好象不行

Sub SeachData() 'sql查询实例
Dim x As Object, mydate As Variant
mydate = Range("j2").Value

Set x = CreateObject("ADODB.Connection")
x.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=YES;';Data Source=" & ThisWorkbook.FullName

For i = 5 To Range("a65536").End(xlUp).Row
Sql = "select Sum(数量) from [明细$] where 品号='" & Sheets("品种表").Cells(i, 1).Value & "'and 日期<=#" & mydate & "#"

Next i

Set y = x.Execute(Sql)

Sheets("品种表").Range("L2").CopyFromRecordset y

x.Close
Set y = Nothing

End Sub

我用这样的代码可以么?

想在 Sql = "select Sum(数量) from [明细$] where 品号='" & Sheets("品种表").Cells(i, 1).Value & "'and 日期<=#" & mydate & "#"
这句上做文章不知道可以不可以!?

爱歌学习 · 发表于 2006-4-3 19:11

哦，哪里不行？我的例子里不就是按照指定的顺序汇总吗？

爱歌学习 · 发表于 2006-4-3 19:14

恐怕那一句做不了文章，用ADO，最好在筛选出来后再做文章才快，如果你的 sql 语句条件太多，是非常慢的。我的改进就是筛选出来后再用两个循环依次与要求的顺序对比，这样很快就能在辅助区域排好顺序，然后再复制回去就行了。

zhang911 · 发表于 2006-4-3 19:43

以下是引用[I]爱歌学习[/I]在2006-4-3 19:11:18的发言：[BR]哦，哪里不行？我的例子里不就是按照指定的顺序汇总吗？

问题: 1.执行后，销售累计数量列,不正确,变成品号. 2.若日期变成了2006-2-28,执行后,将不正确了.

爱歌学习 · 发表于 2006-4-3 21:03

刚跑去捉 bug了，看看还有什么问题：

Jbb1C5Xu.rar (16.46 KB, 下载次数: 19)

zhang911 · 发表于 2006-4-3 21:32

Range(Cells(5, 12), Cells(65536, 15))
为什么你喜欢用这样的表示！

而不用Range("L5:O65536")?

请问有什么不同?会增加运算速度?!

我刚才测试了.本月销售有点问题.对不上.把时间该成2-28了部分品种会没有本月发生数!

爱歌学习 · 发表于 2006-4-3 22:47

可是你的原数据里本来就没有2月份的啊,我再看看.... 那种表示方法据说最快，呵呵，似乎有道理......

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