日期选择指定月份，然后区间选择该指定月份的第一天和最后一天内的字段之和

大凯　发表于：2015-05-24 22:05:44 　

vb6.0+datagrid+access+adodc，条件选择“信息管理部”和日期7月后，点“汇总按钮”后，部门汇总里程和是正确的，但出现了5月和8月的。

想写一个，如果日期选择7月，然后出发时间范围就是7月1日-到7月7月31日的之间的里程统计。

代码：

If Check1.Value Then
'Adodc3.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\vehicle.mdb " & ";persist security info=false"
Adodc3.RecordSource = "select sum(里程统计) as 部门汇总 from cllclist where 用车部门='" & Combo1.Text & "' and month(出发时间)='" & Combo4.Text & " ' group by 用车部门"
Adodc3.Refresh
Text1.Text = Adodc3.Recordset.Fields("部门汇总").Value
End If

Top

chinasa 发表于：2015-05-25 08:19:12

用FORMAT把出发时间和返回时间转换成月份，然后检索两者都等于7月。

Top

大凯发表于：2015-05-25 08:55:54

谢谢chinasa，能帮助写个语句吗？刚开始学习，参照网上教程和实际使用做的，谢谢。

Top

chinasa 发表于：2015-05-25 10:09:32

参照你部门汇总的条件语句就可以了，我感觉你查询明细表是不是没限制条件啊。

Top

大凯发表于：2015-05-25 11:18:31

select sum(里程统计) as 部门汇总 from cllclist where 用车部门='" & Combo1.Text & "' and month(出发时间)='" & Combo4.Text & " ' group by 用车部门

能否帮助修改这个语句，实现，如果我选择了“信息管理部”和“7”月份，然后查询出的数据，就是出发时间在7月内的里程统计的和。谢谢。

Top

大凯发表于：2015-05-25 11:51:29

好了，谢谢。

If Check1.Value Then

bm = "用车部门 like '%" & Combo1.Text & "%'"

Else
bm = "用车部门 like '%'"
End If

Dim jsy As String

If Check2.Value Then
jsy = "驾驶员 like '%" & Combo2.Text & "%'"
Else
jsy = "驾驶员 like '%'"
End If

sql = "select * from cllclist where " & bm & " and " & jsy & " and month(出发时间)=" & Combo4.Text & ""

If sql = "select * from cllclist where 用车部门 like '%' and 驾驶员 like '%' and month(出发时间)=" & Combo4.Text & "" Then
MsgBox "请输入条件！", , "系统提示"
Call qingkong
Exit Sub
End If
Set adors = adocon.Execute(sql)
If adors.EOF Then
Call qingkong
MsgBox "没有！", , "系统提示"
Else
Adodc1.RecordSource = sql
Adodc1.Refresh
End If

If Check1.Value Then
Adodc3.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\vehicle.mdb " & ";persist security info=false"
Adodc3.RecordSource = "select sum(里程统计) as 部门汇总 from cllclist where month(出发时间)=" & Combo4.Text & " and 用车部门='" & Combo1.Text & "' "
Adodc3.Refresh
Text1.Text = Adodc3.Recordset.Fields("部门汇总").Value
End If

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

日期选择指定月份，然后区间选择该指定月份的第一天和最后一天内的字段之和