Public Function Extract(fromDate As Date, toDate As Date, sp As String) As Recordset Dim sql As String sql = "select * from sp_aankopen('" & format(fromdate,"yyyy-mm-dd") & "','" & format(toDate,"yyyy-mm-dd") & "')" Debug.Print sql Set rs = New ADODB.Recordset rs.Open sql, conn, adOpenDynamic, adLockOptimistic, -1 Set Extract = rs Set rs = Nothing End FunctionHi Naomi,
>>SET QUOTED_IDENTIFIER ON >>GO >>CREATE FUNCTION SP_Aankopen >>( >> @DateFrom date, >> @DateTo date >>) >>RETURNS TABLE >>AS >>RETURN >>( >> select * from dbo.aankopen >> where Dbo.aankopen.[DocumentDate] between @DateFrom and @DateTo >>) >>GO >>>>
>>Public Function Extract(fromDate As Date, toDate As Date, sp As String) As Recordset >> Dim cmd As New ADODB.Command >> cmd.ActiveConnection = conn >> cmd.CommandText = sp >> cmd.CommandType = adCmdTable >> cmd.Parameters.Refresh >> >> Dim p1 As ADODB.Parameter >> Set p1 = cmd.CreateParameter("@DateFrom", adDBTimeStamp) >> p1.Value = "2016-01-16" 'sqlformatDate(fromDate) >> cmd.Parameters.Append p1 >> Set p1 = Nothing >> Dim p2 As ADODB.Parameter >> Set p2 = cmd.CreateParameter("@DateTo", adDBTimeStamp) >> p2.Value = "2017-01-15" 'sqlformatDate(toDate) >> cmd.Parameters.Append p2 >> Set p2 = Nothing >> Dim rs As New Recordset >> Set rs = cmd.Execute() >> Set Extract = rs >> Set rs = Nothing >>End Function >>>>
>> Set rs = cmd.Execute() >>>>
>>USE [Exp_Plucz] >>GO >> >>SELECT * FROM [dbo].[SP_Aankopen] ( >> '2016-01-16','2017-01-15') >>GO >>>>