Code APPLICATION

How can i arrange this code to make a stored procedure?
I'm trying to make a stored procedure like an image below but i dont know if ist correct.
hope you correct this code!
Thanks..

CREATE PROCEDURE [dbo].[SOLDITEM] (
	[PCODE] [char] (16) NULL ,
	[PNAME] [char] (45) NULL ,
	[QUANTITY] [float] NULL ,
	[AMOUNT] [float] NULL ,
	[DISCOUNT] [float] NULL ,
	[PROFIT] [float] NULL ,
	[THEDATE] [datetime] NULL ,
	[SALESTYPE] [char] (1) NULL ,
	[TRXNO] [float] NULL ,
	[SOP] [float] NULL 
) ON [PRIMARY]
GO

Open in new window

grid.bmp
Whing Dela CruzAsked:
Who is Participating?
 
bmatumburaConnect With a Mentor Commented:
What is the procedure supposed to do?
0
 
Whing Dela CruzAuthor Commented:
Hi!
to exe.command

Public Function ChkSoldItem( _
    ByRef pCode As String, _
    ByRef TheDate As Date, _
    ByRef SALESTYPE As String) As Boolean
    
 
Dim cnn As ADODB.Connection
'On Error GoTo Handle_Err
 
  Const conProcName = conModuleName & _
    ".ReadCashier"
    
    Dim cmd As ADODB.Command
    Dim prms As ADODB.Parameters
    Dim rs As ADODB.Recordset
     
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = conConnectionString
    cnn.Open
 
    If Not cnn.State = adStateOpen Then
      GoTo Exit_Here
  End If
 
' Create command objects
    Set cmd = New ADODB.Command
 
' Set command properties
With cmd
    Set .ActiveConnection = cnn
    .CommandText = "chksolditem"
    .CommandType = adCmdStoredProc
    Set prms = .Parameters
End With
 
    ' Define stored procedure prms and append to command.
    prms.Append cmd.CreateParameter("@pcode", adChar, adParamInput, 16)
    prms.Append cmd.CreateParameter("@thedate", adDate, adParamInput, 0)
    prms.Append cmd.CreateParameter("@salestype", adChar, adParamInput, 1)
    
    
    ' Insert a dummy customer
    prms("@pcode") = pCode
 
    prms("@thedate") = TheDate
    prms("@salestype") = SALESTYPE
 
    ' Execute the command
    Set rs = cmd.Execute
    With rs
        If .BOF = True And .EOF = True Then
            ChkSoldItem = False
        Else
            ChkSoldItem = True
        End If
        .Close
    End With
    ' Retrieve stored procedure return value and output parameters
Exit_Here:
  ' Ensure that connection is closed and released.
  If Not cnn Is Nothing Then
      If cnn.State = adStateOpen Then
          cnn.Close
      End If
      Set cnn = Nothing
  End If
  Exit Function
  
Handle_Err:
  Select Case Err.Number
    Case Else
        Err.Raise Err.Number, _
          conProcName, Err.Description, _
          Err.HelpFile, Err.HelpContext
  End Select
  Resume Exit_Here
  Resume
End Function

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.