delphi + oracle µÝ¹éµÄÎÊÌâ
´ó¼ÒºÃ£º
ÎÒĿǰҪ¿ª·¢Ò»¸öERPÖеÄBOM¹¤Ê±»ã×ܳÌÐò£¬ÔÚORACLEÖУ¬BOM±íµÄ½á¹¹ÊÇ´«Í³µÄ ¸¸¼þ ×Ó¼þ ʽµÄ£¬¹¤Ê±ÔÚÁíÒ»¸ö±íÖУ¬¿ÉÒÔÓÃleft outer joinÀ´¹ØÁª£¬¿ÉÒÔÈÏΪ£¬¹ØÁªºóµÄ±í½á¹¹Îª [¸¸¼þ] [×Ó¼þ] [¹¤Ê±] [»ã×ܽá¹û]¡£
ÎÒĿǰÓÃDELPHI¿ª·¢£¬ÎÒÏëÓõݹéµÄ·½Ê½À´»ã×Ü×Ó¼þµÄ¹¤Ê±£¬ÌîÈë»ã×ܽá¹û¡£Õâ¸öµÝ¹éÓ¦¸ÃÔõôд°¡£¿
û¿´Ã÷°×
¡°»ã×ܽá¹û¡±ÊÇÒª¼ÆËãµÄÄÚÈÝ£¿
ÊÇÒª¼ÆËã×Ó¼þµÄ¹¤Ê±£¿»¹Êǽ«×Ó¼þµÄ¹¤Ê±ÀÛ¼Óµ½¸¸¼þÖУ¿
Êǽ«×Ó¼þµÄ¹¤Ê±ÀÛ¼Óµ½¸¸¼þÖУ¿
Äã¿ÉÒÔÔÚÍøÉÏÕÒһϣ¬oracleÊÇ¿ÉÒԵݹéµÄ£º
iID := 100;
start with id = iID
connect by prior parentid = iID;
ÕâÖÖ¸ñʽ£»
BOM±íÓ빤ʱ¿ÉÒÔ¹ØÁª³ÉÒ»¸ö±í£¬È»ºó×öµÝ¹é
¸øÄãÒ»¸öÀàËÆµÄ
create table tt(autoid int,cname varchar2(20),fartherid int);
insert into tt values(13,'ÐÇÐǹ«Ë¾', 0);
insert into tt values(14,'×ܹ«Ë¾', 13);
insert into tt values(15,'ÐÐÕþ²¿', 14);
insert into tt values(16,'·Ö¹«Ë¾', 13);
insert into tt values(17,'ÏúÊÛ´¦', 16);
procedure TForm1.RefreshTreeView;
procedure getStructrueInfo(vKeyID: string;tnode: TTreeNode);
var
oraQuery1: TOraQuery;
Tnode1: TTreeNode;
begin
oraQuery1 := TOraQuery.Create(nil);
try
with oraQuery1 do
begin
close;
Ïà¹ØÎÊ´ð£º
¸÷λoracle¸ßÊÖ£¬Çë½ÌÒ»ÏÂΪʲôoracle 10gÔÚ°²×°µ½°Ù·ÖÖ®°ËÊ®ÎåµÄʱºò¾Í±¨´í²»ÄܼÌÐø°²×°£¿
ÄÚ´æ¶à´ó£¿¡¡ÖØÐÂϸöÊý¾Ý¿â°²×°ÊÔÊÔ..
ÒýÓÃ
¸÷λoracle¸ßÊÖ£¬Çë½ÌÒ»ÏÂΪʲôoracle 10gÔÚ°²×°µ½°Ù·ÖÖ®°ËÊ®ÎåµÄʱ ......
private static final String URL = "jdbc:oracle:thin:@localhost:1521:orcl";
private static final String USERNAME = "sys";
private static final String PASSWORD = "s ......
²éÁËÒ»ÌìµÄblob£¬»¹ÊÇûÀí½âµ½£¬ÎÒÏëÔÚVCÏ´æÈ¡¶þ½øÖƵÄÎļþ£¬Ê¹ÓõÄÊÇoo4o£¬ÕÕ×ŰïÖúÎĵµÉÏÃæµÄдÁËдÈëÊý¾Ý¿âµÄ´úÂ룬»¹ÊÇûд¶Ô£¬´íÎóÌáʾÊÇthis operation is not permitted on a empty LOB£¬ÕâÊÇʲôÒâ˼°¡£¿ÕÕ ......
ÎÒÓÐÒ»¸öserver 2000ÀïµÄÊý¾Ý,ÏÖÔÚÏëתµ½oracleÊý¾Ý¿âÉÏÓÃ,²»ÖªµÀÓÐûÓиßÊÖÓмòµ¥ÓÖ¿ì½ÝµÄ·½·¨,ǰÌáÊDz»ÄܸÄÔÀ´oracleÀïµÄÔÓеÄÊý¾Ý¿â,Ö»ÄÜн¨
ÒýÓÃ
°²×°£Ï£Ò£Á£Ã£Ì£ÅµÄ£Ï£Ä£Â£Ã£¬È»ºóÓãӣѣ̡¡£Ó£Å£Ò£Ö£Å£ ......
ÎÒÊÇÔÚtoadÖÐÊäÈë϶Îsql
declare
TYPE test_rec IS record(
code varchar(10),
name varchar(30)
);
v_book test_rec;
......