Access数据库培训
网站公告
·Access快速平台QQ群号:189307860    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-查询/SQL语句

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交流群 (群号:473665531)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助