|
 |
asp_databases thread: Error using stored procedure page 368 (Professional Active Server- Pages 3.0)
Message #1 by Aftab Ahmad <aftab.ahmad@k...> on Mon, 8 Oct 2001 11:39:32 +0200
|
|
Hello
Please help me!
When I try to insert a record in DB I get below error message:
Error Type:
Microsoft VBScript compilation (0x800A0414)
Cannot use parentheses when calling a Sub
/tidsregistrering/Registrering/insert.asp, line 77, column 76
My ASP code is:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnect
adCmdText = 1
adParamReturnValue = 4
'Create the command object and set the query to be executed
Set objCmd = Server.CreateObject("ADODB.Command")
'Set objCmd.ActiveConnection = objConn
With objCmd
.ActiveConnection = objConn
.CommandText = "Tidsregistrering_insert"
.CommandType = adCmdStoredProc
' Note: Below is the Line# 77 that points in error message
.Parameters.Append. CreateParameter ("RETURN_VALUE",
adInteger, adParamReturnValue)
.Parameters.Append. CreateParameter ("@c_initialer", adChar,
adParamInput, 3)
.Parameters.Append .CreateParameter ("@vc_password",
adVarWChar, adParamInput, 10)
.Parameters.Append .CreateParameter ("@vc_enhet", adChar,
adParamInput, 3)
.Parameters.Append .CreateParameter ("@d_tidsbrukt",
adNumeric, adParamInput)
.Parameters.Append .CreateParameter ("@d_dato",
adDBTimeStamp, adParamInput)
.Parameters.Append .CreateParameter ("@in_aktivitetsnr",
adSmallInt, adParamInput)
.Parameters.Append .CreateParameter
("@in_utligningsgruppenr", adSmallInt, adParamInput)
.Parameters.Append .CreateParameter ("@in_tilsynsgruppenr",
adSmallInt, adParamInput)
' set the parameter values
.Parameters("@c_initialer") = operatorinitialer
.Parameters("@vc_password") = password
.Parameters("@vc_enhet") = enhet
.Parameters("@d_tidsbrukt") = tidsbrukt
.Parameters("@d_dato") = dato
.Parameters("@in_aktivitetsnr") = activitetsnr
.Parameters("@in_utligningsgruppenr") = utligningsgruppenr
.Parameters("@in_tilsynsgruppenr") = tilsynsgruppenr
.Execute lntRecs, , adExecuteNoRecords
lntAdded = .Parameters("RETURN_VALUE")
End With
If lntAdded = 1 Then
Response.Write "Record inserted."
else
Response.Write "Feil med passord eller database ---
Insertion failed!."
End If
'Close objects
Set objCmd=nothing
objConn.Close
Set objConn = Nothing
Regards
Aftab
Message #2 by "Ken Schaefer" <ken@a...> on Tue, 9 Oct 2001 13:04:41 +1000
|
|
These lines:
.Parameters.Append. CreateParameter ("RETURN_VALUE",
adInteger, adParamReturnValue)
are incorrect. you should have;
.Parameters.Append .CreateParameter("Return_Value"
(notice the placement of the 2nd full stop . The full stop must come
immediately before .CreateParameter NOT immediately after Append)
Cheers
Ken
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: "Aftab Ahmad" <aftab.ahmad@k...>
To: "ASP Databases" <asp_databases@p...>
Sent: Monday, October 08, 2001 7:39 PM
Subject: [asp_databases] Error using stored procedure page 368 (Professional
Active Server Pages 3.0)
: Hello
:
: Please help me!
: When I try to insert a record in DB I get below error message:
:
: Error Type:
: Microsoft VBScript compilation (0x800A0414)
: Cannot use parentheses when calling a Sub
: /tidsregistrering/Registrering/insert.asp, line 77, column 76
:
:
: My ASP code is:
:
: Set objConn = Server.CreateObject("ADODB.Connection")
: objConn.Open strConnect
:
: adCmdText = 1
: adParamReturnValue = 4
:
: 'Create the command object and set the query to be executed
: Set objCmd = Server.CreateObject("ADODB.Command")
: 'Set objCmd.ActiveConnection = objConn
:
:
: With objCmd
: .ActiveConnection = objConn
: .CommandText = "Tidsregistrering_insert"
: .CommandType = adCmdStoredProc
:
: ' Note: Below is the Line# 77 that points in error message
: .Parameters.Append. CreateParameter ("RETURN_VALUE",
: adInteger, adParamReturnValue)
: .Parameters.Append. CreateParameter ("@c_initialer", adChar,
: adParamInput, 3)
: .Parameters.Append .CreateParameter ("@vc_password",
: adVarWChar, adParamInput, 10)
: .Parameters.Append .CreateParameter ("@vc_enhet", adChar,
: adParamInput, 3)
: .Parameters.Append .CreateParameter ("@d_tidsbrukt",
: adNumeric, adParamInput)
: .Parameters.Append .CreateParameter ("@d_dato",
: adDBTimeStamp, adParamInput)
: .Parameters.Append .CreateParameter ("@in_aktivitetsnr",
: adSmallInt, adParamInput)
: .Parameters.Append .CreateParameter
: ("@in_utligningsgruppenr", adSmallInt, adParamInput)
: .Parameters.Append .CreateParameter ("@in_tilsynsgruppenr",
: adSmallInt, adParamInput)
:
: ' set the parameter values
: .Parameters("@c_initialer") = operatorinitialer
: .Parameters("@vc_password") = password
: .Parameters("@vc_enhet") = enhet
: .Parameters("@d_tidsbrukt") = tidsbrukt
: .Parameters("@d_dato") = dato
: .Parameters("@in_aktivitetsnr") = activitetsnr
: .Parameters("@in_utligningsgruppenr") = utligningsgruppenr
: .Parameters("@in_tilsynsgruppenr") = tilsynsgruppenr
:
: .Execute lntRecs, , adExecuteNoRecords
:
: lntAdded = .Parameters("RETURN_VALUE")
: End With
Message #3 by "Tomm Matthis" <matthis@b...> on Tue, 9 Oct 2001 09:46:52 -0400
|
|
A bit of a spacing problem in your code... try this:
.Parameters.Append .CreateParameter("RETURN_VALUE", adInteger,
adParamReturnValue)
Note the movement of the "dot" right up against CreateParameter and the
movement of the parens right up to the end of CreateParameter.
-- Tomm
> -----Original Message-----
> From: Aftab Ahmad [mailto:aftab.ahmad@k...]
> Sent: Monday, October 08, 2001 5:40 AM
> To: ASP Databases
> Subject: [asp_databases] Error using stored procedure page 368
> (Professional Active Server Pages 3.0)
>
>
> Hello
>
> Please help me!
> When I try to insert a record in DB I get below error message:
>
> Error Type:
> Microsoft VBScript compilation (0x800A0414)
> Cannot use parentheses when calling a Sub
> /tidsregistrering/Registrering/insert.asp, line 77, column 76
>
>
> My ASP code is:
>
> Set objConn = Server.CreateObject("ADODB.Connection")
> objConn.Open strConnect
>
> adCmdText = 1
> adParamReturnValue = 4
>
> 'Create the command object and set the query to be executed
> Set objCmd = Server.CreateObject("ADODB.Command")
> 'Set objCmd.ActiveConnection = objConn
>
>
> With objCmd
> .ActiveConnection = objConn
> .CommandText = "Tidsregistrering_insert"
> .CommandType = adCmdStoredProc
>
> ' Note: Below is the Line# 77 that points in error message
> .Parameters.Append. CreateParameter ("RETURN_VALUE",
> adInteger, adParamReturnValue)
> .Parameters.Append. CreateParameter ("@c_initialer", adChar,
> adParamInput, 3)
> .Parameters.Append .CreateParameter ("@vc_password",
> adVarWChar, adParamInput, 10)
> .Parameters.Append .CreateParameter ("@vc_enhet", adChar,
> adParamInput, 3)
> .Parameters.Append .CreateParameter ("@d_tidsbrukt",
> adNumeric, adParamInput)
> .Parameters.Append .CreateParameter ("@d_dato",
> adDBTimeStamp, adParamInput)
> .Parameters.Append .CreateParameter ("@in_aktivitetsnr",
> adSmallInt, adParamInput)
> .Parameters.Append .CreateParameter
> ("@in_utligningsgruppenr", adSmallInt, adParamInput)
> .Parameters.Append .CreateParameter ("@in_tilsynsgruppenr",
> adSmallInt, adParamInput)
>
> ' set the parameter values
> .Parameters("@c_initialer") = operatorinitialer
> .Parameters("@vc_password") = password
> .Parameters("@vc_enhet") = enhet
> .Parameters("@d_tidsbrukt") = tidsbrukt
> .Parameters("@d_dato") = dato
> .Parameters("@in_aktivitetsnr") = activitetsnr
> .Parameters("@in_utligningsgruppenr") = utligningsgruppenr
> .Parameters("@in_tilsynsgruppenr") = tilsynsgruppenr
>
> .Execute lntRecs, , adExecuteNoRecords
>
> lntAdded = .Parameters("RETURN_VALUE")
> End With
>
> If lntAdded = 1 Then
> Response.Write "Record inserted."
> else
> Response.Write "Feil med passord eller database ---
> Insertion failed!."
> End If
>
> 'Close objects
> Set objCmd=nothing
> objConn.Close
> Set objConn = Nothing
>
> Regards
> Aftab
>
>
> $subst('Email.Unsub')
>
>
|
|
|
View Cart
