ActiveX-Server für PL/SQL-Packages

Man kann die ursprüngliche, leere Datei Class1.cls entfernen, die neue EMPSVC.cls auf MultiUse=Yes setzen, den Projektnamen auf den gewünschten Typ von Bibliotheksnamen ändern (EmpSvcLib) und dann die DLL erstellen. Wenn man ein neues Visual Basic-Projekt anlegt, sieht man EmpSvcLib.EMPSVC in der Liste der zur Verfügung stehenden Objekte. Diese kann man referenzieren und eine Variable damit deklarieren, so dass man GET_COUNT und GIVE_RAISE von dieser Variablen aus aufrufen kann. Falls man von C++ darauf zugreifen will, kann man die IDL mithilfe des OLE Viewers von Visual Studio erzeugen, diese zum Projekt hinzufügen und Visual Studio Proxy-Code erstellen lassen, um auf den Datenbankcode zuzugreifen.

Listing C zeigt die IDL-Datei für den obigen Code, wie sie der OLE Viewer erstellt:

Listing C
<br /> // Generated .IDL file (by the OLE/COM Object Viewer)<br /> //<br /> // typelib filename: EmpSvcLib.dll<br /> [<br /> uuid(E137CE00-3C0B-497D-976C-C3235FF3C603),<br /> version(1.0),<br /> custom(50867B00-BB69-11D0-A8FF-00A0C9110059, 8169)<br /> ]<br /> library EmpSvcLib<br /> {<br /> // TLib : Oracle InProc Server 4.0 Type Library : {F2D4ED20-FFD3-101A-ADF2<br /> -04021C007002}<br /> importlib(„oip9.tlb“);<br /> // TLib : OLE Automation : {00020430-0000-0000-C000-000000000046}<br /> importlib(„stdole2.tlb“);<br /> // Forward declare all types defined in this typelib<br /> interface _EMPSVC;<br /> [<br /> odl,<br /> uuid(BEFCB5F1-C9FE-4FCE-B18A-102E51CD8D2A),<br /> version(1.0),<br /> hidden,<br /> dual,<br /> nonextensible,<br /> oleautomation<br /> ]<br /> interface _EMPSVC : IDispatch {<br /> [id(0x68030000), propput]<br /> HRESULT database([in] OraDatabase* rhs);<br /> [id(0x60030001)]<br /> HRESULT GET_COUNT([out, retval] VARIANT* );<br /> [id(0x60030002)]<br /> HRESULT GIVE_RAISE(<br /> [in, out] VARIANT* EMPNO,<br /> [in, out] VARIANT* AMOUNT);<br /> };<br /> [<br /> uuid(B1E44C55-EC55-473B-9235-AC7BFA79F30E),<br /> version(1.0)<br /> ]<br /> coclass EMPSVC {<br /> [default] interface _EMPSVC;<br /> };<br /> };<br />

Falls man sich dazu entschließen sollte, die Datenbanklogik zu ändern, um unsinnige Anfragen zu vermeiden (zum Beispiel die Angabe eines negativen Gehalts), oder wenn man Grenzwerte für Gehaltserhöhungen angeben will, dann ändert man einfach das PL/SQL-Package, solange sich die Signaturen von Funktionen und Prozeduren nicht ändern. Sollte dies der Fall sein, ruft man einfach den Assistenten erneut auf, um eine aktuelle Version zu erzeugen.

Wenn man nicht mit OO4O arbeiten möchte, kann man ebenso leicht ähnlichen Visual Basic-Code für ADO, OLE DB oder andere Datenbankarchitekturen erzeugen, indem man die Funktions- und Prozedurdefinitionen aus der Tabelle USER_ARGUMENTS abfragt.