/*********** 导入Excel
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
/*动态文件名
declare @fn varchar(20),@s varchar(1000)
set @fn = 'c:\test.xls'
set @s ='''Microsoft.Jet.OLEDB.4.0'',
''Data Source="'+@fn+'";User ID=Admin;Password=;Extended properties=Excel 5.0'''
set @s = 'SELECT * FROM OpenDataSource ('+@s+')...sheet1$'
exec(@s)
*/
SELECT cast(cast(U目~号 as numeric(10,2)) as nvarchar(255))+' ' 转换后的别名
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
/********************** EXCEL导到q程SQL
insert OPENDATASOURCE(
'SQLOLEDB',
'Data Source=q程ip;User ID=sa;Password=密码'
).库名.dbo.表名 (列名1,列名2)
SELECT 列名1,列名2
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
/** 导入文本文g
EXEC master..xp_cmdshell 'bcp dbname..tablename in c:\DT.txt -c -Sservername -Usa -Ppassword'
/** 导出文本文g
EXEC master..xp_cmdshell 'bcp dbname..tablename out c:\DT.txt -c -Sservername -Usa -Ppassword'
?br>EXEC master..xp_cmdshell 'bcp "Select * from dbname..tablename" queryout c:\DT.txt -c -Sservername -Usa -Ppassword'
导出到TXT文本Q用逗号分开
exec master..xp_cmdshell 'bcp "库名..表名" out "d:\tt.txt" -c -t ,-U sa -P password'
BULK INSERT 库名..表名
FROM 'c:\test.txt'
WITH (
FIELDTERMINATOR = ';',
ROWTERMINATOR = '\n'
)
--/* dBase IV文g
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase IV;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料4.dbf]')
--*/
--/* dBase III文g
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase III;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料3.dbf]')
--*/
--/* FoxPro 数据?br>select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\',
'select * from [aa.DBF]')
--*/
/**************导入DBF文g****************/
select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;
SourceDB=e:\VFP98\data;
SourceType=DBF',
'select * from customer where country != "USA" order by country')
go
/***************** 导出到DBF ***************/
如果要导出数据到已经生成l构(即现存的)FOXPRO表中,可以直接用下面的SQL语句
insert into openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\',
'select * from [aa.DBF]')
select * from ?br>
说明:
SourceDB=c:\ 指定foxpro表所在的文g?br>aa.DBF 指定foxpro表的文g?
/*************导出到Access********************/
insert into openrowset('Microsoft.Jet.OLEDB.4.0',
'x:\A.mdb';'admin';'',A? select * from 数据库名..B?br>
/*************导入Access********************/
insert into B?selet * from openrowset('Microsoft.Jet.OLEDB.4.0',
'x:\A.mdb';'admin';'',A?
文g名ؓ(f)参数
declare @fname varchar(20)
set @fname = 'd:\test.mdb'
exec('SELECT a.* FROM opendatasource(''Microsoft.Jet.OLEDB.4.0'',
'''+@fname+''';''admin'';'''', topics) as a ')
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="f:\northwind.mdb";Jet OLEDB:Database Password=123;User ID=Admin;Password=;')...产品
********************* 导入 xml 文g
DECLARE @idoc int
DECLARE @doc varchar(1000)
--sample XML document
SET @doc ='
Happy Customer.
'
-- Create an internal representation of the XML document.
EXEC sp_xml_preparedocument @idoc OUTPUT, @doc
-- Execute a SELECT statement using OPENXML rowset provider.
SELECT *
FROM OPENXML (@idoc, '/root/Customer/Order', 1)
WITH (oid char(5),
amount float,
comment ntext 'text()')
EXEC sp_xml_removedocument @idoc
???????
/**********************Excel导到Txt****************************************/
想用
select * into opendatasource(...) from opendatasource(...)
实现一个Excel文g内容导入C个文本文?br>
假设Excel中有两列Q第一列ؓ(f)姓名Q第二列为很行帐?16?
且银行帐号导出到文本文g后分两部分，?位和?位分开?br>
邹健Q?br>如果要用你上面的语句插入的话,文本文g必须存在,而且有一?姓名,银行账号1,银行账号2
然后可以用下面的语句进行插?br>注意文g名和目录Ҏ(gu)你的实际情况q行修改.
insert into
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Text;HDR=Yes;DATABASE=C:\'
)...[aa#txt]
--,aa#txt)
--*/
select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8)
from
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls'
--,Sheet1$)
)...[Sheet1$]
如果你想直接插入q生成文本文?p用bcp
declare @sql varchar(8000),@tbname varchar(50)
--首先excel表内容导入到一个全局临时?br>select @tbname='[##temp'+cast(newid() as varchar(40))+']'
,@sql='select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8)
into '+@tbname+' from
opendatasource(''MICROSOFT.JET.OLEDB.4.0''
,''Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls''
)...[Sheet1$]'
exec(@sql)
--然后用bcp从全局临时表导出到文本文g
set @sql='bcp "'+@tbname+'" out "c:\aa.txt" /S"(local)" /P"" /c'
exec master..xp_cmdshell @sql
--删除临时?br>exec('drop table '+@tbname)
/********************导整个数据库*********************************************/
用bcp实现的存储过E?br>
/*
实现数据导入/导出的存储过E?br>Ҏ(gu)不同的参?可以实现导入/导出整个数据?单个?br>调用CZ:
--导出调用CZ
----导出单个?br>exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',1
----导出整个数据?br>exec file2table 'zj','','','xzkh_sa','C:\docman',1
--导入调用CZ
----导入单个?br>exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',0
----导入整个数据?br>exec file2table 'zj','','','xzkh_sa','C:\docman',0
*/
if exists(select 1 from sysobjects where name='File2Table' and objectproperty(id,'IsProcedure')=1)
drop procedure File2Table
go
create procedure File2Table
@servername varchar(200) --服务器名
,@username varchar(200) --用户?如果用NT验证方式,则ؓ(f)I?'
,@password varchar(200) --密码
,@tbname varchar(500) --数据?dbo.表名,如果不指?.dbo.表名,则导出数据库的所有用戯
,@filename varchar(1000) --导入/导出路径/文g?如果@tbname参数指明是导出整个数据库,则这个参数是文g存放路径,文g名自动用表名.txt
,@isout bit --1为导?0为导?br>as
declare @sql varchar(8000)
if @tbname like '%.%.%' --如果指定了表?则直接导出单个表
begin
set @sql='bcp '+@tbname
+case when @isout=1 then ' out ' else ' in ' end
+' "'+@filename+'" /w'
+' /S '+@servername
+case when isnull(@username,'')='' then '' else ' /U '+@username end
+' /P '+isnull(@password,'')
exec master..xp_cmdshell @sql
end
else
begin --导出整个数据?定义游标,取出所有的用户?br>declare @m_tbname varchar(250)
if right(@filename,1)<>'\' set @filename=@filename+'\'
set @m_tbname='declare #tb cursor for select name from '+@tbname+'..sysobjects where xtype=''U'''
exec(@m_tbname)
open #tb
fetch next from #tb into @m_tbname
while @@fetch_status=0
begin
set @sql='bcp '+@tbname+'..'+@m_tbname
+case when @isout=1 then ' out ' else ' in ' end
+' "'+@filename+@m_tbname+'.txt " /w'
+' /S '+@servername
+case when isnull(@username,'')='' then '' else ' /U '+@username end
+' /P '+isnull(@password,'')
exec master..xp_cmdshell @sql
fetch next from #tb into @m_tbname
end
close #tb
deallocate #tb
end
go
/************* Oracle **************/
EXEC sp_addlinkedserver 'OracleSvr',
'Oracle 7.3',
'MSDAORA',
'ORCLDB'
GO
delete from openquery(mailser,'select * from yulin')
select * from openquery(mailser,'select * from yulin')
update openquery(mailser,'select * from yulin where id=15')set disorder=555,catago=888
insert into openquery(mailser,'select disorder,catago from yulin')values(333,777)
]]>
初始化相兛_数job_queue_processes
alter system set job_queue_processes=39 scope=spfile;//最大g能超q?000 ;job_queue_interval = 10 //调度作业h频率Uؓ(f)单位
DBA_JOBS describes all jobs in the database.
USER_JOBS describes all jobs owned by the current user
1 select job,what,to_char(last_date,'yyyy-mm-dd HH24:mi:ss'),to_char(next_date,'yyyy-mm-dd HH24:m),interval from dba_jobs where job in (325,295)
2 select job,what,last_date,next_date,interval from dba_jobs where job in (1,3);
查询job的情c?br>show paramter background_dump_dest.
看alter.log 和trace
SVRMGR> select * from dba_jobs;
初始化相兛_数job_queue_processes
alter system set job_queue_processes=39 scope=spfile;//最大g能超q?000
job_queue_interval = 10 //调度作业h频率Uؓ(f)单位
DBA_JOBS describes all jobs in the database.
USER_JOBS describes all jobs owned by the current user
1 select job,what,to_char(last_date,'yyyy-mm-dd HH24:mi:ss'),to_char(next_date,'yyyy-mm-dd HH24:m),interval from dba_jobs where job in (325,295)
2 select job,what,last_date,next_date,interval from dba_jobs where job in (1,3);
查询job的情c?br>show paramter background_dump_dest.
看alter.log 和trace
请问我如何停止一个JOB
SQL> exec dbms_job.broken(1,true)
PL/SQL q程已成功完成?br>SQL>commit //必须提交否则无效
启动作业
SQL> exec dbms_job.broken(1,false)
PL/SQL q程已成功完成?/p>
停其他用L(fng)job
SQL>exec sys.dbms_ijob.broken(98,true);
SQL>commit;
============================
exec dbms_job.broken(:job) 停止
exec dbms_job.broken(186,true) //标记位broken
exec dbms_job.broken(186,false)//标记为非broken
exec dbms_job.broken(186,false,next_day(sysdate,'monday')) //标记为非broken,指定执行旉
exec dbms_job.remove(:job)Q删?br>exec dbms_job.remove(186);
commitQ?/p>
把一个broken job重新q行
三、查看相关job信息
1、相兌?br>dba_jobs
all_jobs
user_jobs
dba_jobs_running 包含正在q行job相关信息
创徏JOB
variable jobno number;
begin
dbms_job.submit(:jobno, 'statspack.snap;', trunc(sysdate+1/24,'HH'), 'trunc(SYSDATE+1/24,''HH'')', TRUE, :instno);
commit;
end;
print jobno
例如Q我们已l徏立了一个存储过E，其名UCؓ(f)my_jobQ在sql/plus中以scott用户w䆾dQ执行如下命令：(x)
sql> variable n number;
sql> begin
dbms_job.submit(:n‘my_job;’,sysdate,
‘sysdateQ?/360’);
commit;
end;
Sql> print :n;
pȝ提示执行成功?
Sql> print :n;
pȝ打印此Q务的~号Q例如结果ؓ(f)300?
单例?br>一个简单例子：(x)
创徏试?br>SQL> create table TEST(a date);
表已创徏?/p>
创徏一个自定义q程
SQL> create or replace procedure MYPROC as
2 begin
3 insert into TEST values(sysdate);
4 end;
5 /
q程已创建?/p>
创徏JOB
SQL> variable job1 number;
SQL>
SQL> begin
2 dbms_job.submit(:job1,'MYPROC;',sysdate,'sysdate+1/1440'); --每天1440分钟Q即一分钟q行testq程一?br> 3 end;
4 /
PL/SQL q程已成功完成?/p>
q行JOB
SQL> begin
2 dbms_job.run(:job1);
3 end;
4 /
PL/SQL q程已成功完成?/p>
SQL> select to_char(a,'yyyy/mm/dd hh24:mi:ss') 旉 from TEST;
旉
-------------------
2001/01/07 23:51:21
2001/01/07 23:52:22
2001/01/07 23:53:24
删除JOB
SQL> begin
2 dbms_job.remove(:job1);
3 end;
4 /
PL/SQL q程已成功完成?/p>
Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q?/p>
a、利用dbms_job.run()立即执行该job
sql>begin
sql>dbms_job.run(:jobno) 该jobno为submitq程提交时返回的job number
sql>end;
sql>/
b、利用dbms_job.broken()重新broken标记为false
sql>begin
sql>dbms_job.broken (:job,false,next_date)
sql>end;
sql>/
Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝
SQL> create table a(a date);
Table created
创徏一个过E?br>SQL> create or replace procedure test as
2 begin
3 insert into a values(sysdate);
4 end;
5 /
Procedure created
提交作业
SQL> declare
2 job1 number; //定义一个数字型变量
3 begin
4 dbms_job.submit(:job1,'test;',sysdate,'sysdate+1/1440'); //按分钟算一?440分钟
5 end;
6 /
PL/SQL procedure successfully completed
job1
---------
4
SQL> commit;
Commit complete
q行作业
SQL> begin
2 dbms_job.run(4);
3 end;
4 /
PL/SQL procedure successfully completed
删除作业
SQL> begin
2 dbms_job.remove(4);
3 end;
4 /
PL/SQL procedure successfully completed
SQL> commit;
Commit complete
job change//修改作业
execute dbms_job.change(186,null,null,'sysdate+3');
execute dbms_job.change(186,'scott.test(update)');
DBA_JOBS
Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q＝Q?br>字段Q列Q?nbsp; cd 描述
JOB NUMBER d的唯一标示?
LOG_USER VARCHAR2(30) 提交d的用?
PRIV_USER VARCHAR2(30) 赋予d权限的用?
SCHEMA_USER VARCHAR2(30) 对Q务作语法分析的用h?
LAST_DATE DATE 最后一ơ成功运行Q务的旉
LAST_SEC VARCHAR2(8) 如HH24:MM:SS格式的last_date日期的小Ӟ分钟和秒
THIS_DATE DATE 正在q行d的开始时_(d)如果没有q行d则ؓ(f)null
THIS_SEC VARCHAR2(8) 如HH24:MM:SS格式的this_date日期的小Ӟ分钟和秒
NEXT_DATE DATE 下一ơ定时运行Q务的旉
NEXT_SEC VARCHAR2(8) 如HH24:MM:SS格式的next_date日期的小Ӟ分钟和秒
TOTAL_TIME NUMBER 该Q务运行所需要的L_(d)单位为秒
BROKEN VARCHAR2(1) 标志参数QY标示d中断Q以后不?x)运?
INTERVAL VARCHAR2(200) 用于计算下一q行旉的表辑ּ
FAILURES NUMBER dq行q箋没有成功的次?
WHAT VARCHAR2(2000) 执行d的PL/SQL?
CURRENT_SESSION_LABEL RAW MLSLABEL 该Q务的信QOracle?x)话W?
CLEARANCE_HI RAW MLSLABEL 该Q务可信Q的Oracle最大间?
CLEARANCE_LO RAW MLSLABEL 该Q务可信Q的Oracle最间?
NLS_ENV VARCHAR2(2000) dq行的NLS?x)话讄?
MISC_ENV RAW(32) dq行的其他一些会(x)话参?
描述 INTERVAL参数?
每天午夜12?nbsp; 'TRUNC(SYSDATE + 1)'
每天早上8?0?nbsp; 'TRUNC(SYSDATE + 1) + Q?*60+30Q?(24*60)'
每星期二中午12?nbsp; 'NEXT_DAY(TRUNC(SYSDATE ), ''TUESDAY'' ) + 12/24'
每个月第一天的午夜12?nbsp; 'TRUNC(LAST_DAY(SYSDATE ) + 1)'
每个季度最后一天的晚上11?'TRUNC(ADD_MONTHS(SYSDATE + 2/24, 3 ), 'Q' ) -1/24'
每星期六和日早上6?0?nbsp; 'TRUNC(LEAST(NEXT_DAY(SYSDATE, ''SATURDAY"), NEXT_DAY(SYSDATE, "SUNDAY"))) + Q?×60+10Q?Q?4×60Q?
]]>