Solved

Executing Stored Procedure from Access

Posted on 2008-06-11
4
1,088 Views
Last Modified: 2012-06-27
I'm trying to run a stored procedure with parameters from Access.

I get an "object required" error message on the first parameter line.
If I remove the parameters, I get "The Microsoft Jet database engine cannot find the input table or query 'usp_printerorder_pending'. Make sure it exists and that its name is spelled corretly."

How do I set the parameters correctly and does it have something to do with not being able to find the stored procedure? And if so, how do I make it see the stored procedure?
Dim cmd As ADODB.Command

    Dim rs As ADODB.Recordset

    

    Set cmd = New ADODB.Command

    Set cmd.ActiveConnection = CurrentProject.Connection

    

    cmd.CommandText = "usp_printerorder_pending"

    cmd.CommandType = adCmdStoredProc

    

    'Set the parameters

    cmd.Parameters.Append (cmd.CreateParameter("@FromDate", adDate, adParamInput, 10, Me.dteFrom.Value))

    cmd.Parameters.Append (cmd.CreateParameter("@ToDate", adDate, adParamInput, 10, Me.dteTo.Value))
 

    Set rs = New ADODB.Recordset

    Set rs = cmd.Execute

    Me.frmPrinterOrdersub.Form.Recordset = rs
 

    rs.Close

    Set rs = Nothing

    Set cmd = Nothing

Open in new window

0
Comment
Question by:slamhound
  • 2
4 Comments
 
LVL 77

Expert Comment

by:peter57r
ID: 21766767
Trying adding the the owner prefix to the sp name. (dbo.usp_printerorder_pending or whatever it is)
0
 
LVL 1

Expert Comment

by:treanor99
ID: 21766937
Is your database set up as project, i.e. the name ends .adp?

If so this code should work
Function ExecSP(strSQL As String, Optional intTimeout As Integer = 360, Optional blnReturnError As Boolean = False) As String

' runs sql command

' creates log entry in command_log

' If there is an error than return it otherwise return ""

    Dim s_sql_log As String

    Dim objCmd As New ADODB.Command
 

    s_sql_log = _

        "INSERT INTO command_log " & _

        "(command, datetime_sent, user_sent) " & _

        "VALUES ('" & Replace(strSQL, "'", "''") & "', GETDATE(), '" & Environ("user") & "')"
 

    ' create log entry

    DoCmd.RunSQL s_sql_log
 

    ' run sql command with 3 minute timeout

    With objCmd

        .ActiveConnection = CurrentProject.Connection

        .CommandType = adCmdText

        .CommandText = strSQL

        .CommandTimeout = intTimeout

        If blnReturnError = True Then

            On Error Resume Next

            .Execute

            If Err.Number <> 0 Then

                ExecSP = Err.Description

            Else

                ExecSP = ""

            End If

            On Error GoTo 0

        Else

            .Execute

        End If

    End With

    Set objCmd = Nothing

End Function

Open in new window

0
 
LVL 10

Author Comment

by:slamhound
ID: 21774527
Referencing the owner and server name etc has no effect. I'm not setup using a project.
0
 
LVL 10

Accepted Solution

by:
slamhound earned 0 total points
ID: 21808181
I solved it myself.
    Dim cnn As ADODB.Connection

    Dim cmd As ADODB.Command

    Dim rs As ADODB.Recordset
 

    Set cnn = New ADODB.Connection

    cnn.Open "Driver={SQL Server};Server=SOY-SQL;Database=SOYSourceSQL;UID=xxxx;Password=xxxxxx"

    cnn.CursorLocation = adUseClient
 

    Set cmd = New ADODB.Command 'New Command

 

    With cmd

        .ActiveConnection = cnn

        ' .ActiveConnection = Application.CurrentProject.Connection

        .CommandText = "usp_printerorder_pending"

        .CommandType = adCmdStoredProc

        .Prepared = True

        '.Parameters.Refresh

        .Parameters("@FromDate").Value = Me.dteFrom.Value

        .Parameters("@ToDate").Value = Me.dteTo.Value

        Set rs = .Execute

    End With

    

    Set Me.frmPrinterOrdersub.Form.Recordset = rs
 

    rs.Close

    Set rs = Nothing

    Set cmd = Nothing

Open in new window

0

Featured Post

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

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

I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
Use this article to create a batch file to backup a Microsoft SQL Server database to a Windows folder.  The folder can be on the local hard drive or on a network share.  This batch file will query the SQL server to get the current date & time and wi…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

911 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

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now