在VB6中的日历报告

database
vb6

2014-12-07 35 views 0 likes

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

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

来源

2014-12-07 jeremybcenteno

好奇：为什么您使用VB6？ – Amy 2014-12-07 00:29:20

这是我在数据库管理系统1中的项目，难怪你很好奇我为什么还在使用VB6，我真的很无聊，用VB6 – jeremybcenteno 2014-12-07 00:35:40

回答

您可以使用MonthView控件的Date_click事件..

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

其中loadRecordset子可以这样写：

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

来源

2014-12-12 07:56:02

在VB6中的日历报告

回答

相关问题