Oracle Objekttypen werden in VBA oder Visual Basic für Applikationen- Injektionen, um funktionelle Anwendungen , wie z. B. Kunden und Bestellungen zu erstellen , als Datenbank-Objekte . Die Objekttypen von Oracle sind flexibler, weil sie mit komplexen Daten , wie Audio , Bilder und Videos arbeiten können. Ihr VBA-Projekt mit Oracle integriert ist nun auch kompatibel mit Java , PHP, SQL und PL /SQL , weil Oracle Objekte alle von diesen Programmiersprachen und Datenbank-Plattformen unterstützt werden. Anleitung
1

herunterladen und installieren Sie die Microsoft Data Access Components , wenn Sie Visual Basic 5.0 sind . Um Oracle mit VBA , zwei ActiveX Data Objects , ADO oder herstellen, werden Elemente benötigt - eine Tabelle ( adooracle ) und eine gespeicherte Prozedur ( adoinsert )
2

Geben Sie den folgenden Code , um Ihre Daten zu erstellen. Tabelle namens " adooracle : "

CREATE TABLE adooracle (

item_number NUMBER ( 3) PRIMARY KEY,

depot_number NUMBER ( 3) );

3

Fügen Sie den folgenden Code, um die Oracle -Prozedur aufgerufen schaffen " adoinsert . " Dieses Verfahren wird Extrahieren von Daten aus dem " adooracle " Tisch.

CREATE OR REPLACE PROCEDURE adoinsert (

insnum an der Zahl, OUTNUM OUT NUMBER) TCM- < p > BEGIN

INSERT INTO adooracle

( Immobielen numer , Depot_Number )

VALUES

( insnum , 16);

OUTNUM : = insnum /2;

END;

/
4

Öffnen Sie ein neues Projekt in Visual Basic und fügen Sie eine "Referenz" auf die Microsoft ActiveX Data Objects -Bibliothek zu Umsetzung Ihrer Oracle-Prozedur . Geben Sie die folgenden Steuerelemente auf dem Formular :

Steuerung - Button, Button , Textfeld, Bezeichnung

Name - cmdCheck , cmdSend , txtInput , lblInput

Text /Caption - Überprüfen Sie , Senden, Wählen Sie Eingabe
5

"Optionen" aus dem Menü Extras , klicken Sie auf den "Default Volle Module View" -Option und klicken Sie dann auf "OK". So können Sie sehen alle Ihre Projekt-Code . Fügen Sie den Code unten in die Code-Fenster zu Ihrer Oracle- Projekt auszuführen.

Option Explicit Dim Cn

Wie ADODB.Connection

Dim CPw1 Wie ADODB.Command
< p> Dim CPw2 Wie ADODB.Command

Dim rs As ADODB.Recordset

Dim Conn As String Dim

QSQL As String private Sub

cmdCheck_Click ( )

CPw1 (0) = Val ( txtInput.Text )

Set Rs = CPw1.Execute

MsgBox " Immobielen numer =" & Rs (0) & " . Depot_Number = "& Rs (1 ) &" . "

rs.Close

End Sub private Sub

cmdSend_Click ()

CPw2 (0) = Val ( txtInput.Text )

CPw2.Execute

MsgBox "Return Wert von gespeicherten Prozedur ist" & CPw2 (1 ) & " . "

End Sub