types d'objets Oracle sont injectable dans VBA ou Visual Basic pour applications, pour créer des applications fonctionnelles, telles que les clients et les bons de commande , comme des objets de base de données . Les types d'objets à partir d'Oracle sont plus flexibles , car ils peuvent travailler avec des données complexes, telles que l'audio , images et vidéo . Votre projet VBA intégré avec Oracle est désormais également compatible avec Java , PHP , SQL et PL /SQL Oracle parce que les objets sont tous supportés par ces langages de programmation et plates-formes de bases de données . Instructions
1

Télécharger et installer les composants Microsoft Data Access si vous utilisez Visual Basic 5.0. Pour vous connecter Oracle avec VBA, deux ActiveX Data Objects , ou ADO, éléments sont nécessaires - une table ( adooracle ) et une procédure stockée ( adoinsert )
2

Entrez le code suivant pour créer vos données. table appelée " adooracle : "

CREATE TABLE adooracle (produits

NUMÉRO item_number (3) PRIMARY KEY , AB

NUMÉRO depot_number (3) ) ;

3

Insérez le code suivant pour créer la procédure Oracle appelé " adoinsert . " Cette procédure permettra d'extraire des données de la table " adooracle " .

CREATE OR REPLACE PROCEDURE adoinsert (produits

insnum en nombre, outnum Out numéro )

< p > BEGIN

INSERT INTO adooracle

( item_number , Depot_Number )

VALEURS

( insnum , 16) ;

outnum : = insnum /2;

END;

/
4

Ouvrez un nouveau projet dans Visual Basic et ajoutez une "référence" à la bibliothèque Microsoft ActiveX Data Objects pour mettre en œuvre votre procédure Oracle. Entrez les commandes suivantes sur le formulaire:

contrôle - Button, Button, Zone de texte , Étiquette

Nom - cmdCheck , cmdSend , txtInput , lblInput

texte /Caption - Vérifier , Envoyer, entrée
5

Choisissez "Options" dans le menu Outils , cliquez sur l'option "Par défaut complet Module Affichage" puis cliquez sur "OK". Cela vous permettra de visualiser l'ensemble de votre code de projet . Collez le code ci-dessous dans votre fenêtre de code pour exécuter votre projet Oracle.

Option Explicit

Cn As ADODB.Connection

CPw1 As ADODB.Command
< p > Dim CPw2 Comme ADODB.Command

Dim Rs Comme ADODB.Recordset

Conn Dim As String

QSQL Dim As String

Private Sub cmdCheck_Click ( )

CPw1 (0) = Val ( txtInput.Text )

Set Rs = CPw1.Execute

MsgBox " item_number =" & Rs (0) & ". Depot_Number = "& Rs (1) &". "

rs.Close

End Sub Private Sub

cmdSend_Click ()

CPw2 (0) = Val ( txtInput.Text )

CPw2.Execute

MsgBox " valeur de retour de la procédure stockée est" & CPw2 (1) & "."

End Sub

Private Sub Form_Load ( )

«Vous devrez remplacer le" * " avec les valeurs appropriées

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

et " server = ***** ; "

Set Cn = New ADODB.Connection

avec Cn

. ConnectionString = Conn

. CursorLocation = adUseClient

. Open

End With

QSQL = "Select item_number , Depot_Number De adooracle où " _

&" item_number =? "

Set CPw1 = New ADODB.Command

CPw1

. ActiveConnection = Cn

. CommandText = QSQL

. CommandType = adCmdText

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

End With
< p > QSQL = " adoinsert "

Set CPw2 = New ADODB.Command

CPw2

. ActiveConnection = Cn

. CommandText = QSQL

. CommandType = adCmdStoredProc

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

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

Fin avec

End Sub Sub

Form_Unload privé ( Cancel As Integer )

cn.Close

Set Cn = Nothing Set

CPw1 = Nothing Set

CPw2 = Nothing End Sub