Solved

Moving data to and from Stored Procedures

Posted on 2006-06-14
3
152 Views
Last Modified: 2010-04-30
I have just started working with Stored Proc's and have run into a problem that has me unsure what to do next. The original straight SQL mined what I wanted perfectly and now that I have placed it in a proc I cant get it to work. Any suggestions would be wonderful. Thank you.

**************Stored Proc*****************************************************
CREATE PROCEDURE SP_ExceptionCheck(
     @DateSelected datetime,
     @StoreNum bigint OUT,
     @Location varchar(50) OUT,
     @TrendarNum varchar(50) OUT)

AS
SET NOCOUNT ON

     SELECT StoreNum, Location, TrendarNum FROM Trendar
     WHERE TrendarNum NOT IN (SELECT TSID FROM C3DATA WHERE INVDTE = @DateSelected)
GO
*****************************************************************************
***************VB6 Code*******************************************************
Do Until DateSelected = (frmMain.dtpEndDate.Value + 1)

    Dim rsEx As ADODB.Recordset
    With cmd
        Set .ActiveConnection = cn
        .CommandText = "SP_ExceptionCheck"
        .CommandType = adCmdStoredProc
        Set params = .Parameters
    End With

    ' Define stored procedure params and append to command.
    params.Append cmd.CreateParameter("@WilcoStoreNum", adBigInt, adParamOutput, 0)
    params.Append cmd.CreateParameter("@Location", adVarChar, adParamOutput, 50)
    params.Append cmd.CreateParameter("@TrendarNum", adVarChar, adParamOutput, 50)
    params.Append cmd.CreateParameter("@DateSelected", adDBTimeStamp, adParamInput, 0)
   
    ' Specify input parameter values
    params("@DateSelected") = DateSelected
   
    ' Execute the command
    Set rsEx = cmd.Execute
   
    Dim CmdInsert As ADODB.Command
    Set CmdInsert = New ADODB.Command
    Set CmdInsert.ActiveConnection = conC3V
   
        With rsEx
            Do While Not rsEx.EOF
                CmdInsert.CommandText = "INSERT INTO Exceptions(WilcoStoreNum,Location,TrendarNum,ExcDate) " & _
                "Values ('" & rsEx![WilcoStoreNum] & "','" & rsEx![Location] & "','" & rsEx![TrendarNum] & "','" & DateSelected & "')"
                CmdInsert.Execute
                .MoveNext
            Loop
        End With
       
        rsEx.Close
        cn.Close
        DateSelected = (DateSelected + 1)
    Loop
************************************************************************************
The original SQL was:
rstDateExceptionCheck2.Open "SELECT WilcoStoreNum,Location,TrendarNum FROM Trendar " & _
'"WHERE TrendarNum NOT IN (SELECT TSID FROM C3DATA WHERE INVDTE = '" & DateSelected & "')", conC3V, adOpenKeyset, adLockOptimistic
************************************************************************************

The Error I'm getting states: Formal parameter '@DateSelected' was defined as OUTPUT but the actual parameter not declared OUTPUT.
0
Comment
Question by:edfreels
  • 2
3 Comments
 
LVL 1

Author Comment

by:edfreels
ID: 16904745
Oh yeah, I did change this line :
params.Append cmd.CreateParameter("@DateSelected", adDBTimeStamp, adParamInput, 0)
 to adParamInputOutput but I still get the same error
0
 
LVL 65

Accepted Solution

by:
Jim Horn earned 125 total points
ID: 16904806
(wild guess)  I believe you have to do your Input parameters before your Output parameters.
0
 
LVL 1

Author Comment

by:edfreels
ID: 16904960
Thanks Jim, that did the trick. Talk about not paying attention!
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Restricting text box entry from \/:?<>"| 9 76
Updates not working for MS Windows 7 12 152
Excel - Save a copy of work book 13 82
vb6 connector to SQL Server 2 34
When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
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…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

930 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

13 Experts available now in Live!

Get 1:1 Help Now