为PL/SQL包创建ActiveX服务的一些方法
2007-11-11 09:09:58 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻鐔兼⒒鐎靛壊妲紒鐐劤缂嶅﹪寮婚悢鍏尖拻閻庨潧澹婂Σ顔剧磼閻愵剙鍔ょ紓宥咃躬瀵鎮㈤崗灏栨嫽闁诲酣娼ф竟濠偽i鍓х<闁绘劦鍓欓崝銈囩磽瀹ュ拑韬€殿喖顭烽幃銏ゅ礂鐏忔牗瀚介梺璇查叄濞佳勭珶婵犲伣锝夘敊閸撗咃紲闂佺粯鍔﹂崜娆撳礉閵堝洨纾界€广儱鎷戦煬顒傗偓娈垮枛椤兘骞冮姀銈呯閻忓繑鐗楃€氫粙姊虹拠鏌ュ弰婵炰匠鍕彾濠电姴浼i敐澶樻晩闁告挆鍜冪床闂備胶绮崝锕傚礈濞嗘挸绀夐柕鍫濇川绾剧晫鈧箍鍎遍幏鎴︾叕椤掑倵鍋撳▓鍨灈妞ゎ厾鍏橀獮鍐閵堝懐顦ч柣蹇撶箲閻楁鈧矮绮欏铏规嫚閺屻儱寮板┑鐐板尃閸曨厾褰炬繝鐢靛Т娴硷綁鏁愭径妯绘櫓闂佸憡鎸嗛崪鍐簥闂傚倷娴囬鏍垂鎼淬劌绀冮柨婵嗘閻﹂亶姊婚崒娆掑厡妞ゃ垹锕ら埢宥夊即閵忕姷顔夐梺鎼炲労閸撴瑩鎮橀幎鑺ョ厸闁告劑鍔庢晶鏇犵磼閳ь剟宕橀埞澶哥盎闂婎偄娲ゅù鐑剿囬敃鈧湁婵犲﹤鐗忛悾娲煛鐏炶濡奸柍瑙勫灴瀹曞崬鈻庤箛鎾寸槗缂傚倸鍊烽梽宥夊礉鎼达絽鍨濇い鏍仜妗呴梺鍛婃处閸ㄦ壆绮婚幎鑺ュ€甸柨婵嗙凹缁ㄨ棄霉閻樿崵鐣烘慨濠冩そ濡啫鈽夊▎鎰€烽梺璇插閻噣宕¢幎鑺ュ仒妞ゆ洍鍋撶€规洖鐖奸、妤佸緞鐎n偅鐝┑鐘愁問閸n垳寰婇崜褉鍋撶粭娑樻搐缁犳煡鏌涢妷顔煎闁藉啰鍠栭弻锝夊棘閹稿孩鍠愰梺鑽ゅ枎缂嶅﹪寮诲☉鈶┾偓锕傚箣濠靛洨浜俊鐐€ら崜娆撴偋閸℃稈鈧棃宕橀鍢壯囧箹缁厜鍋撻懠顒€鍤紓鍌氬€风欢锟犲窗濡ゅ懎绠伴柟闂寸劍閸嬧晠鏌i幋锝嗩棄缁绢厸鍋撻梻浣虹帛閸旀洜绮旈棃娴虫盯宕橀鍏兼К闂侀€炲苯澧柕鍥у楠炴帡骞嬪┑鎰磻闁诲氦顫夐幐椋庣矆娓氣偓閸╃偤骞嬮敂钘変汗闂佸湱绮敮鈺傚閳ь剛绱撴担鐟板姢鐟滄壆鍋熼崚鎺戔枎閹惧疇鎽曞┑鐐村灦閻喖鈻介鍫熺厵閻熸瑥瀚慨鍥ㄣ亜閵夛妇绠炴慨濠冩そ閺屽懘鎮欓懠璺侯伃婵犫拃鍌氬祮闁哄瞼鍠栭幖褰掝敃閿濆懐锛撻梻浣瑰缁诲嫰宕戝☉銏犵厴闁瑰濮崑鎾绘晲鎼存ê浜炬い鎾寸⊕濞呭﹪鏌$仦鐣屝f繛纰变邯楠炲繒浠﹂挊澶婅厫闂傚倷鐒﹂惇褰掑磹閺囥垹绠犻柟閭﹀枟椤洟鏌熼幆褏鎽犲┑顖涙尦閺屾盯骞橀弶鎴犵シ闂佸憡鎸稿畷顒勨€旈崘顔嘉ч柛鈩冾殘娴犳悂姊洪懡銈呮毐闁哄懏鐩幃楣冩倻閽樺)銊ф喐婢舵劕纾婚柟鍓х帛閺呮煡骞栫划鐟板⒉闁诲繐绉瑰铏圭磼濡闉嶅┑鐐插级閿曘垺淇婇悽绋跨妞ゆ牗姘ㄩ悿鈧梻鍌氬€搁悧濠勭矙閹邦喛濮抽柤娴嬫櫇绾捐棄霉閿濆牊顥夐柣鎾村姈閹便劌螣缁嬪灝顬嬪┑鈥冲级閸旀瑩鐛Ο鍏煎珰闁肩⒈鍓﹀Σ浼存⒒娴gǹ鏆遍柟纰卞亰瀹曟劖绻濆В绋挎喘瀵埖鎯旈幘瀛樻澑婵$偑鍊栧濠氬Υ鐎n亶鍟呴柕澶涜礋娴滄粍銇勯幘璺轰粶婵℃彃顭烽弻锝夋晲閸パ冨箣濡ょ姷鍋炵敮锟犵嵁鐎n喖绫嶉柍褜鍓熼幃妤佺節濮橆厸鎷洪柣鐔哥懃鐎氼參宕曞Δ鍛厱婵☆垵銆€閸嬫捇鎮㈤幓鎺戠阀濠电姷鏁告慨鐑藉极閸涘﹥鍙忛柣鎴f閺嬩線鏌涘☉姗堟敾闁告瑥绻戦妵鍕箻閸楃偟浠肩紒鐐劤椤兘寮婚悢鐓庣鐟滃繒鏁☉銏$厓闂佸灝顑呴悘锕傛煏閸パ冾伃妤犵偞甯″畷鍗烆渻閹屾缂傚倸鍊搁崐椋庣矆娓氣偓钘濋梺顒€绉撮弸浣糕攽閻樿櫕鐨戠€规挷绶氶弻娑㈠焺閸愵亖濮囬梺绋匡功閸忔﹢寮诲☉妯锋斀闁糕剝顨忔导鈧俊鐐€栧褰掑礉閺囥垹鐓橀柟杈鹃檮閸婂鏌涢妷銏℃珖閺嶏繝姊绘担鍛婂暈闁圭ǹ顭烽幃鐑芥晜閻e备鏀虫繝鐢靛Т濞诧箓宕甸崘顔界厓闁告繂瀚弳鐔兼煥濞戞瑧鐭掓慨濠囩細閵囨劙骞掗幋婊冩瀳闂備礁鎲¢悷銉︻殽閹间礁鐓濋柟鐐灱閸亪鏌涢銈呮灁闁告ɑ鎮傞弻锝堢疀閺囩偘鎴风紒缁㈠幖閻栫厧鐣烽幋锕€绠婚悹鍥皺閻も偓濠电偠鎻徊浠嬪箟閿熺姴纾规い鏍仦閳锋垹鐥鐐村櫣濞存粌缍婇幃璺衡槈閺嵮冨Е闂佺硶鏂侀崑鎾愁渻閵堝棗绗掗柛鐕佸亰閹啫煤椤忓懐鍘告繛杈剧到濠€杈ㄦ櫠椤忓牊鐓冮悷娆忓閻忔挳鏌熼鐣屾噰鐎殿喖鐖奸獮瀣偐鏉堫煈鏁囬梻鍌氬€风粈浣革耿鏉堛劎浠氶梻浣侯攰婵倗鍒掓惔銊ョ闁圭儤顨呯猾宥夋煕椤愩倕鏋庡ù鐘烘缁辨挻鎷呴崜鎻掑壍濡炪倖娲樻繛濠囧极閸愵喖纾兼繛鎴炶壘楠炲牓姊绘担鍛婃儓婵炲眰鍨藉畷婵嗙暆閸曨剙鈧爼鏌eΟ鑲╁笡闁绘挻娲熼弻鐔兼嚋椤掆偓婵$厧霉濠婂嫬鍔ら柍瑙勫灴閺佸秹宕熼鈩冩線闂備胶枪閿曘儵鎮ч悩鑼殾婵犻潧顑嗛弲婵嬫煃瑜滈崜鐔煎灳閿曞倸閿ゆ俊銈傚亾闁绘帒鐏氶妵鍕箳瀹ュ牆鍘$紓浣哄Т婢т粙鍩€椤掆偓閸樻粓宕戦幘鏂ユ斀闁绘ǹ浜粣鏃堟煕鐎n偒娈旈柍瑙勫灴椤㈡瑧娑甸悜鐣屽弽婵犵數鍋涢幏鎴犲緤閸啣锝夊箛閺夎法顔婇梺鐟板暱绾绢參宕伴幘璇茬闁绘ḿ绮崵鎴︽煠缁嬭法浠涙慨锝嗗姍濮婂宕掑顑藉亾閻戣姤鍤勯柤鍝ユ暩娴犳碍绻濋悽闈涗粶妞ゆ洦鍙冨畷妤€螣娓氼垰娈ㄥ銈嗗姂閸婃牜鈧碍姘ㄩ埀顒傛嚀婢瑰﹪宕伴弽褉鏋旈柕濠忓缁♀偓闂佹眹鍨藉ḿ褎鐗庣紓浣哄亾濠㈡ḿ绮旈悷閭﹀殨闁哄被鍎辩粻鐢告煙閻戞ḿ绠橀柛鐐垫暬閺岋綁鎮╅悜姗嗕哗闁诲繐绻堥崝宀勵敊韫囨稑唯鐟滃宕戦幘鑸靛枂闁告洦鍓欑喊宥呪攽閳藉棗浜濈紒璇插€块敐鐐剁疀濞戞瑦鍎梺闈╁瘜閸橀箖鏁嶅⿰鍐f斀闁宠棄妫楅悘鐘绘煙绾板崬浜伴柨婵堝仜椤撳ジ宕堕埡鍐跨闯濠电偠鎻紞渚€藟閹捐绀夌€广儱顦伴悡娆戠磼鐎n亞浠㈤柡鍡涗憾閺岋綁鏁愰崶褍骞嬪Δ鐘靛仜椤戝寮崘顔肩劦妞ゆ帒鍊绘稉宥呪攽閻樺磭顣查柛瀣剁秮閺屾盯濡烽幋婵嗘殶濡ょ姴娲幃妤冩喆閸曨剙纰嶇紓浣割槹閹告娊鍨鹃弮鍫濈妞ゆ柨妲堣閺屾盯鍩勯崗鐙€浜Λ鍕吋閸モ晝锛濇繛杈剧到婢瑰﹪宕曢幇鐗堢厱闁靛ǹ鍎遍。宕囩磼椤旂⒈鍎忔い鎾冲悑瀵板嫮鈧綆浜栭崑鎾绘煥鐎c劋绨婚梺鐟版惈缁夊爼藝閿旈敮鍋撳▓鍨灈闁诲繑绻堥崺鐐哄箣閿曗偓閻擄繝鏌涢埄鍐炬畼濞寸媭鍨跺娲川婵犲海鍔堕梺鍛婃处閸欏骸煤閸涘﹣绻嗛柕鍫濈箳閸掍即鏌涢悤浣哥仸鐎规洘鍔欏畷褰掝敃閿濆懎浼庢繝纰樻閸ㄦ娊宕㈣缁傚秵銈i崘鈺佲偓鍨叏濡厧浜鹃悗姘炬嫹

核心提示:调整数据库应用程序的一个经验方法是“80%应用程序,20%数据库”,为PL/SQL包创建ActiveX服务的一些方法,意思是说,平均来说,如果你不想使用OO4O,生成用于 ADO、OLE DB 或其它数据库架构的 Visual Basic 代码也相当简单,开发人员可以通过修改数据库参数调整20%的性能问题,通过调整应用
调整数据库应用程序的一个经验方法是“80%应用程序,20%数据库”。意思是说,平均来说,开发人员可以通过修改数据库参数调整20%的性能问题,通过调整应用程序设计和逻辑调节80%的性能问题。
然而,开发人员首先想到的是按照手册上的例子开始将数据库逻辑直接编码到他们的代码中。这种做法会带来很高的维护成本;对数据库逻辑的一处变动或者切换到一个不同的数据库驱动就可能需要很多个钟头在代码中修正它。从源代码调试器外分析性能也变得比较困难。
一个比较好的方法是数据库服务器看成是一个真正的服务器――这个服务器提供完全与代码逻辑分离的一组业务逻辑服务。这样就允许在附加代码之前在代码外部测试和维护这些服务。应用程序永远都不应该知道有这样一个东西,比如一个 EMP 表,只有这样才会有某些类型的接口可以被访问,从而“找出有多少职员”和“给特定的职员加工资”。在32位 Windows 中,为编程语言提供通用接口的主要方法是通过 ActiveX 服务器或 COM 服务器。有一些 DLL 或可执行文件为很多编程环境提供一个接口和一些服务。编写 ActiveX 组件通常是一个使人畏缩的任务,而且在数据库接口变化时,该任务可能需要持续的维护。
对于 Visual Basic 6.0 程序员来说,Oracle(大型网站数据库平台) Objects for OLE Code Wizard for Visual Basic 能够使这一任务更加简单。使用这个向导,你可以为开发人员创建一个 ActiveX 组件将数据库代码包装起来――从而不用编写很多Visual Basic 代码。
如果在安装 Oracle(大型网站数据库平台) 数据库之前已经安装了 Visual Basic,那么你会发现在 Add-Ins 菜单选项中多了一个向导。如果你是安装 Oracle(大型网站数据库平台) 数据库之后才安装的 Visual Basic,那么你需要注册 Code Wizard DLL 去启用这个菜单特性。从Oracle(大型网站数据库平台)_HOME/bin 目录下运行下面这些命令:
regsvr32.exe oo4ocodewiz.dll
regsvr32.exe odbtreeview.ocx
regsvr32.exe oo4oaddin.dll
要运行这个向导,从主菜单中选择 Add-Ins,然后选择其中的OO4O Code Wizard For Stored Procedures。在第一次运行向导时,它会要求你登录到一个数据库。在登录到数据库之后,你可以选择Oracle(大型网站数据库平台) DB,然后从一个包列表中选择一个数据库包。该向导将围绕你所选择的包中的函数和过程创建 OO4O 代码。
例如,我需要为我的数据库包创建一个 ActiveX DLL 服务器控件。首先,我编写这个数据库包来处理我的业务服务:
REM -- create a package to encapsulate business services for employees
create or replace package empsvc
is
function get_count return integer;
procedure give_raise(empno integer,amount number);
end empsvc;
/
show errors;
create or replace package body empsvc
is
function get_count return integer
is
l_count integer;
begin
select count(*) into l_count from emp;
end get_count;
--
procedure give_raise(empno integer,amount number)
is
begin
update emp set sal = sal + amount
where empno = empno;
end give_raise;
end empsvc;
/
show errors;
然后,我进入 Visual Basic 6.0 并创建一个 ActiveX DLL。由于创建的是 ActiveX DLL,所以 Visual Basic 6.0 将自动创建 ActiveX 接口,构建 DLL,并在 Windows 操作系统中注册它。(任何需要使用我的数据库包的人都可以简单地从他们偏爱的 OLE 浏览器中选择它。)
在打开项目后,调出向导和登录进去,向导将自动为我的包生成下面这段 Visual Basic 代码:
' local variable(s) to hold property value(s)
Private OraDatabase As OraDatabase 'local copy
Public Property Let database(ByVal vData As OraDatabase)
Set OraDatabase = vData
End Property
Public Function GET_COUNT() As Variant
OraDatabase.Parameters.Add "result", 0, ORAPARM_OUTPUT
OraDatabase.Parameters("result").serverType = 2
OraDatabase.ExecuteSQL ("declare result Number; Begin :result :=
EMPSVC.GET_COUNT(); end;")
GET_COUNT = OraDatabase.Parameters("result").Value
OraDatabase.Parameters.Remove "result"
End Function
Public Sub GIVE_RAISE(EMPNO As Variant, AMOUNT As Variant)
OraDatabase.Parameters.Add "EMPNO", EMPNO, ORAPARM_INPUT, 2
OraDatabase.Parameters.Add "AMOUNT", AMOUNT, ORAPARM_INPUT, 2
OraDatabase.ExecuteSQL ("Begin EMPSVC.GIVE_RAISE(:EMPNO, :AMOUNT); end;")
OraDatabase.Parameters.Remove "EMPNO"
OraDatabase.Parameters.Remove "AMOUNT"
End Sub
我将删除原始的空的 Class1.cls 文件,将新的 EMPSVC.cls 设置为 MultiUse=Yes,然后将项目名称设置为我所要类型的库名称,EmpSvcLib,之后构建 DLL。如果我新开一个 Visual Basic 项目,在暴露的对象列表中可以看到EmpSvcLib.EMPSVC。如果我引用这个对象并在其中声明一个变量,我可以从这个变量调用GET_COUNT 和 GIVE_RAISE。如果我想从 C++ 中访问它,我可以在Visual Studio 附带的 OLE Viewer 中得到 IDL,将其添加到我的项目,然后让 Visual Studio 创建 Proxy 代码访问数据库代码。
下面是从 OLE Viewer 中看到的前面代码的 IDL。
// Generated .IDL file (by the OLE/COM Object Viewer)
//
// typelib filename: EmpSvcLib.dll
[
uuid(E137CE00-3C0B-497D-976C-C3235FF3C603),
version(1.0),
custom(50867B00-BB69-11D0-A8FF-00A0C9110059, 8169)
]
library EmpSvcLib
{
// TLib : Oracle(大型网站数据库平台) InProc Server 4.0 Type Library : {F2D4ED20-FFD3-101A-ADF2
-04021C007002}
importlib("oip9.tlb");
// TLib : OLE Automation : {00020430-0000-0000-C000-000000000046}
importlib("stdole2.tlb");
// Forward declare all types defined in this typelib
interface _EMPSVC;
[
odl,
uuid(BEFCB5F1-C9FE-4FCE-B18A-102E51CD8D2A),
version(1.0),
hidden,
dual,
nonextensible,
oleautomation
]
interface _EMPSVC : IDispatch {
[id(0x68030000), propput]
HRESULT database([in] OraDatabase* rhs);
[id(0x60030001)]
HRESULT GET_COUNT([out, retval] VARIANT* );
[id(0x60030002)]
HRESULT GIVE_RAISE(
[in, out] VARIANT* EMPNO,
[in, out] VARIANT* AMOUNT);
};
[
uuid(B1E44C55-EC55-473B-9235-AC7BFA79F30E),
version(1.0)
]
coclass EMPSVC {
[default] interface _EMPSVC;
};
};
如果我决定需要改变数据库逻辑来阻止不合理的请求,比如请求一个负值的工资或对极大升薪设置限制,那么我只要简单地修改 PL/SQL 包――只要函数和过程原型不变。如果它们发生变化,那么我可以重新调出向导来生成一个更新版本。
如果你不想使用OO4O,生成用于 ADO、OLE DB 或其它数据库架构的 Visual Basic 代码也相当简单,只要从USER_ARGUMENTS 表查询函数和过程定义即可。
- ››SQL Server 2008 R2 下如何清理数据库日志文件
- ››sqlite 存取中文的解决方法
- ››SQL2005、2008、2000 清空删除日志
- ››SQL Server 2005和SQL Server 2000数据的相互导入...
- ››sql server 2008 在安装了活动目录以后无法启动服...
- ››sqlserver 每30分自动生成一次
- ››sqlite 数据库 对 BOOL型 数据的插入处理正确用法...
- ››sql server自动生成批量执行SQL脚本的批处理
- ››sql server 2008亿万数据性能优化
- ››SQL Server 2008清空数据库日志方法
- ››sqlserver安装和简单的使用
- ››SQL Sever 2008 R2 数据库管理
更多精彩
赞助商链接