为什么SQL sever里面试了对的 但是VBA中就是不对？

a41064

附件放上来了 请各位帮忙看看   VBA日期操作好麻烦  老是出问题 我自己用相同的语句在SQL sever上面是对的 港福建里面不对现重新发一个

zhanghai0602

1. <p>sqlString = "select sum(余额) from [清单$a1:cf65535] where 日期>=#" & s & "# and  日期<= #" & s & "#</p><p>    s2 = "2019-07-31"
   
2.     s = DateSerial(Year(s), Month(s), 1) </p>

复制代码

S的赋值有问题我把你的S2和S换了下，出结果了
另外语法上可以按上面的格式走

a41064

我的本意是  想选出 日期在 2019-07-31日之前30天内   30-90天内这种  请问怎么操作

a41064

zhanghai0602 发表于 2019-8-21 16:41
S的赋值有问题我把你的S2和S换了下，出结果了
另外语法上可以按上面的格式走

我的本意是  想选出 日期在 2019-07-31日之前30天内   30-90天内这种  请问怎么操作

zhanghai0602

1.     Dim s As Date
   
2.     s = DateValue("2019-07-31")
   
3. ‘S 声明为日期
   
4. 
   
5. sqlString = "select  sum(余额)   from [清单$a1:cf] where 日期>= #" & s - 30 & "# and  日期<= #" & s & "#"
   
6. ’SQL语句上按以上形式走

复制代码

chowapple

学习了
其实直接在sql里面把日期做好就行。between time1-30 and time1+30

zhanghai0602

我帮你简化了下,你那个太繁杂,看着不爽

1. Sub 监测表()
   
2.     Application.ScreenUpdating = False
   
3.     Dim s As Date
   
4.     s = "2019-07-31"
   
5.     With ThisWorkbook.Sheets("监测表")
   
6.         .Range("t7") = DBv("select sum(余额) from [清单$A:B] where 日期<=#" & s & "# and 日期>=#" & s - 30 & "#")
   
7.         .Range("u7") = DBv("select sum(余额) from [清单$A:B] where 日期<=#" & s - 31 & "# and 日期>=#" & s - 90 & "#")
   
8.         .Range("v7") = DBv("select sum(余额) from [清单$A:B] where 日期<=#" & s - 91 & "# and 日期>=#" & s - 180 & "#")
   
9.         .Range("w7") = DBv("select sum(余额) from [清单$A:B] where 日期<=#" & s - 181 & "# and 日期>=#" & s - 360 & "#")
   
10.         .Range("x7") = DBv("select sum(余额) from [清单$A:B] where 日期<=#" & s - 361 & "#")
    
11.     End With
    
12.     Application.ScreenUpdating = True
    
13. End Sub
    
14. Function DBv(sql$)
    
15.     Dim cnn As Object, rst As Object
    
16.     Debug.Print sql
    
17.     Set cnn = CreateObject("ADODB.Connection")
    
18.     Set rst = CreateObject("ADODB.Recordset")
    
19.     cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\输出\清单.xlsx"
    
20.     Set rst = cnn.Execute(sql)
    
21.     DBv = Round(rst(0) / 10000, 0)
    
22.     Set rst = Nothing
    
23.     cnn.Close
    
24.     Set cnn = Nothing
    
25. End Function

复制代码

zhanghai0602

再给你来一个更简洁的

1. Sub 监测表()
   
2.     Application.ScreenUpdating = False
   
3.     Dim s As Date
   
4.     s = "2019-07-31"
   
5.     With ThisWorkbook.Sheets("监测表")
   
6.         .Range("t7") = DBv(s - 30, s)
   
7.         .Range("u7") = DBv(s - 90, s - 31)
   
8.         .Range("v7") = DBv(s - 180, s - 91)
   
9.         .Range("w7") = DBv(s - 360, s - 181)
   
10.         .Range("x7") = DBv(s - 100000, s - 361)
    
11.     End With
    
12.     Application.ScreenUpdating = True
    
13. End Sub
    
14. Function DBv(sday As Date, eday As Date)
    
15.     Dim cnn As Object, rst As Object
    
16.     Set cnn = CreateObject("ADODB.Connection")
    
17.     Set rst = CreateObject("ADODB.Recordset")
    
18.     cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\输出\清单.xlsx"
    
19.     Set rst = cnn.Execute("select round(sum(余额/10000),0) from [清单$A:B] where 日期>=#" & sday & "# and 日期<=#" & eday & "#")
    
20.     DBv = rst(0)
    
21.     Set rst = Nothing
    
22.     cnn.Close
    
23.     Set cnn = Nothing
    
24. End Function

复制代码

a41064

zhanghai0602 发表于 2019-8-21 17:48
再给你来一个更简洁的

谢回答  请问语句中的#是什么作用？？我发现没有#就不对  有了就可以了
不是很理解为什么

a41064

zhanghai0602 发表于 2019-8-21 17:38
我帮你简化了下,你那个太繁杂,看着不爽

还有为什么我最早的用dateadd做出来不对？