Strange behaviour on Store procedure when calling from VB6 application

Question

Hi,
I have a SP (thanks for the one who helped me out in this forum)
Declare @Temp Table (sensorname varchar(20),reading float,Date_Reading DatetIme,SAP float,SAN float) Insert @Temp select sensorname, reading, date_reading,(select alert_positive from sensor where sensor.sensorname = sensorreading.sensorname) as SAP, (select
alert_negative from sensor where sensor.sensorname = sensorreading.sensorname) as SAN from sensorreading where date_reading between '2014-12-03 23:59' and '2014-12-04 23:59'; SELECT sensorname, MAX(CASE WHEN BSeq = 1 THEN reading END) AS MaxReading, MAX(CASE
WHEN BSeq = 1 THEN Date_Reading END) AS MaxDateReading, MAX(CASE WHEN Seq = 1 THEN reading END) AS MinReading, MAX(CASE WHEN Seq = 1 THEN Date_Reading END) AS MinDateReading, MAX(CASE WHEN BSeq = 1 THEN SAP END) AS SAP, MAX(CASE WHEN BSeq = 1 THEN SAN END)
AS SAN From ( SELECT ROW_NUMBER() OVER (PARTITION BY sensorname ORDER BY reading) AS Seq, ROW_NUMBER() OVER (PARTITION BY sensorname ORDER BY reading DESC) AS BSeq,* FROM @Temp )t GROUP BY sensorname
I tried to run the SP from SQL server no matter to set parameters on DateFM / DateTO to any date, the data can returned from SQL.
However, when I call it in my VB6 program using ...
 Set cmd = Nothing
    Set rs = Nothing
    Set cmd = New ADODB.Command
    Set rs = New ADODB.recordset
    cmd.ActiveConnection = mdbcnn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "dbo.SP_DailyReports"
    dateTO = Now
    dateFM = DateAdd("d", -1, dateTO)
    'don't know why is only work on the below date range
    cmd.Parameters.Append cmd.CreateParameter("@DateFM", adDBTimeStamp, adParamInput, 255, Format(DateFM,"yyyy-mm-dd hh:mm:ss"))
    cmd.Parameters.Append cmd.CreateParameter("@DateTO", adDBTimeStamp, adParamInput, 255, Format(DateTO, "yyyy-mm-dd hh:mm:ss"))
    Set rs = cmd.Execute
The recordset contains return values on the date @2014-10-10 to 2014-10-11, other dates will not returned any values.
I tried to remove the 255
    cmd.Parameters.Append cmd.CreateParameter("@DateTO", adDBTimeStamp, adParamInput, , Format(CDate("2014-10-11 11:49"), "yyyy-mm-dd hh:mm:ss")) but still hasn't return data
Do you have any idea of this .. ?!
2014-10-10 to 2014-10-11 returned data sample from SQL
sensorname MaxReading MaxDateReading MinReading MinDateReading SAP SAN
DL-01-BAT 13.03485 2014-10-10 22:00:00.000 13.00753 2014-10-10 23:00:00.000 16.6000003814697 13
DL-02-BAT 12.063684 2014-10-10 20:00:00.000 12.057724 2014-10-10 23:00:00.000 13 10
DL-03-BAT 12.09362 2014-10-10 22:00:00.000 12.03034 2014-10-10 19:00:00.000 13 10
DL-04-BAT 12.49362 2014-10-10 22:00:00.000 12.43034 2014-10-10 19:00:00.000 13 10
DL-05-BAT 12.89362 2014-10-10 22:00:00.000 12.83034 2014-10-10 19:00:00.000 13 10
SVD-D045-P 414.2 2014-10-10 19:00:00.000 414.2 2014-10-10 19:00:00.000 450 350
SVD-D048-P 434.72 2014-10-10 19:00:00.000 434.72 2014-10-10 19:00:00.000 450 350
2014-12-03 to 2014-12-04 returned data sample from SQL
sensorname MaxReading MaxDateReading MinReading MinDateReading SAP SAN
DL-01-BAT 0.0027716304 2014-12-03 21:00:00.000 -0.0018678124 2014-12-04 08:00:00.000 16.6000003814697 13
DL-02-BAT 13.040122 2014-12-03 22:00:00.000 13.033486 2014-12-04 07:00:00.000 13 10
DL-03-BAT 13.067996 2014-12-03 21:00:00.000 13.061132 2014-12-04 09:00:00.000 13 10
DL-04-BAT 13.041772 2014-12-03 19:00:00.000 13.034222 2014-12-04 06:00:00.000 13 10
DL-05-BAT 13.042852 2014-12-03 17:00:00.000 13.036274 2014-12-04 09:00:00.000 13 10
SVD-D045-P -1.9226320056 2014-12-03 18:00:00.000 -2.80430085834 2014-12-04 09:00:00.000 450 350
SVD-D048-P 4.37950852736 2014-12-03 18:00:00.000 3.47056593536 2014-12-04 09:00:00.000 450 350
SVD-D049-P -2.09270840792 2014-12-03 17:00:00.000 -3.00283002844 2014-12-04 09:00:00.000 450 350

Answer 1

Hi,
The SP is
USE [CEDD2014]
GO
/****** Object: StoredProcedure [dbo].[SP_DailyReports] Script Date: 04/12/2014 2:42:57 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
ALTER procedure [dbo].[SP_DailyReports] @dateFM smalldatetime, @dateTO smalldatetime
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;
-- Insert statements for procedure here
Declare @Temp Table
sensorname varchar(20),
reading real,
Date_Reading DatetIme,
SAP real,
SAN real)
Insert @Temp
select sensorname, reading, date_reading,
(select alert_positive from sensor where sensor.sensorname = sensorreading.sensorname)
as SAP,
(select alert_negative from sensor where sensor.sensorname = sensorreading.sensorname)
as SAN
from sensorreading where date_reading between @DateFm and @DateTo;
SELECT sensorname,
MAX(CASE WHEN BSeq = 1 THEN reading END) AS MaxReading,
MAX(CASE WHEN BSeq = 1 THEN Date_Reading END) AS MaxDateReading,
MAX(CASE WHEN Seq = 1 THEN reading END) AS MinReading,
MAX(CASE WHEN Seq = 1 THEN Date_Reading END) AS MinDateReading,
MAX(CASE WHEN BSeq = 1 THEN SAP END) AS SAP,
MAX(CASE WHEN BSeq = 1 THEN SAN END) AS SAN
FROM
SELECT ROW_NUMBER() OVER (PARTITION BY sensorname ORDER BY reading) AS Seq,
ROW_NUMBER() OVER (PARTITION BY sensorname ORDER BY reading DESC) AS BSeq,*
FROM @Temp
)t
GROUP BY sensorname
END