VB6中的日历报告

Question

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

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

Answer 1

您可以使用Monthview控件的Date_click事件。

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