Download 1 en installeer de Microsoft Data Access Components indien u gebruik maakt van Visual Basic 5.0 . Naar Oracle verbinden met VBA , twee ActiveX Data Objects , of ADO , zijn elementen die nodig zijn - een tafel ( adooracle ) en een opgeslagen procedure ( adoinsert )

Voer de volgende code om uw gegevens te maken 2 . tabel met de naam " adooracle : "

CREATE TABLE adooracle (

item_number NUMBER
( 3 ) primaire sleutel ,

depot_number NUMMER
( 3 ) ) ;
< br > 3

Voeg de volgende code aan de Oracle- procedure genaamd creëren " adoinsert . " Deze procedure zal de gegevens van de " adooracle " tafel halen .

CREATE OR REPLACE PROCEDURE adoinsert (

insnum
IN AANTAL , outnum OUT NUMMER ) op Twitter

IS

BEGIN

INSERT INTO
adooracle

( item_number , Depot_Number ) WAARDEN

( insnum , 16 ) ;

outnum
: = insnum /2 ;

END
;

/
4

Open een nieuw project in Visual Basic en voeg een " Verwijzing " naar het Microsoft ActiveX data Objects bibliotheek uw Oracle- procedure te implementeren . Voer de volgende controles op het formulier :

Controle
- Button , Button , Tekstvak , Label

Naam
- cmdCheck , cmdSend , txtInput , lblInput

Tekst /Caption
- Controleer , Verzenden , Input
5

Kies " Opties" in het menu Extra , klikt u op de "Module Standaard Full View " optie en klik op " OK . " Dit zal u laten al uw project code bekijken . Plak de code hieronder in uw venster code om uw Oracle project uit te voeren .

Option Explicit Dim

Cn
Zoals ADODB.Connection

Dim CPw1
Zoals ADODB.Command

Dim CPw2 Zoals ADODB.Command

Dim Rs
Zoals ADODB.Recordset

Dim Conn
als Koord

Dim QSQL
als Koord

Private Sub cmdCheck_Click ( ) op

CPw1 ( 0 ) = Val ( txtInput.Text ) op

Set Rs = CPw1.Execute

MsgBox " item_number = "
& R's ( 0 ) & " . Depot_Number = " & R's ( 1 ) & " . "

RS.Close

End Sub

Private Sub cmdSend_Click
( ) op

CPw2 ( 0 ) = Val ( txtInput.Text )

CPw2.Execute

MsgBox
" Return waarde van opgeslagen procedure is " & CPw2 ( 1 ) & " . "

End Sub

Private Sub Form_Load ( ) op

' U moet de " * " te vervangen door de juiste waarden

Conn = " UID = *****
; . PWD = ** ** ; DRIVER = { Microsoft ODBC voor Oracle } ; " _

& " SERVER = ***** ; "

Set
Cn = Nieuwe ADODB.Connection

met Cn

. ConnectionString = Conn

. CursorLocation = adUseClient

. Open

Einde
met

QSQL = " Select item_number
, Depot_Number Van adooracle Waar " _

& " item_number = ? '

Set
CPw1 = Nieuwe ADODB.Command

Met CPw1

. ActiveConnection = Cn < br >

. CommandText = QSQL

. CommandType = adCmdText

. Parameters.Append . CreateParameter ( , adInteger , adParamInput )

End met

QSQL = " adoinsert "

Set
CPw2 = Nieuwe ADODB.Command

Met CPw2

. ActiveConnection = Cn

. CommandText = QSQL

. = adCmdStoredProc

. Parameters.Append . CreateParameter ( , adInteger , adParamInput ) op Twitter

. Parameters.Append . CreateParameter ( , adDouble , adParamOutput )

End of CommandType met

End Sub

Private Sub Form_Unload
( Cancel As Integer )

Cn.Close

Set Cn = Nothing

Set CPw1 = niets

Set
CPw2 = Nothing

End Sub