Oracle;数;据;库;管;理;系;统;是;优;秀;的;数;据;库;管;理;系;统， ;其;开;发;工;具Developer/2000;也;是;一;个;功;能;强;大，;方;便;灵;活;的;工;具;软;件，;许;多Oracle;数;据;库;开;发;人;员;都;选;择Developer/2000;作;为;系;统;开;发;的;工;具。;但;当;今;的;数;据;库;用;户;再;也;不;会;仅;仅;局;限;于;枯;燥;无;味;的;数;据，;他;们;希;望;以;图;文;并;茂;的;方;式;显;示;查;询;结;果。;因;此;在;设;计;项;目;时，;一;般;是;选;择Developer/2000;来;开;发;有;关;数;据;库;的;维;护;功;能，;而;选;择;其;它;如VB、VC;等;优;秀;的;程;序;语;言;来;开;发;有;关;图;形;等;方;面;的;工;作。;这;就;带;来;一;个;问;题：;如;何;实;现Oracle;与;它;们;的;连;接。;本;文;就Oracle;与VB5.0;的;连;接;来;谈;一;点;自;己;的;体;会。;

----;一;．;VB5.0;与Oracle;数;据;库;的;连;接;

----;VB5.0;可;以;与;多;种;外;部;数;据;库;的;连;接。VB5.0;可;以;从Microsoft;Access、dBASE、Microsoft;Excel、FoXPro、Lotus、Paradox;等;数;据;库;中;读;取;数;据；;通;过ODBC，VB5.0;可;以;与SQL;SERVER;和ORACLE;相;连。;通;过ODBC;连;接;数;据;库;时，;首;先;要;正;确;配;置ODBC;的DSN（Data;Name;Source，;即;数;据;源），;然;后;在VB5.0;中;可;以;通;过Data;控;件;或RDO;对;象;连;接;数;据;库。;

----;1.;配;置ODBC;

----;在WINDOWS;95;的;控;制;面;板;中;用;属;标;双;击32bit;ODBC;就;启;动;了ODBC;数;据;源;管;理;器（ODBC;Data;Source;Administrator），;在"UserDSN";方;式;下;按"Add";按;钮，;出;现"Create;New;Data;Source";对;话;框，;从;中;选;择"Microsoft;ODBC;Driver;for;Oracle"(;安;装VB;时;自;动;安;装;该;驱;动；;或;安;装VB;时;选;择"Custom";方;式，;在Data;Access;选;项;中;选;择"Oracle;ODBC;Driver");并;按;下"Finish";按;钮，;出;现"Microsoft;ODBC;Driver;for;Oracle;Setup";对;话;框，;在"Data;Source;Name";中;给;定;一;名;称（;如my_dsn），;在"User;Name";中;写;上;你;在ORACLE;数;据;库;中;的;用;户;名（;如scott），;在"Connect;String";中;写;上;想;要;连;接;的Oracle;数;据;库;别;名（;该;别;名;登;记;在tnsnames.ora;文;件;中，;可;以;通;过;手;工;编;辑;该;文;件;或;通;过Developer/2000;中;的;工;具"SQL;Net;Easy;Configuration";来;配;置）。;


----;2.;设;置Data;控;件;

----;Data;控;件;非;常;简;单;易;用，;可;以;用;来;执;行;大;部;分;数;据;访;问;操;作，;而;根;本;不;用;编;写;代;码。;一;个Data;控;件;可;以;对;应;一;个;基;表;或;视;图（;可;以;是;数;据;库;中;所;固;有;的;视;图;对;象，;也;可;以;是;在RecordSource;属;性;中;的SQL;SELECT;语;句;所;选;出;的;数;据;集;合）。;

----;启;动VB，;在Form;上;添;加Data;控;件（;如Data1），;并;设;置;其Connect;属;性。Connect;属;性;中;记;载;着;连;接;字;符;串，;它;可;以;由;多;个;参;数;组;成：;

DSN：用名称注册;ODBC数据源
UID：数据库的一个可识别的用户名。
PWD：与用户名相关的密码

----;例;如;将Connect;属;性;置;为"ODBC;DSN=my_dsn;UID=scott;PWD=tiger"，;然;后;从RecordSource;属;性;的;列;表;框;中;选;择;某;一;基;表;或;视;图。;

----;Data;控;件;可;以;与DBList、DBCombo、DBGrid;和;MSFlexGrid;字;段;结;合;使;用，;只;要;将;它;们;的DataSource;属;性;设;置;为;某;一;控;件（;如Data1），;详;见VB;的;有;关;手;册。;

----;关;于VB;与;远;程;数;据;库;的;连;接，;请;参;阅《;计;算;机;世;界》1998;年4;月20;日;的"VB5.0;中;远;程;数;据;库;的;访;问";及1998;年5;月25;日;的";用VB;和RDO;访;问SQL;Server"，;此;处;不;在;赘;说。;

----;二;．;从Developer/2000;向VB;应;用;程;序;传;递;参;数;

----;Developer/2000;调;用VB;应;用;程;序;可;以;有;两;种;方;式，;一;是;通;过HOST;过;程;调;用;外;部;命;令（VB;应;用;程;序），;如：HOST（"notepad.exe"）;;二;是;通;过DDE;包;来;调;用VB;应;用;程;序，;如：;

DECLARE
AppID;;PLS_INTEGER;
BEGIN
AppID;:=;DDE.APP_BEGIN('notepad.exe')；
END;

----;下;面;主;要;介;绍;一;下Developer/2000;中;向VB;应;用;程;序;的;参;数;传;递：;

----;1.;命;令;行;参;数;

----;我;们;知;道，C;语;言;中;是;通;过int;main(;int;argc[;,;char;*argv[;];[,;char;*envp[;];];];);来;接;收;命;令;行;参;数;的，;但;在VB;中;没;有;对;应;的;语;法。;好;在VB;提;供;了COMMAND（）;函;数;来;返;回;命;令;行;参;数，;以;下;函;数;可;以;分;解;命;令;行;参;数;并;返;回;参;数;数;组：;


Function;GetCommandLine(Optional;MaxArgs)
Dim;C,;CmdLine,;CmdLnLen,;InArg,;I,;NumArgs
'检查是否提供了;MaxArgs参数。
If;IsMissing(MaxArgs);Then;MaxArgs;=;10
ReDim;ArgArray(MaxArgs);As;String
NumArgs;=;0:;InArg;=;False
CmdLine;=;Command()
CmdLnLen;=;Len(CmdLine)
'以一次一个字符的方式取出命令行参数。
For;I;=;1;To;CmdLnLen
C;=;Mid(CmdLine,;I,;1)
If;(C;<;>;";";And;C;<;>;vBTab);Then
If;Not;InArg;Then
If;NumArgs;=;MaxArgs;Then;Exit;For
NumArgs;=;NumArgs;+;1
InArg;=;True
End;If
'将字符加到当前参数中。
ArgArray(NumArgs);=;ArgArray(NumArgs);+;C
Else
InArg;=;False
End;If
Next;I
ReDim;Preserve;ArgArray(NumArgs)
GetCommandLine;=;ArgArray()
End;Function
调用方式如下：
Dim;cmdarray;As;Variant
Rem;cmdarray;=;GetCommandLine()

----;这;样，;从Developer/2000;中;调;用;用VB;编;写;的;应;用;程;序;时;就;可;以;向;它;传;递;参;数，;如：;

AppID;:=;DDE.APP_BEGIN('notepad.exe;myfile')；

注;意：;别;忘;了;在;退;出Developer/2000;之;前;先;终;止;所;调;用;的;程;序，;如DDE.APP_END（AppID）;
----;2.;用;基;表;或;视;图;来;传;递;参;数;

----;当;要;传;递;大;量;的;数;据;时，;上;述;方;法;就;行;不;通;了。;例;如，;将;在Developer/2000;中;从;数;据;库;某;个;基;表;中;查;询;出;的;记;录;集;合;传;给VB;以;进;行;图;形;显;示。;解;决;这;一;问;题;的;通;常;方;法;是;将;数;据;全;部;写;入;文;件（Oracle;Developer/2000;提;供;了;内;建;软;件;包TEXT_IO;来;进;行;文;件;操;作），;然;后;以;文;件;名;为;参;数;调;用VB;应;用;程;序，;但;采;用;这;种;方;法;时VB;应;用;程;序;对;数;据;进;行;检;索;和;排;序;比;较;困;难，;而;且;文;件;操;作;本;身;也;比;较;烦;琐，;数;据;量;大;时，;速;度;问;题;比;较;突;出。;


----;一;种;好;的;解;决;方;法;是;用;数;据;库;作;为;传;递;参;数;的;中;介，;利;用;基;表;或;视;图;来;保;存;检;索;出;的;数;据，;然;后;只;要;向VB;应;用;程;序;传;递;基;表;或;视;图;名;即;可，;而VB;的;强;大;的;数;据;库;功;能;能;够;使;你;得;心;应;手;地;操;纵;数;据。;但;是Oracle;的PL;／SQL;只;支;持DML（Data;Manipulation;Language，;即;数;据;操;作;语;言）;而;不;支;持DDL（Data;Definition;Language，;即;数;据;描;述;语;言），;因;此;在PL;／SQL;中;不;能;动;态;产;生;基;表;或;视;图，;好;在Oracle;数;据;库;中;提;供;了DBMS_SQL;包，;该;包;可;以;让;你;执;行;任;何DDL;或DML，;包;括;创;建;或;删;除;基;表;及;视;图。;

----;下;例;是;在Developer/2000;FORMS;中;根;据;当;前;块;的;默;认;选;择;条;件;创;建;一;视;图：;

DECLARE
cursor_name;INTEGER;
rows_processed;;INTEGER;
table_name;VARCHAR2(20):=;get_block_property
(;:system.cursor_block,;base_table);
wh_string;VARCHAR2(500);:=;Rtrim(get_block_property;
(:system.cursor_block,default_where));
sql_string;VARCHAR2(400);
BEGIN
:globe.view_name;:=;'v_';table_name;
sql_string;:=;'create;view;';:globe.view_name;'
as;select;*;from;';table_name;
If;wh_string;Is;Not;Null;Then
sql_string;:=;sql_string;;';;where;';wh_string;
End;If;
cursor_name;:=;dbms_sql.open_cursor;
dbms_sql.parse(cursor_name,;sql_string,;dbms_sql.v7);
rows_processed;:=;dbms_sql.execute(cursor_name);
dbms_sql.close_cursor(cursor_name);
END;

----;上;例;中，open_cursor;获;得;一;个;新;的;光;标（cursor）;号，;parse;对;所;要;执;行;的;语;句;进;行;语;法;分;析，;execute;执;行;给;定;的;光;标，close_cursor;关;闭;光;标、;释;放;内;存。;DBMS_SQL;包;还;有;其;它;许;多;功;能（;如;将;值;绑;定;给SQL;语;句;中;的;变;量、;读;取;查;询;结;果;等），;有;兴;趣;的;读;者;可;以;查;阅ORACLE;手;册Oracle;Server;Application;Developer's;Guide。;


----;三;．;Developer/2000;与VB;应;用;程;序;的;统;一;

----;用Developer/2000;开;发;的;应;用;程;序;在;执;行;时;会;出;现;一;个MDI;窗;口，;应;用;程;序;中;的;所;有;窗;口;都;在;此MDI;窗;口;之;内，;而;用VB;开;发;的;应;用;程;序;拥;有;自;己;独;立;的;窗;口，;这;样;开;发;出;的;应;用;软;件;会;给;用;户;以;两;个;平;台、;两;套;系;统;之;嫌。;如;果;能;够;解;决;这;个;问;题，;就;会;使;应;用;软;件;系;统;增;色;不;少。;我;们;很;自;然;地;想;到;将VB;的Form(;窗;口);的;父;窗;口;设;成Develop;2000;的MDI;窗;口。;

----;1.;获;得Developer/2000;的MDI;窗;口;句;柄;

----;Developer/2000;FORMS;用FORMS_MDI_WINDOW;标;记FORMS;的MDI;窗;口，;用get_window_property;获;得;其;窗;口;句;柄;后;就;可;以;将;它;作;为;参;数;传;给VB;应;用;程;序。;

DECLARE
w_hdl;BINARY_INTEGER;
BEGIN
w_hdl;:=;TO_NUMBER(get_window_property
(FORMS_MDI_WINDOW,;WINDOW_HANDLE));
AppID;:=;DDE.APP_BEGIN('My_app.exe;';:globe.view_name;
';';;TO_CHAR(w_hdl))；
END;

----;2.;将VB;的;窗;口（Form）;放;入Developer/2000;的MDI;窗;口;

----;Visual;Basic;调;用WINDOWS;API;非;常;简;单，;只;要;在;调;用;之;前;对;所;调;函;数;进;行;说;明;即;可。;格;式;说;明;可;以;使;用Visual;Basic;的;工;具API;Text;Viewer。;运;行API;Text;Viewer，;装;载Win32api.MDB，;从;中;选;出;所;需;的API;函;数，;增;加;到"Selected;Items";框;内，;再;拷;贝;到;剪;贴;板，;然;后;粘;贴;到VB;的;说;明;部;分;即;可。;示;例;如;下：;

Private;Declare;Function;SetParent;Lib;"user32"
(ByVal;hWndChild;As;Long,;ByVal;hWndNewParent;As;Long);As;Long

Private;Sub;Form_Load()
Dim;cmdarray;As;Variant
cmdarray;=;GetCommandLine();
rc;=;SetParent(Me.hWnd,;cmdarray(2))

Data1.Connect;=;"ODBC;DSN=my_dsn;UID=scott;PWD=tiger"

Data1.RecordSource;=;";scott.";+;cmdarray(1)
End;Sub

----;将;该VB;应;用;程;序;编;译;成;可;执;行;程;序（EXE），;以;便Developer/2000;调;用。;至;此，VB;的;窗;口;已;经;纳;入Developer/2000;的MDI;窗;口;内.;你;可;以;将VB;Form;的ShowInTaskbar;属;性;设;置;成False;使VB;应;用;程;序;不;出;现;在;任;务;栏;内，;同;时;给;该Form;的Icon;属;性;赋;一;个;与Developer/2000;窗;口;图;标;的;相;似;的;图;标，;这;样;谁;还;能;分;得;出;你;的;软;件;哪;一;部;分;是;用Developer/2000;开;发;的，;哪;一;部;分;是;用Visual;Basic;开;发;的;呢;？