SQL语句条件中日期字段如何写
时 间:2018-04-28 11:50:31
作 者:iamlaosong ID:65695 城市:合肥
摘 要:SQL语句条件中日期字段如何写
正 文:
构成SQL语句时日期直接使用是不行的,即使变量是日期型,但构成SQL语句时还是会被当成字符串处理的,要想把字符串转换称日期型数据,需要用“#”括起来,例如下面这个统计过程:
Private Sub btnOK_Click() Dim StartDate As Date, EndDate As Date Dim strSQL, strItem As String DoCmd.SetWarnings False DoCmd.RunSQL "Delete from tblTransSum" '统计日期 StartDate = Nz(Me.txtStartDate) EndDate = Nz(Me.txtEndDate) If StartDate = 0 or EndDate = 0 Then MsgBox "请先选择日期,然后点击统计按钮!", vbCritical, "提示" Exit Sub End If '统计单位 If Me.frmItem = 1 Then strItem = "FAbbr" Else strItem = "CAbbr" End If '统计 strSQL = "Insert into tblTransSum (Item,ExtraFee,DeductFee,SettleFee,CExtraFee,CDeductFee,CSettleFee) Select " & strItem strSQL = strSQL & ",sum(ExtraFee),sum(DeductFee),sum(SettleFee),sum(CExtraFee),sum(CDeductFee),sum(CSettleFee) from tblTransport" strSQL = strSQL & " Where AuditState and AuditDate Between #" & StartDate & "# and #" & EndDate & "# Group by " & strItem DoCmd.RunSQL strSQL '插入一条合计 strSQL = "Insert into tblTransSum (Item,ExtraFee,DeductFee,SettleFee,CExtraFee,CDeductFee,CSettleFee) Select '合计'" strSQL = strSQL & ",sum(ExtraFee),sum(DeductFee),sum(SettleFee),sum(CExtraFee),sum(CDeductFee),sum(CSettleFee) from tblTransSum" '刷新显示 RequeryDataObject Me.sfrList End Sub
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access高效办公】统计当...(06.30)
- 【Access高效办公】用复选...(06.24)
- 根据变化的日期来自动编号的示例...(06.20)
- 【Access高效办公】按日期...(06.12)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 【Access高效办公】统计当...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)

学习心得
最新文章
- 1行代码实现Access与SQL ...(07.09)
- 免费《仓库管理实战课程》全集(07.08)
- Access快速开发平台--Win...(07.07)
- Access快速开发平台--执行有...(07.03)
- 【Access高效办公】统计当月之...(06.30)
- 【Access高效办公】用复选框控...(06.24)
- 根据变化的日期来自动编号的示例;根...(06.20)
- Access快速开发平台--Acc...(06.16)
- 【Access高效办公】按日期区间...(06.12)
- Access快速开发平台--生成复...(06.07)