Ako vložiť Oracle v jazyku VBA

typy Oracle objektov sú injekčne do VBA , alebo Visual Basic for Applications , vytvoriť funkčné aplikácie , ako sú zákazníci a objednávok , napríklad databázové objekty . Medzi typy objektov od spoločnosti Oracle sú viac flexibilné , pretože môžu pracovať s komplexnými dátami , ako je audio , obrázky a videá . Váš projekt VBA integrovaný s Oracle je teraz tiež kompatibilný s Java , PHP , SQL a PL /SQL , pretože objekty Oracle sú podporované týmito programovacích jazykov a databázových platforiem . Návod dovolená 1

stiahnuť a nainštalovať Microsoft Data Access Components , ak používate Visual Basic 5.0 . Ak chcete pripojiť Oracle s VBA , dvoma ActiveX Data Objects , alebo ADO , je nutné prvky - tabuľky ( adooracle ) a uložené procedúry ( adoinsert )
2

Zadajte nasledujúci kód pre vytvorenie dát . tabuľka s názvom " adooracle : "

CREATE TABLE adooracle (

item_number číslo ( 3 ) PRIMARY KEY ,

depot_number čÍSLO ( 3 ) ) ;

3

Vložte nasledujúci kód na vytvorenie Oracle procedúru s názvom " adoinsert . " Tento postup sa bude extrahovať dáta z " adooracle " tabuľky .

CREATE OR REPLACE PROCEDURE adoinsert (

insnum v čísle , outnum OUT číslo )

IS

BEGIN

INSERT INTO adooracle

( Item_Number , Depot_Number )

VALUES

( insnum , 16 ) ;

outnum : = insnum /2 ;

END ;

/
4

Otvorte nový projekt v jazyku Visual Basic a pridať " Referencie " na Microsoft ActiveX Data Objects knižnice implementovať procedúru Oracle . Zadajte nasledujúce ovládacie prvky na formulári :

Control - Button , Button , Textové pole , štítok

Názov - cmdCheck , cmdSend , txtInput , lblInput

Text /Caption - Skontrolujte , Odoslať , Vstup
5

Zvoľte " Možnosti " v ponuke Nástroje , kliknite na možnosť " Predvolené Full Module View " a potom kliknite na tlačidlo " OK " . To vám umožní zobraziť všetky svoje kódu projektu . Vložte kód nižšie do okna kódu pre spustenie projektu Oracle .

Option Explicit

Dim KN ako ADODB.Connection

Dim CPw1 Ako ADODB.Command

Dim CPw2 Ako ADODB.Command

Dim R Ako ADODB.Recordset

Dim Conn As String Dim

QSQL As String

Private Sub cmdCheck_Click ( )

CPw1 ( 0 ) = Val ( txtInput.Text )

Set rs = CPw1.Execute

MsgBox " Item_Number = " & R ( 0 ) & " . Depot_Number = " & R ( 1 ) & " . "

rs.Close

End Sub

Private Sub cmdSend_Click ( )

CPw2 ( 0 ) = val ( txtInput.Text )

CPw2.Execute

MsgBox " Návratová hodnota z uloženej procedúry je " & CPw2 ( 1 ) & " . "

End Sub

Private Sub Form_Load ( )

" Budete musieť nahradiť " * " s príslušnými hodnotami

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

& " SERVER = ***** , "

Set Cn = New ADODB.Connection

S Cn

. ConnectionString = Conn

. CursorLocation = adUseClient

. Otvoriť

End With

QSQL = " Vyberte Item_Number , Depot_Number Od adooracle kde " _

& " item_number = ? "

Set CPw1 = New ADODB.Command

S CPw1

. ActiveConnection = Cn

. CommandText = QSQL

. CommandType = adCmdText

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

End With

QSQL = " adoinsert "

Set CPw2 = New ADODB.Command

S CPw2

. ActiveConnection = Cn

. CommandText = QSQL

. CommandType = adCmdStoredProc

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

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

Koniec S

End Sub

Private Sub Form_Unload ( Cancel As Integer ) klipart

cn.Close klipart

Set cn = Nothing

Nastaviť CPw1 = Nothing

Set CPw2 = Nothing

End Sub

• Predchádzajúca strana: Ako si vyrobiť Matrix Logic graf 
• Ďalšia strana: Ako používať alias v klauzule WHERE