Erroneous results using date parameter in an Access function passed to a SQL stored procedure

Posted on 2011-03-09
Last Modified: 2012-05-11
I am receiving strange results when trying to pass a date value as a function parameter to a SQL stored procedure.
The following code is what I am using.  NOTE: I have tried various solutions such as; a date and/or a string type for the function parameter, also, a hard-coded value.

Here is the code:

Option Explicit

     'Function ParamSPT2(MyParam As String)
     Function ParamSPT2(MyParam As String)

     'MyParam = Format(MyParam, "yyyy-mm-dd hh:nn:ss")
     On Error GoTo ODBCErrHandler

        Dim MyDb As Database, MyQry As QueryDef, MyRS As Recordset
         Set MyDb = CurrentDb()
         Set MyQry = MyDb.CreateQueryDef("")

         ' Type a connect string using the appropriate values for your
         ' server.
         MyQry.connect = "ODBC;DSN=EPM_DEV;Description=EPM_Development;UID=user1;Trusted_Connection=Yes;DATABASE=PSEOC IBIXImport"

'MyParam = 2011 - 1 - 1
        MyParam = Format(MyParam, "yyyy-mm-dd hh:nn:ss")
         Debug.Print MyParam
         ' Set the SQL property and concatenate the variables.
         'MyQry.SQL = "sp_server_info " & MyParam
         MyQry.SQL = "Get_IBIX_Success_Totals_By_Date" & MyParam
         MyQry.ReturnsRecords = True
         Set MyRS = MyQry.OpenRecordset()

         Debug.Print MyRS!attribute_id, MyRS!attribute_name, MyRS!attribute_value

   Exit Function
   Dim errX As DAO.Error

   If Errors.Count > 1 Then
      For Each errX In DAO.Errors
         Debug.Print "ODBC Error"
         Debug.Print errX.Number
         Debug.Print errX.Description
      Next errX
      Debug.Print "VBA Error"
      Debug.Print Err.Number
      Debug.Print Err.Description
   End If
   Resume Exit_function
  End Function
Question by:psueoc
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 5
LVL 15

Expert Comment

ID: 35082504
MyQry.SQL = "Get_IBIX_Success_Totals_By_Date" & MyParam

there's no space between the proc name and the date - this may be the source of the issue

also, you probably need to wrap the parameter in quotes, like this:

MyQry.SQL = "Get_IBIX_Success_Totals_By_Date '" & MyParam & "'"

Open in new window


Author Comment

ID: 35082554
That helped but not out of the woods yet here are the results:
Why is it converting it to 1905-07-01 00:00:00?

1905-07-01 00:00:00
VBA Error
Item not found in this collection.
LVL 15

Expert Comment

ID: 35082608
I'm not sure - is that from the debug.print?

Try removing the format(). SQL should be able to handle that date format just fine without any additional processing.
The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.


Author Comment

ID: 35082712
Yes the 1901... was from debug.print.
I have removed formatting, here are the results.  The item not found probably means no records? Because it doesn't have the month and day portion needed for the query to run results?

VBA Error
Item not found in this collection.
LVL 15

Accepted Solution

derekkromm earned 500 total points
ID: 35082724
Did you put quotes around the whole thing? Copy/paste the line of code from my post above. You need to put single quotes around the parameter. Right now its seeing 2011-1-1 and interpreting it as an expression: hence 2009 being sent as a parameter instead of "2011-1-1"

Author Comment

ID: 35082775
I'm not sure about that because I copied your recommendation form above and it returned 2009.

MyQry.SQL = "Get_IBIX_Success_Totals_By_Date '" & MyParam & "'"
LVL 15

Expert Comment

ID: 35082792
can you debug.print the myparam?
also debug.print this: "Get_IBIX_Success_Totals_By_Date '" & MyParam & "'"

Author Comment

ID: 35082842
Additional information:
 I have tried entering the parameter as follows at the Immediate window but without successful results:



LVL 15

Assisted Solution

derekkromm earned 500 total points
ID: 35082861
how about this:



Author Closing Comment

ID: 35083036
Thank you very much. You have solved this problem.  I have follow-up which I will post immediately for additional points.

Featured Post

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

As with any other System Center product, the installation for the Authoring Tool can be quite a pain sometimes. This article serves to help you avoid making these mistakes and hopefully save you a ton of time on troubleshooting :)  Step 1: Make sur…
Composite queries are used to retrieve the results from joining multiple queries after applying any filters. UNION, INTERSECT, MINUS, and UNION ALL are some of the operators used to get certain desired results.​
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question