Re: Oracle proc. from VB in ADO

From: tojo <Tojo_at_hotmail.com>
Date: Fri, 19 Sep 2003 15:04:18 +0200
Message-ID: <MPG.19d51d39466e97e79896ae_at_news.t-online.de>


In article <moCab.22391$zL3.253860_at_wagner.videotron.net>, michelr_at_hydro.qc.ca says...
> Hello,
>
> I'm trying to call an Oracle stored procedure from a VBA module in ADO
> through an ODBC connection. My procedure just inserts a record based on the
> 2 parameters. Here's the code:
>
> Private Sub InsertNew()
> Dim objDB As ADODB.Connection
> Dim objcmd As ADODB.Command
> Dim RS As ADODB.Recordset
> Dim prm1 As ADODB.Parameter
> Dim prm2 As ADODB.Parameter
>
> Set objDB = New ADODB.Connection
> Set objcmd = New ADODB.Command
> Set RS = New ADODB.Recordset
>
> objDB.Open "Data Source=ODBC_GDAI; User Id=LUORA1A; Password=LUORA1A;"
> objcmd.ActiveConnection = objDB
> objcmd.CommandType = adCmdStoredProc
> objcmd.CommandText = "Put_JSC" 'the name of my proc
>
> Set prm1 = objcmd.CreateParameter("p_code", adVarChar, adParamInput, 20,
> "7")
> objcmd.Parameters.Append prm1
> Set prm2 = objcmd.CreateParameter("p_desc", adVarChar, adParamInput, 32,
> "Bidon")
> objcmd.Parameters.Append prm2
>
> Set RS = objcmd.Execute
>
> Set RS = Nothing
> Set objcmd = Nothing
> Set prm1 = Nothing
> Set prm2 = Nothing
> Set objDB = Nothing
> End Sub
>
> This should work, according to what I saw all over the web, but it does not.
> I get this message: ODBC driver does not support the requested properties.
>
> I tried various other methods of calling a procedure with parameters but
> with no luck. I need help! Thank you all!
>
> Michel R.

If you're just executing a stored proc, there's no Recordset to return. It should just be:

  objcmd.Execute

And You're Done(tm)

BTW, if you're just staring out with ODBC, might I suggest you look into Oracle's own OO4O, before you go any further. ODBC for Oracle really does suck.

  • Tom
Received on Fri Sep 19 2003 - 15:04:18 CEST

Original text of this message