存储过程_№ぽ夜夢サミ的空间_百度空间企业库|免费b2b网站

存储过程_№ぽ夜夢サミ的空间_百度空间

存储过程百科名片
存储过程（Stored Procedure）是一组为了完成特定功能的SQL语句集，经编译后存储在数据库中。用户通过指定存储过程的名字并给出参数（如果该存储过程带有参数）来执行它。存储过程是数据库中的一个重要对象，任何一个设计良好的数据库应用程序都应该用到存储过程。
目录[隐藏]

一、存储过程介绍
二、使用存储过程有以下的优点：
三、存储过程的种类：
五、存储过程的常用格式：
六、编写对数据库访问的存储过程：
七、在SQL Server中执行存储过程：
八、存储过程的缺点
九、存储过程中临时表的创建问题
十一、Oracle中的存储过程：1.创建过程
2.使用过程
3.开发过程
4.数据字典
一、存储过程介绍
二、使用存储过程有以下的优点：
三、存储过程的种类：
五、存储过程的常用格式：
六、编写对数据库访问的存储过程：
七、在SQL Server中执行存储过程：
八、存储过程的缺点
九、存储过程中临时表的创建问题
十一、Oracle中的存储过程：
1.创建过程 2.使用过程 3.开发过程 4.数据字典

　　
[编辑本段]一、存储过程介绍
　　存储过程是由流控制和SQL语句书写的过程，这个过程经编译和优化后存储在数据库服务器中，应用程序使用时只要调用即可。在ORACLE中，若干个有联系的过程可以组合在一起构成程序包。　　存储过程是利用SQL Server所提供的Transact-SQL语言所编写的程序。Transact-SQL语言是SQL Server提供专为设计数据库应用程序的语言，它是应用程序和SQL Server数据库间的主要程序式设计界面。它好比Oracle数据库系统中的PL-SQL和Informix的数据库系统结构中的Informix- 4GL语言。这类语言主要提供以下功能，让用户可以设计出符合引用需求的程序：　　1)、变量说明　　2)、ANSI兼容的SQL命令(如Select,Update….) 　　3)、一般流程控制命令(if…else…、while….) 　　4)、内部函数
[编辑本段]二、使用存储过程有以下的优点：
　　* 存储过程的能力大大增强了SQL语言的功能和灵活性。存储过程可以用流控制语句编写，有很强的灵活性，可以完成复杂的判断和较复杂的运算。　　* 可保证数据的安全性和完整性。　　# 通过存储过程可以使没有权限的用户在控制之下间接地存取数据库，从而保证数据的安全。　　# 通过存储过程可以使相关的动作在一起发生，从而可以维护数据库的完整性。　　* 在运行存储过程前，数据库已对其进行了语法和句法分析，并给出了优化执行方案。这种已经编译好的过程可极大地改善SQL语句的性能。由于执行SQL语句的大部分工作已经完成，所以存储过程能以极快的速度执行。　　* 可以降低网络的通信量。　　* 使体现企业规则的运算程序放入数据库服务器中，以便：　　# 集中控制。　　# 当企业规则发生变化时在服务器中改变存储过程即可，无须修改任何应用程序。企业规则的特点是要经常变化，如果把体现企业规则的运算程序放入应用程序中，则当企业规则发生变化时，就需要修改应用程序工作量非常之大（修改、发行和安装应用程序）。如果把体现企业规则的运算放入存储过程中，则当企业规则发生变化时，只要修改存储过程就可以了，应用程序无须任何变化。
[编辑本段]三、存储过程的种类：
　　1)、系统存储过程：以sp_开头,用来进行系统的各项设定.取得信息.相关管理工作, 　　如 sp_help就是取得指定对象的相关信息　　2)、扩展存储过程以XP_开头,用来调用操作系统提供的功能　　exec master..xp_cmdshell 'ping 10.8.16.1' 　　3)、用户自定义的存储过程,这是我们所指的存储过程四、存储过程的书写格式：　　CREATE PROCEDURE [拥有者.]存储过程名[;程序编号] 　　[(参数#1,…参数#1024)] 　　[WITH 　　{RECOMPILE | ENCRYPTION | RECOMPILE, ENCRYPTION} 　　] 　　[FOR REPLICATION] 　　AS 程序行　　其中存储过程名不能超过128个字。每个存储过程中最多设定1024个参数　　(SQL Server 7.0以上版本),参数的使用方法如下：　　@参数名数据类型 [VARYING] [=内定值] [OUTPUT] 　　每个参数名前要有一个“@”符号,每一个存储过程的参数仅为该程序内部使用,参数的类型除了IMAGE外，其他SQL Server所支持的数据类型都可使用。　　[=内定值]相当于我们在建立数据库时设定一个字段的默认值，这里是为这个参数设定默认值。[OUTPUT]是用来指定该参数是既有输入又有输出值的，也就是在调用了这个存储过程时，如果所指定的参数值是我们需要输入的参数，同时也需要在结果中输出的，则该项必须为OUTPUT，而如果只是做输出参数用，可以用CURSOR，同时在使用该参数时，必须指定VARYING和OUTPUT这两个语句。　　例子：　　CREATE PROCEDURE order_tot_amt 　　@o_id int, 　　@p_tot int output 　　AS 　　SELECT @p_tot = sum(Unitprice*Quantity) 　　FROM orderdetails 　　WHERE 　　GO 　　例子说明：　　该例子是建立一个简单的存储过程order_tot_amt,这个存储过程根据用户输入的定单ID号码(@o_id),由定单明细表 (orderdetails)中计算该定单销售总额[单价(Unitprice)*数量(Quantity)],这一金额通过@p_tot这一参数输出给调用这一存储过程的程序。
[编辑本段]五、存储过程的常用格式：
　　Create procedure procedue_name 　　[@parameter data_type][output] 　　[with]{recompile|encryption} 　　as 　　sql_statement 　　解释：　　output：表示此参数是可传回的　　with {recompile|encryption} 　　recompile:表示每次执行此存储过程时都重新编译一次　　encryption:所创建的存储过程的内容会被加密　　如：　　表book的内容如下　　编号书名价格　　001 C语言入门 $30 　　002 PowerBuilder报表开发 $52 　　实例1:查询表Book的内容的存储过程　　create proc query_book 　　as 　　select * from book 　　go 　　exec query_book 　　实例2：　　加入一笔记录到表book,并查询此表中所有书籍的总金额　　Create proc insert_book 　　@param1 char(10),@param2 varchar(20),@param3 money,@param4 money output 　　with encryption ---------加密　　as 　　insert book(编号,书名,价格) Values(@param1,@param2,@param3) 　　select @param4=sum(价格) from book 　　go 　　执行例子：　　declare @total_price money 　　exec insert_book '003','Delphi 控件开发指南',$100,@total_price 　　print '总金额为'+convert(varchar,@total_price) 　　go 　　存储过程的3种传回值：　　1)、以Return传回整数　　2)、以output格式传回参数　　3)、Recordset 　　传回值的区别：　　output和return都可在批次程式中用变量接收，而recordset则传回到执行批次的客户端中。　　实例3：　　设有两个表为Product,Order_,其表内容如下：　　Product 　　产品编号产品名称客户订数　　001 钢笔 30 　　002 毛笔 50 　　003 铅笔 100 　　Order_ 　　产品编号客户名客户订金　　001 南山区 $30 　　002 罗湖区 $50 　　003 宝安区 $4 　　请实现按编号为连接条件,将两个表连接成一个临时表,该表只含编号.产品名.客户名.订金.总金额, 　　总金额=订金*订数,临时表放在存储过程中　　代码如下：　　Create proc temp_sale 　　as 　　select a.产品编号,a.产品名称,b.客户名,b.客户订金,a.客户订数* b.客户订金 as总金额　　into #temptable from Product a inner join Order_ b on a.产品编号=b.产品编号　　if @@error=0 　　print 'Good' 　　else 　　&n bsp; print 'Fail' 　　go
[编辑本段]六、编写对数据库访问的存储过程：
　　数据库存储过程的实质就是部署在数据库端的一组定义代码以及SQL。将常用的或很复杂的工作，预先用SQL语句写好并用一个指定的名称存储起来，那么以后要叫数据库提供与已定义好的存储过程的功能相同的服务时，只需调用execute，即可自动完成命令。　　利用SQL的语言可以编写对于数据库访问的存储过程，其语法如下：　　CREATE PROC[EDURE] procedure_name [;number] 　　[ 　　 data_type} ][VARYING] [= default] [OUTPUT] 　　] 　　[,...n] 　　[WITH　　　{ 　　RECOMPILE　　　| ENCRYPTION　　　| RECOMPILE, ENCRYPTION 　　} 　　] 　　[FOR REPLICATION] 　　AS 　　sql_statement [...n] 　　[ ]内的内容是可选项，而（）内的内容是必选项，　　例：若用户想建立一个删除表tmp中的记录的存储过程Select_delete可写为：　　Create Proc select_del As　　　Delete tmp　　　例：用户想查询tmp表中某年的数据的存储过程　　create proc select_query @year int as 　　select * from tmp where 　　在这里@year是存储过程的参数　　例：该存储过程是从某结点n开始找到最上层的父亲结点，这种经常用到的过程可以由存储过程来担当，在网页中重复使用达到共享。　　空：表示该结点为顶层结点　　fjdid(父结点编号)　　　结点n 非空：表示该结点的父亲结点号　　dwmc（单位名称）　　CREATE proc search_dwmc @dwidold int,@dwmcresult varchar(100) output 　　as　　　declare @stop int 　　declare @result varchar(80) 　　declare @dwmc varchar(80) 　　declare @dwid int 　　set nocount on 　　set @stop=1 　　set @dwmc="" 　　select @dwmc=dwmc,@dwid=convert(int,fjdid) from jtdw where 　　　set @result=rtrim(@dwmc) 　　if @dwid=0　　　set @stop=0 　　while (@stop=1) and (@dwid<>0) 　　begin 　　set @dwidold=@dwid 　　select @dwmc=dwmc,@dwid=convert(int,fjdid) from jtdw where 　　if @@rowcount=0　　　set @dwmc="" 　　else 　　set @result=@dwmc+@result 　　if (@dwid=0) or (@@rowcount=0)　　　set @stop=0 　　else 　　continue 　　end 　　set @dwmcresult=rtrim(@result) 　　使用exec pro-name [pram1 pram2.....]
[编辑本段]七、在SQL Server中执行存储过程：
　　sql语句执行的时候要先编译，然后执行。存储过程就是编译好了的一些sql语句。用的时候直接就可以用了。　　在SQL Server的查询分析器中，输入以下代码: 　　declare @tot_amt int 　　execute order_tot_amt 1,@tot_amt output 　　select @tot_amt 　　以上代码是执行order_tot_amt这一存储过程，以计算出定单编号为1的定单销售金额，我们定义@tot_amt为输出参数，用来承接我们所要的结果。　　存储过程具有以下特点：　　1.具有立即访问数据库的能力；　　2.是数据库服务器端的执行代码，在服务器执行操作时，减少网络通讯，提高执行效率。　　3.保证数据库安全，自动完成提前设定的作业。
[编辑本段]八、存储过程的缺点
　　1：调试麻烦，但是用 PL/SQL Developer 调试很方便！弥补这个缺点。　　2：移植问题，数据库端代码当然是与数据库相关的。但是如果是做工程型项目，基本不存在移植问题。　　3：重新编译问题，因为后端代码是运行前编译的，如果带有引用关系的对象发生改变时，受影响的存储过程、包将需要重新编译（不过也可以设置成运行时刻自动编译）。　　4：如果在一个程序系统中大量的使用存储过程，到程序交付使用的时候随着用户需求的增加会导致数据结构的变化，接着就是系统的相关问题了，{zh1}如果用户想维护该系统可以说是很难很难、而且代价是空前的。维护起来更加麻烦！
[编辑本段]九、存储过程中临时表的创建问题
　　（针对SQL2000/2OO5）　　可以创建本地和全局临时表。本地临时表仅在当前会话中可见；全局临时表在所有会话中都可见。　　本地临时表的名称前面有一个编号符 (#table_name)，而全局临时表的名称前面有两个编号符 (##table_name)。　　SQL 语句使用 CREATE TABLE 语句中为 table_name 指定的名称引用临时表：　　CREATE TABLE #MyTempTable (cola INT PRIMARY KEY) 　　INSERT INTO #MyTempTable VALUES (1) 　　如果本地临时表由存储过程创建或由多个用户同时执行的应用程序创建，则 SQL Server 必须能够区分由不同用户创建的表。为此，SQL Server 在内部为每个本地临时表的表名追加一个数字后缀。存储在 tempdb 数据库的 sysobjects 表中的临时表，其全名由 CREATE TABLE 语句中指定的表名和系统生成的数字后缀组成。为了允许追加后缀，为本地临时表指定的表名 table_name 不能超过 116 个字符。　　除非使用 DROP TABLE 语句显式除去临时表，否则临时表将在退出其作用域时由系统自动除去：　　当存储过程完成时，将自动除去在存储过程中创建的本地临时表。由创建表的存储过程执行的所有嵌套存储过程都可以引用此表。但调用创建此表的存储过程的进程无法引用此表。　　所有其它本地临时表在当前会话结束时自动除去。　　全局临时表在创建此表的会话结束且其它任务停止对其引用时自动除去。任务与表之间的关联只在单个 Transact-SQL 语句的生存周期内保持。换言之，当创建全局临时表的会话结束时，{zh1}一条引用此表的 Transact-SQL 语句完成后，将自动除去此表。　　十、特殊的存储过程-触发器　1.触发器的概念及作用　　触发器是一种特殊类型的存储过程，它不同于我们前面介绍过的存储过程。触发器主要是通过事件进行触发而被执行的，而存储过程可以通过存储过程名字而被直接调用。当对某一表进行诸如Update、 Insert、 Delete 这些操作时，SQL Server 就会自动执行触发器所定义的SQL 语句，从而确保对数据的处理必须符合由这些SQL 语句所定义的规则。　　触发器的主要作用就是其能够实现由主键和外键所不能保证的复杂的参照完整性和数据的一致性。除此之外，触发器还有其它许多不同的功能： (1) 强化约束(Enforce restriction) 　　触发器能够实现比CHECK 语句更为复杂的约束。　　(2) 跟踪变化Auditing changes 　　触发器可以侦测数据库内的操作，从而不允许数据库中未经许可的指定更新和变化。　　(3) 级联运行(Cascaded operation)。　　触发器可以侦测数据库内的操作，并自动地级联影响整个数据库的各项内容。例如，某个表上的触发器中包含有对另外一个表的数据操作(如删除，更新，插入)而该操作又导致该表上触发器被触发。　　(4) 存储过程的调用(Stored procedure invocation)。　　为了响应数据库更新触，发器可以调用一个或多个存储过程，甚至可以通过外部过程的调用而在DBMS( 数据库管理系统)本身之外进行操作。　　由此可见，触发器可以解决高级形式的业务规则或复杂行为限制以及实现定制记录等一些方面的问题。例如，触发器能够找出某一表在数据修改前后状态发生的差异，并根据这种差异执行一定的处理。此外一个表的同一类型(Insert、 Update、 Delete)的多个触发器能够对同一种数据操作采取多种不同的处理。　　总体而言，触发器性能通常比较低。当运行触发器时，系统处理的大部分时间花费在参照其它表的这一处理上，因为这些表既不在内存中也不在数据库设备上，而删除表和插入表总是位于内存中。可见触发器所参照的其它表的位置决定了操作要花费的时间长短。　　2.触发器的种类　　SQL Server 2000 支持两种类型的触发器：AFTER 触发器和INSTEAD OF 触发器。其中AFTER 触发器即为SQL Server 2000 版本以前所介绍的触发器。该类型触发器要求只有执行某一操作(Insert Update Delete) 之后，触发器才被触发，且只能在表上定义。可以为针对表的同一操作定义多个触发器。对于AFTER 触发器，可以定义哪一个触发器被{zx0}触发，哪一个被{zh1}触发，通常使用系统过程sp_settriggerorder 来完成此任务。　　INSTEAD OF 触发器表示并不执行其所定义的操作(Insert、 Update、 Delete)，而仅是执行触发器本身。既可在表上定义INSTEAD OF 触发器，也可以在视图上定义INSTEAD OF 触发器，但对同一操作只能定义一个INSTEAD OF 触发器。
[编辑本段]十一、Oracle中的存储过程：
1.创建过程
　　与其它的数据库系统一样，Oracle的存储过程是用PL/SQL语言编写的能完成一定处理功能的存储在数据库字典中的程序。　　语法: 　　create [or replace] procedure procedure_name 　　[ (argment [ { in| in out }] type, 　　argment [ { in | out | in out } ] type 　　{ is | as } 　　<类型.变量的说明> 　　 ( 注: 不用 declare 语句 ) 　　Begin 　　<执行部分> 　　exception 　　<可选的异常处理说明> 　　end; 　　l 这里的IN表示向存储过程传递参数，OUT表示从存储过程返回参数。而IN OUT 表示传递参数和返回参数；　　l 在存储过程内的变量类型只能指定变量类型；不能指定长度；　　l 在AS或IS 后声明要用到的变量名称和变量类型及长度；　　l 在AS或IS 后声明变量不要加declare 语句。
2.使用过程
　　存储过程建立完成后，只要通过授权，用户就可以在SQLPLUS 、Oracle开发工具或第三方开发工具来调用运行。Oracle 使用EXECUTE 语句来实现对存储过程的调用。　　语法：　　EXEC[UTE] procedure_name( parameter1, parameter2…);
3.开发过程
　　目前的几大数据库厂商提供的编写存储过程的工具都没有统一，虽然它们的编写风格有些相似，但由于没有标准，所以各家的开发调试过程也不一样。下面编写PL/SQL存储过程、函数、包及触发器的步骤如下：　　3.1 编辑存储过程源码使用文字编辑处理软件编辑存储过程源码，要用类似WORD 文字处理软件进行编辑时，要将源码存为文本格式。　　3.2 对存储过程程序进行解释在SQLPLUS或用调试工具将存储过程程序进行解释；　　在SQL>下调试，可用start 或get 等Oracle命令来启动解释。如：　　SQL>start c:\stat1.sql 　　如果使用调试工具，可直接编辑和点击相应的按钮即可生成存储过程。[1] 　　3.3 调试源码直到正确我们不能保证所写的存储过程达到一次就正确。所以这里的调试是每个程序员必须进行的工作之一。在SQLPLUS下来调试主要用的方法是：　　1．使用 SHOW ERROR命令来提示源码的错误位置；　　2．使用 USER_ERRORS 数据字典来查看各存储过程的错误位置。　　3.4 授权执行权给相关的用户或角色如果调试正确的存储过程没有进行授权，那就只有建立者本人才可以运行。所以作为应用系统的一部分的存储过程也必须进行授权才能达到要求。在SQLPLUS下可以用GRANT命令来进行存储过程的运行授权。　　语法：　　GRANT system_privilege | role TO user | role | PUBLIC 　　[WITH ADMIN OPTION] 　　或　　GRANT object_privilege | ALL column ON schema.object 　　TO user | role | PUBLIC WITH GRANT OPTION 　　其中：　　system_privilege: 系统权限　　role: 角色名　　user: 被授权的用户名　　object_privilege: 所授予的权限名字，可以是　　ALTER 　　DELETE 　　EXECUTE 　　INDEX 　　INSERT 　　REFERENCES 　　SELECT 　　UPDATE 　　Column: 列名　　schema: 模式名　　object: 对象名
4.数据字典
　　USER_SOURCE 用户的存储过程、函数的源代码字典　　DBA_SOURCE 整个系统所有用户的存储过程、函数的源代码字典　　ALL_SOURCE 当前用户能使用的存储过程(包括其她用户授权)、函数的源代码字典　　USER_ERRORS 用户的存储过程、函数的源代码存在错误的信息字典
---------------------------------------------------------------------------
sql的存储过程有点类似函数，c#里就像执行sql语句一样执行存储过程就行，

(1)执行一个没有参数的存储过程的代码如下：

(2)执行一个有参数的存储过程的代码如下（我们可以将调用存储过程的函数声明为ExeProcedure(string inputdate)）：

SqlConnection conn=new SqlConnection(“connectionString”);
SqlDataAdapter da = new SqlDataAdapter();
da.SelectCommand = new SqlCommand();
da.SelectCommand.Connection = conn;
da.SelectCommand.CommandText = "NameOfProcedure";
da.SelectCommand.CommandType = CommandType.StoredProcedure;
（以上代码相同，以下为要添加的代码）
param = new SqlParameter("@ParameterName", SqlDbType.DateTime);
param.Direction = ParameterDirection.Input;
param.Value = Convert.ToDateTime(inputdate);
da.SelectCommand.Parameters.Add(param);
这样就添加了一个输入参数。若需要添加输出参数：

param = new SqlParameter("@ParameterName", SqlDbType.DateTime);
param.Direction = ParameterDirection.Output;
param.Value = Convert.ToDateTime(inputdate);
da.SelectCommand.Parameters.Add(param);
若要获得参储过程的返回值：

param = new SqlParameter("@ParameterName", SqlDbType.DateTime);
param.Direction = ParameterDirection.ReturnValue;
param.Value = Convert.ToDateTime(inputdate);
da.SelectCommand.Parameters.Add(param);
------------------------------------------------------------------------
-------------------建立测试数据------------------------
if object_id('[Admin]') is not null
drop table [Admin]
go
create table [Admin](id int identity(1,1) primary key,
AdminType varchar(10),
Adminname varchar(10),
AdminPassword varchar(10))
go
--------------------存储过程开始--------------------------
if object_id('InsertAdmin','P') is not null
drop proc InsertAdmin
go

create proc InsertAdmin
@AdminType varchar(10),
@Adminname varchar(10),
@AdminPassword varchar(10)
as
begin
--declare @sql varchar(1000)
insert into [Admin](AdminType,Adminname,Adminpassword) values
()
end

exec InsertAdmin '管理员','admin','admin'

select * from [Admin]
--------------------结果----------------------------
/*
id AdminType Adminname AdminPassword
----------- ---------- ---------- -------------
1 管理员 admin admin

(1 行受影响)

*/
SQL Server导出表到EXCEL文件的存储过程
发布时间：2008.07.11 09:00 来源：赛迪网作者：小乔
【赛迪网－IT技术报道】SQL Server导出表到EXCEL文件的存储过程:

*--数据导出EXCEL

导出表中的数据到Excel,包含字段名,文件为真正的Excel文件

,如果文件不存在,将自动创建文件

,如果表不存在,将自动创建表

基于通用性考虑,仅支持导出标准数据类型

---*/

/**//*--调用示例

p_exporttb @tbname='地区资料',@path='c:',@fname='aa.xls'

--*/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exporttb]') and

OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[p_exporttb]

create proc p_exporttb

@tbname sysname, --要导出的表名,注意只能是表名/视图名

@path nvarchar(1000), --文件存放目录

@fname nvarchar(250)='' --文件名,默认为表名

declare @err int,@src nvarchar(255),@desc nvarchar(255),@out int

declare @obj int,@constr nvarchar(1000),@sql varchar(8000),@fdlist varchar(8000)

--参数检测

if isnull(@fname,'')='' set @fname=@tbname+'.xls'

--检查文件是否已经存在

if right(@path,1)<>'' set @path=@path+''

create table #tb(a bit,b bit,c bit)

set @sql=@path+@fname

insert into #tb exec master..xp_fileexist @sql

--数据库创建语句

set @sql=@path+@fname

if exists(select 1 from #tb where a=1)

set @constr='DRIVER={Microsoft Excel Driver (*.xls)};DSN='''';READONLY=FALSE'

+';CREATE_DB="

else

set @constr='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 5.0;HDR=YES'

+';DATABASE='+@sql+'"'

--连接数据库

exec @err=sp_oacreate 'adodb.connection',@obj out

if @err<>0 goto lberr

exec @err=sp_oamethod @obj,'open',null,@constr

if @err<>0 goto lberr

--创建表的SQL

select @sql='',@fdlist=''

select @fdlist=@fdlist+','+a.name

,@sql=@sql+',['+a.name+'] '

+case when b.name in('char','nchar','varchar','nvarchar') then

'text('+cast(case when a.length>255 then 255 else a.length end as varchar)+')'

when b.name in('tynyint','int','bigint','tinyint') then 'int'

when b.name in('smalldatetime','datetime') then 'datetime'

when b.name in('money','smallmoney') then 'money'

else b.name end

FROM syscolumns a left join systypes b on a.xtype=b.xusertype

where b.name not in

('image','text','uniqueidentifier','sql_variant','ntext','varbinary','binary','timestamp')

and object_id(@tbname)=id

select @sql='create table ['+@tbname

+']('+substring(@sql,2,8000)+')'

,@fdlist=substring(@fdlist,2,8000)

exec @err=sp_oamethod @obj,'execute',@out out,@sql

if @err<>0 goto lberr

exec @err=sp_oadestroy @obj

--导入数据

set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES

;DATABASE='+@path+@fname+''',['+@tbname+'$])'

exec('insert into ) select from )

return

lberr:

exec sp_oageterrorinfo 0,@src out,@desc out

lbexit:

select cast(@err as varbinary(4)) as 错误号

,@src as 错误源,@desc as 错误描述

select @sql,@constr,@fdlist

*--数据导出EXCEL

导出查询中的数据到Excel,包含字段名,文件为真正的Excel文件

,如果文件不存在,将自动创建文件

,如果表不存在,将自动创建表

基于通用性考虑,仅支持导出标准数据类型

--*/

/**//*--调用示例

p_exporttb @sqlstr='select * from 地区资料'

,@path='c:',@fname='aa.xls',@sheetname='地区资料'

--*/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exporttb]') and

OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[p_exporttb]

create proc p_exporttb

@sqlstr sysname, --查询语句,如果查询语句中使用了order by ,请加上top 100 percent,注意,如果导

出表/视图,用上面的存储过程

@path nvarchar(1000), --文件存放目录

@fname nvarchar(250), --文件名

@sheetname varchar(250)='' --要创建的工作表名,默认为文件名

declare @err int,@src nvarchar(255),@desc nvarchar(255),@out int

declare @obj int,@constr nvarchar(1000),@sql varchar(8000),@fdlist varchar(8000)

--参数检测

if isnull(@fname,'')='' set @fname='temp.xls'

if isnull(@sheetname,'')='' set @sheetname=replace(@fname,'.','#')

--检查文件是否已经存在

if right(@path,1)<>'' set @path=@path+''

create table #tb(a bit,b bit,c bit)

set @sql=@path+@fname

insert into #tb exec master..xp_fileexist @sql

--数据库创建语句

set @sql=@path+@fname

if exists(select 1 from #tb where a=1)

set @constr='DRIVER={Microsoft Excel Driver (*.xls)};DSN='''';READONLY=FALSE'

+';CREATE_DB="

else

set @constr='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 5.0;HDR=YES'

+';DATABASE='+@sql+'"'

--连接数据库

exec @err=sp_oacreate 'adodb.connection',@obj out

if @err<>0 goto lberr

exec @err=sp_oamethod @obj,'open',null,@constr

if @err<>0 goto lberr

--创建表的SQL

declare @tbname sysname

set @tbname='##tmp_'+convert(varchar(38),newid())

set @sql='select * into ['+@tbname+'] from() a'

exec(@sql)

select @sql='',@fdlist=''

select @fdlist=@fdlist+','+a.name

,@sql=@sql+',['+a.name+'] '

+case when b.name in('char','nchar','varchar','nvarchar') then

'text('+cast(case when a.length>255 then 255 else a.length end as varchar)+')'

when b.name in('tynyint','int','bigint','tinyint') then 'int'

when b.name in('smalldatetime','datetime') then 'datetime'

when b.name in('money','smallmoney') then 'money'

else b.name end

FROM tempdb..syscolumns a left join tempdb..systypes b on a.xtype=b.xusertype

where b.name not in

('image','text','uniqueidentifier','sql_variant','ntext','varbinary','binary','timestamp')

and a.id=(select id from tempdb..sysobjects where )

select @sql='create table ['+@sheetname

+']('+substring(@sql,2,8000)+')'

,@fdlist=substring(@fdlist,2,8000)

exec @err=sp_oamethod @obj,'execute',@out out,@sql

if @err<>0 goto lberr

exec @err=sp_oadestroy @obj

--导入数据

set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES

;DATABASE='+@path+@fname+''',['+@sheetname+'$])'

exec('insert into ) select from ['+@tbname+']')

set @sql='drop table ['+@tbname+']'

exec(@sql)

return

lberr:

exec sp_oageterrorinfo 0,@src out,@desc out

lbexit:

select cast(@err as varbinary(4)) as 错误号

,@src as 错误源,@desc as 错误描述

select @sql,@constr,@fdlist

郑重声明：资讯【存储过程_№ぽ夜夢サミ的空间_百度空间】由发布，版权归原作者及其所在单位，其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实，请读者仅作参考，并请自行核实相关内容。若本文有侵犯到您的版权，请你提供相关证明及申请并与我们联系（qiyeku # qq.com）或【在线投诉】，我们审核后将会尽快处理。

—— 相关资讯 ——