Oracle FAQ Your Portal to the Oracle Knowledge Grid
HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US
 

Home -> Community -> Usenet -> c.d.o.misc -> Re: executing oracle-procedure from MS Visual Interdef

Re: executing oracle-procedure from MS Visual Interdef

From: John R. Kaiser <jkaiser_at_amfam.com>
Date: 1998/02/20
Message-ID: <34edaafb.617957315@msnews.microsoft.com>#1/1

Sounds like the ODBC connection is fine on the Development machine. Look at ODBC/DNS connections on the server.

On Tue, 17 Feb 1998 13:19:10 -0600, "Monique E.E. van der Veer" <mvdveer_at_kabelfoon.nl> wrote:

>Hi everyone,
>
>I'm working with Visual Interdef on an Oracle 7 DB. With this I'm trying
>to execute a stored procedure to which I'm sending parameters the
>procedure returns four values.
>Each time the script is executed however, I get an error message:
>"acces violation or syntax error" When I execute the procedure in
>Interdef's dataview tab it executes without problems. I even get to see
>the output in the results pane. That's why I assume the ODBC-driver is
>allright for this.
>
>Can anyone help me or point me in an direction as to where I can find
>more information.
>
>Below this line is a sample of the script I am using
>---------------------------------------------------------
>
>Set ComConn = Server.CreateObject("ADODB.Connection")
>
>'Set RS = Server.CreateObject("ADODB.RecordSet")
>ComConn.Open "ICSI", "icsowner" , "icsowner"
>'RS.Open sql, Conn, adOpenKeyset,adLockReadOnly
>
>Set cmd = Server.CreateObject("ADODB.Command")
>cmd.CommandTimeOut = 30
>cmd.ActiveConnection = ComConn
>
>'This code runs a stored procedure that requires parameters
>cmd.CommandText = "EXEC ICSOWNER.ICS_CONTROLE1"
>cmd.CommandType = 4
>'Set parameter = command.CreateParameter(Name, Type, Direction, Size,
>Value)
>set parm = cmd.CreateParameter(P_NAAM, 129, 1, 15, X)
>cmd.Parameters.Append parm
>set parm = cmd.CreateParameter(P_PASSWORD, 129, 1, 15, Y)
>cmd.Parameters.Append parm
>set parm = cmd.CreateParameter(P_BESTUUR_ID, 131, 2, 40)
>cmd.Parameters.Append parm
>set parm = cmd.CreateParameter(P_INSTELLING_ID, 131, 2, 40)
>cmd.Parameters.Append parm
>set parm = cmd.CreateParameter(P_GEBRUIKER_ID, 131, 2, 40)
>cmd.Parameters.Append parm
>set parm = cmd.CreateParameter(P_TYPE, 129, 2, 40)
>cmd.Parameters.Append parm
>cmd.Execute
>
>----------------------------------------------------------------------
>Thanks,
>
>
>Monique van der Veer
>mvdveer_at_kabelfoon.nl
>
Received on Fri Feb 20 1998 - 00:00:00 CST

Original text of this message

HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US