Solved

Code APPLICATION

Posted on 2009-04-06
2
129 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

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

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…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
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 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…

856 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