房间入住报告

Question

基本上，我每天需要运行一个脚本。我已经有一个脚本可以向我显示房间的使用情况，但只能显示一天，关于如何在两天之间的每一天做任何建议。这是脚本的一个例子

 cmd = New SqlCommand("SELECT distinct * FROM ROcupancy as R Inner Join Room as S on R.RoomNo=S.RoomNo where R.Active='Yes' and R.RoomNo not in (Select RoomNo from Reservation,Room where Room.R_ID=Reservation.RoomID and Status ='Reserved' and Reservation.DateIn < @d1 AND Reservation.DateOut > @d2 ) and S.Active='Yes' and S.RoomNo not in (SELECT RoomNo FROM Checkin_Room,Room where Room.R_ID=CheckIn_Room.RoomID and Status = 'Check In' and Checkin_Room.DateIn < @d1 AND Checkin_Room.DateOut > @d2)", con)


cmd.Parameters.Add("@d1", SqlDbType.DateTime, 30, "DateOut").Value = DateTimePicker2.Value.Date
cmd.Parameters.Add("@d2", SqlDbType.DateTime, 30, "DateIN").Value = DateTimePicker1.Value
            adp = New SqlDataAdapter(cmd)
            dtable = New DataTable()
            adp.Fill(dtable)
            con.Close()
            ds = New DataSet()
            ds.Tables.Add(dtable)
            ds.WriteXmlSchema("RoomOccupancy987654321.xml")
            Dim rpt As New rptROReport2
            rpt.SetDataSource(ds)
            rpt.SetParameterValue("v1", DateTimePicker2.Value.Date)
            rpt.SetParameterValue("v2", DateTimePicker1.Value.Date)
            frmReport.CrystalReportViewer1.ReportSource = rpt
            frmReport.ShowDialog()