¶ÔÁ½¸öORACLEÊý¾Ý¿â²Ù×÷
Ê×ÏÈÉùÃ÷:·Çͬһ·þÎñÆ÷,ÇÐÊý¾Ý¿â²»ÄÜ×öÈκθü¸Ä!
´úÂë:
Delphi(Pascal) code:
DataSe := TADOQuery.Create(self);
DataSe.ConnectionString:='Provider=OraOLEDB.Oracle.1;Password=pass;Persist Security Info=True;User ID=db;Data Source=oracle1';
DataSe.SQL.Clear;
DataSe.SQL.Add('select count(t.id) as sj from table1 t where t.id in (select c.id from table2 c where c.typeid = ''9'') and t.time between to_date('''+DateTimeToStr(DateTimePicker1.DateTime)+''',''yyyy-mm-dd hh24:mi:ss'') and to_date('''+DateTimeToStr(DateTimePicker2.DateTime)+''',''yyyy-mm-dd hh24:mi:ss'') and t.memo like ''%ÉîÛÚ%''');
DataSe.Open;
Edit1.Text := DataSe.FieldByName('sj').AsString;
DataSe.Free;
ÉϱߴúÂëÔÚͬһ¸öÊý¾Ý¿âÖв»Í¬±í,¿ÉÒÔÕý³£Í³¼ÆÊý¾Ý.
ÎÊÌâ:
ÏÖÔÚÔÚÁíÒ»¸öÊý¾Ý¿âÖÐͳ¼ÆÊý¾Ý,ͬÑùÐèÒª Delphi(Pascal) code:
t.id in (select c.id from table2 c where c.typeid = ''9'')
Ìõ¼þ
ÁíÒ»¸öÊý¾Ý¿âÅäÖÆÇý¶¯DataSe.ConnectionString:='Provider=OraOLEDB.Oracle.1;Password=word;Persist Security Info=True;User ID=db2;Data Source=oracle2';
ÔõôÑù²ÅÄÜÏñÉϱßÄÇÑù²éѯ³öͳ¼ÆÊý¾Ýѽ??
´ó¼Ò¶¼Ã»ÓÐÆð´²ÄذÉ?~~~ µÈ´ý~~
¿ç¿â²éѯͳ¼Æ¿ÉÒÔÔÚÒ»ÌõsqlÖÐʵÏÖ£¬ÐèÒª°ÑÁíÒ»¸ö¿âµÄÁ¬½ÓÐÅϢдµ½sqlÖ
Ïà¹ØÎÊ´ð£º
exp user/password@dbname file=c:\table.dmp tables=jbitaku,jbitakum grants=y
È»áá°´»Ø車鍵 說Ã÷:¡¡ user/password@dbname ¡¡·Ö別±íʾÓÃ戶Ãû£¬ÃÜ碼ºÍ·þ務Ãû f ......
СµÜ£¬×î½üҪתÐÐÈ¥×öoracle¿ª·¢ÁË£¬ÓÉÓÚ´óѧ±Ïҵʱ£¬×ßÁ˸öÍä·£¬ÏÖÔÚºÜСÐÄ£¬ÎÊÏ£¬×öPL/SQLÓÐûÓÐǰ;£¿£¿£¿
µ±È»ÎÒ˵µÄÕâ¸öǰ;ÊÇÖ¸ ÒÔºóÒªÌø²Û£¬Êг¡¶ÔÕâÑùµÄÈ˲ŵÄÐèÇóÁ¿´ó²»´ó£¿£¿
3q ÄÇ¿´À´»¹Ö»ÄÜÏȽӴ ......
¼ÙÉètable01 ÖÐÓÐ ÒÔÏÂ×ÊÁÏ
emp_no emp_name
------- ------------
0001 TOM
0002 JOHN
0003 MARY
³£Óõ绰
¶øÎÒÃÇÒªµÃµ½ÒÔϵÄOUTPUT (»òÊǸ÷ÖÖÆäËûµÄoutput)
0001,TOM
0002,JOHN
......
ÎÒÊÇÔÚtoadÖÐÊäÈë϶Îsql
declare
TYPE test_rec IS record(
code varchar(10),
name varchar(30)
);
v_book test_rec;
......
SQL code:
declare
v_deptno number(2);
v_dname varchar2(14);
begin
dbms_output.put_line('ÇëÊäÈ벿ÃźźͲ¿ÃÅÃû:');
v_deptno:=&deptno;
v_dname:='&dname';
insert into dept01(deptno,dnam ......