日期:2014-05-19  浏览次数:20487 次

从数据库导出到客户端excel中,用的是邹建大哥的程序,提示错误,不知道如何解决
机器装的是office2003
sqlserver2000

运行时查询分析器提示错误如下:

0x80004005
Microsoft   OLE   DB   Provider   for   ODBC   Drivers        
[Microsoft][ODBC   驱动程序管理器]   未发现数据源名称并且未指定默认驱动程序


c:\aa.xls
DRIVER={Microsoft       Excel       Driver       (*.xls)};DSN= '192.168.25.200 ';READONLY=FALSE;CREATE_DB= "c:\aa.xls ";DBQ=c:\aa.xls


运行代码如下:
exec   p_exporttb     @sqlstr= 'select       *       from       ffc ',@path= 'c:\ ',@fname= 'aa.xls ',@sheetname= '地区资料 '  


源程序如下,没有修改过
    CREATE       proc       p_exporttb      
    @sqlstr       varchar(8000),   --查询语句,如果查询语句中使用了order       by       ,请加上top       100       percent      
    @path       nvarchar(1000),   --文件存放目录      
    @fname       nvarchar(250),   --文件名      
    @sheetname       varchar(250)= ' '   --要创建的工作表名,默认为文件名      
    as          
    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= ' ' ' &#