Question

我正在尝试生成一个生成日历的报告，但我不想使用数据环境，因为它不接受带有变量的查询（例如SELECT * FROM Sample_tbl WHERE ID_Number = $ ID_No）其中$ ID_No是来自Visual Basic表单的输入，如何生成数据报告，当用户单击日历日期选择器上的日期时，它将自动生成一个报告，显示与用户具有的日期匹配的所有记录刚点击。

http://imageshack.com/a/img661/1913/dBALj1.png

Answer 1

您可以将Date_click事件用于Monthview控件..

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    ' Call to rs loader
    Call loadRecordset(DateClicked)
End Sub

其中loadRecordset sub可以写成：

Private Sub loadRecordset(vDate as Date)
    Dim strQuery as string
    Dim objRs as new ADODB.Recordset

    strQuery = "SELECT *" & _
               " FROM foo" & _
               " WHERE foo.date = '" & vDate & "'"

    'load rs
    objRs.open strQuery, adOpenDynamic, adLockPessimistic

End Sub

VB6中的日历报告

1 个答案: