SQL_SERVER数据 导出 Access数据

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]


GO






/**//*--数据导出Access


导出数据库中的表到Access


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


    如果表存在,将覆盖现有的表


    支持导出所有的数据类型




/*--调用示例


p_exporttb @s_tbname='sysobjects',@path='c:/',@fname='test.mdb'


--*/


create proc p_exporttb


@s_tbname sysname,            --要导出的表名


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


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


@tbname varchar(250)='',        --要创建的表名,默认为导出的表名


@password varchar(20)='',        --ACCESS数据库的密码


@s_user sysname='',            --如果提示连接错误,则需要提供登陆sql服务器的用户名及密码


@s_password varchar(50)=''


as 


set nocount on


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.mdb'


if isnull(@tbname,'')='' set @tbname=@s_tbname




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


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


set @sql=@path+@fname


exec master..xp_fileexist @sql,@err out




--数据库创建


select @sql=@path+@fname


    ,@constr='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+@sql


        +case isnull(@password,'') when '' then '' 


            else ';Jet OLEDB:Database Password='+@password end




if @err=0


begin


    exec @err=sp_oacreate 'ADOX.Catalog',@obj out


    if @err<>0 goto lberr




    exec @err=sp_oamethod @obj,'Create',@out out,@constr


    if @err<>0 goto lberr




    exec @err=sp_oadestroy @obj


    if @err<>0 goto lberr


end




--连接数据库


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




--删除现有的表


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


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


--if @err<>0 goto lberr




--导入表


if isnull(@s_user,'')=''


    set @sql='SELECT * into ['+@tbname


        +'] FROM [ODBC;Driver=SQL Server;Server='+ @@servername


        +';database='+db_name()+'].['+@s_tbname+']'


else


    set @sql='SELECT * into ['+@tbname


        +'] FROM [ODBC;Driver=SQL Server;Server='+ @@servername


        +';Uid='+@s_user+';Pwd='+isnull(@s_password,'')


        +';database='+db_name()+'].['+@s_tbname+']'


    


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


if @err<>0 goto lberr




exec @err=sp_oamethod @obj,'close',null


if @err<>0 goto lberr




exec @err=sp_oadestroy @obj




return




lberr:


    exec sp_oageterrorinfo 0,@src out,@desc out


    if @obj<>0 exec @err=sp_oadestroy @obj


lbexit:


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


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


    select @sql,@constr,@fdlist


go