|
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 )
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
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
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
|
