Re: URGENT....Need help on VB to ORACLE

From: Matthias Gresz <GreMa_at_t-online.de>
Date: 1997/10/10
Message-ID: <61kl0n$ikh$1@news00.btx.dtag.de>#1/1

Satish S.Narasimha wrote:
>
> Hello,
>
> Can anybody help me how to call the stored procedure which is in
> Oracle from Visual Basic....
>
> Any help or comments are welcome and awaiting reply ASAP....
>
> from
> satish : somasatish_at_hotmail.com
> somasatish_at_rocketmail.com

Hi,

remember that you can't have sp's that return rows!

So an example we use and which may help you:

Oracle-package:

CREATE PACKAGE DIREKTIONSVERWALTUNG IS
    Procedure NEUEDIREKTION(DIRNAME VARCHAR2, ORTSNUMMER VARCHAR2);     Procedure DIREKTIONAENDERN(DIRNUMMER NUMBER,DIRNAME VARCHAR2, ORTSNUMMER VARCHAR2);
    Procedure DIREKTIONLOESCHEN(DIRNUMMER NUMBER);     Procedure NEUEREGION(REGNAME VARCHAR2, DIRNUMMER NUMBER);     Procedure REGIONAENDERN(REGNUMMER NUMBER,REGNAME VARCHAR2, DIRNUMMER NUMBER);
    Procedure REGIONLOESCHEN(REGNUMMER NUMBER); End DIREKTIONSVERWALTUNG;

Example of alling a sp (VB3):

Function fDatenAnfuegen () As Integer
'Speichert die Daten für einen neue Direktion

Dim szLclSQL As String

    Call Disable(Me) 'Disabels Form
On Error GoTo DatenAnfuegenFehler     

    szLclSQL = "Begin DIREKTIONSVERWALTUNG.NEUEREGION("
    szLclSQL = szLclSQL & "'" & Trim$(sitxtRegion) & "'"	'Oracle string
    szLclSQL = szLclSQL & ","
    szLclSQL = szLclSQL & Trim$(szModDirektionsnummer)		'oracle number
    szLclSQL = szLclSQL & "); END;"
    fDatenAnfügen = (dbGblMAkler.ExecuteSQL(szLclSQL) > 0)	'return value

= rows affected

    On Error GoTo 0
    Call Enable(Me) 'Enables Form
    Exit Function

DatenAnfuegenFehler:

    MsgBox Error, MB_FEHLER, Str$(Err)
    fDatenAnfügen = False
    On Error GoTo 0
    Call Enable(Me) 'Enables Form
    Exit Function
End Function

-- 
Regards

M.Gresz    :-)

Received on Fri Oct 10 1997 - 00:00:00 CDT