从数据库中获取列值（日期）并显示将在一个月后过期的行

Posted 2023-05-06

【中文标题】从数据库中获取列值（日期）并显示将在一个月后过期的行

【英文标题】：fetch column value (date) from database and display row going to expire after one month

【发布时间】：2013-07-09 17:42:38

【问题描述】：

我有 ms 访问数据库文件，其中有很多字段。 客户，上次计费，下次计费...等 我想获取具有下一个计费日期列的所有行，并希望将其与今天进行比较，如果它比今天大一个月，则显示它，否则不显示它。 想要显示一个月后到期的记录。 我的逻辑：-

如果今天 >= 上一个帐单+11 个月并且今天

你还有其他选择吗？

我不知道该怎么做

Private Sub refreshlist()
    If Not cnn.State = ConnectionState.Open Then
    cnn.Open()
    End If
Dim sql As String = "select client,email,mobile from clientsData WHERE [NEXT BILLING]>"?????(what to do here)
    Dim da As New OleDb.OleDbDataAdapter(sql, cnn)
    Dim dt As New DataTable
    da.Fill(dt)
    Me.cviewexp.DataSource = dt
    cnn.Close()
End Sub

【参考方案1】：

我不确定我是否真的正确...这有帮助吗？

WHERE [NEXT BILLING] BETWEEN Dateadd('m', -1, Date()) AND Date()

【讨论】：

Dim sql As String = "select client,email,mobile from clientsData WHERE [NEXT BILLING] BETWEEN Dateadd('m', -1, [NEXT BILLING]) AND [NEXT BILLING] "跨度>