Solved

Code APPLICATION

Posted on 2009-04-06
2
128 Views
Last Modified: 2012-05-06
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
0
Comment
Question by:Whing Dela Cruz
2 Comments
 
LVL 11

Accepted Solution

by:
bmatumbura earned 500 total points
ID: 24084274
What is the procedure supposed to do?
0
 

Author Comment

by:Whing Dela Cruz
ID: 24084373
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

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

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

Suggested Solutions

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
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…

810 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