Oracle FAQ | Your Portal to the Oracle Knowledge Grid |
![]() |
![]() |
Home -> Community -> Usenet -> c.d.o.server -> Re: Vb calling Oracle db procedures
We have the same problem using Oracle with an access 2.0 front end, the
standard Oracle ODBC drivers will not reutrn any data. Somebody
suggested to me that the INTERSOLV Oracle ODBC drivers will return a
result set, I have not got the drivers so have not tried it.
In article <70v2er$i76$1_at_reader3.wxs.nl>, B. Hotting <bhotting_at_wxs.nl>
writes
>The only way i got oracle to return a record set to VB was using the OO4O
>(Ole Objects for Oracle).
>You can find sample code at the oracle site (free register).
>//technet.oracle.com
>I think you need vb6 enterprice if you want ado to do the same.
>
>Bjorn Hotting
>
>
>Hugh Pendry heeft geschreven in bericht
><70k8a8$jqg$1_at_trinitech.demon.co.uk>...
>>Hi chris
>>
>>I am having a similar problem calling an oracle stored function from vb to
>>return a result set.
>>
>>The syntax for calling a stored function is:-
>>
>>Private Sub Command1_Click()
>>Dim db As New rdoConnection
>>Dim qd As rdoQuery
>>Dim sql As String
>>
>> db.Connect = "DSN=myDSN"
>> db.EstablishConnection
>>
>> sql = "{ ? = Call optionalPackageName.funcName(?, ?, ?) }"
>>
>> Set qd = db.CreateQuery("myQry", sql)
>>
>> qd.rdoParameters(0).Direction = rdParamReturnValue
>> qd(1) = "Val1"
>> qd(2) = 2
>> qd(3) = 10.738
>> qd.Execute
>> Debug.Print "Result is: " & CStr(qd(0))
>>End Sub
>>
>>If you have any luck with an oracle stored function returning a result set
>>please let me know.
>>
>>thanks
>>hugh
>>
>>
>>Chris Powell wrote in message <362AD2AC.D1767459_at_helix.com.au>...
>>>Help....
>>>
>>>We have developed a new applicvation in VB and wish to call
>>>some
>>>database procedures, passing some variables. and returning
>>>others.
>>>
>>>I need to know the correct syntax to run an Oracle 7.3.2 db
>>>procedure
>>>from Visual Basic 6.
>>>At present we are having no luck running the procedures!
>>>
>>>Any help would be greatly appreciated.
>>>
>>>Thanks in Advance.
>>>
>>>Chris
>>>
>>
>>
>
>
--
Marc Davison
Received on Sun Oct 25 1998 - 07:23:26 CST
![]() |
![]() |