SQL导出DBF字段名被截取

悬赏园豆：80 [已解决问题] 解决于 2008-08-11 12:43

最近做项目要求从SQL中导出数据到VF，但DBF表之前不存在，导出时要新建DBF表，在网上看到下面的存储过程。用的过程中发现如果我的字段名长度大于10就会出问题，因为VF的自由表字段名长度最大只能为10，数据库表可以允许为128，在存储过程中新建表字段名被截取前10个字符，导出数据时SQL的字段和DBF字段就不匹配了，希望有人能帮忙看下该如何改进。       /*--数据导出dBase    导出查询语句中的数据到dBase,如果文件不存在,将自动创建文件  基于通用性考虑,仅支持导出标准数据类型 --*/ /*--调用示例  --导出dBase  p_exportvf @sqlstr='select * from t_tdd',@path='d:\',@over=1 --*/ if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exportvf]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[p_exportvf] GO create proc p_exportvf @sqlstr varchar(8000),   --要导出的查询名 @path nvarchar(1000),   --文件存放目录 @fname nvarchar(250)='temp.dbf',--文件名,默认为temp @over bit=0      --是否覆盖已经存在的文件,如果不覆盖,则直接追加 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.dbf' --检查文件是否已经存在 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 if exists(select 1 from #tb where a=1)  if @over=1  begin   set @sql='del <A href="mailto:'+@sql">'+@sql</A>   exec master..xp_cmdshell @sql,no_output  end  else   set @over=0 else  set @over=1 --数据库创建语句 set @sql=@path+@fname set @constr='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="dBASE 5.0;'  +';HDR=NO;DATABASE='+@path+'"' --创建表的SQL declare @tbname sysname set @tbname='##tmp_'+convert(varchar(38),newid()) set @sql='select * into ['+@tbname+'] from(<A href="mailto:'+@sqlstr+'">'+@sqlstr+'</A>) a' exec(@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>250 then 250 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 <A href="mailto:name=@tbname">name=@tbname</A>) select @sql='create table ['+@fname  +']('+substring(@sql,2,8000)+')'  ,@fdlist=substring(@fdlist,2,8000) if @over=1 begin  exec @err=sp_oamethod @obj,'execute',@out out,@sql  if @err<>0 goto lberr end exec @err=sp_oadestroy @obj set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''dBase 5.0;DATABASE='  <A href="mailto:+@path+''',''select">+@path+''',''select</A> * from ['+@fname+']'')' --导入数据 exec('insert into <A href="mailto:'+@sql+'('+@fdlist+'">'+@sql+'('+@fdlist+'</A>) select <A href="mailto:'+@fdlist+'">'+@fdlist+'</A> 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 go

数据库 SQL Server

问题补充： 急！急！急！加分我也是以前从没弄过VF 项目要求导出DBF表 VFP表分为两种： 1、数据库表字段名长度最长可以为128 2、自由表字段名长度最长可以为10 就是查到这个,看能不能新建VFP数据库表...

斌 | 初学一级 | 园豆：150
提问于：2008-08-01 17:45

< >

最佳答案

如果VF的10字符限制无法绕过，那么只有两条路：一是修改原数据库的字段名保持到10以下二是不一样就不一样，数据过去再说无论哪一个，使用这些数据的程序都得做不小的改动，呵呵，没有用过VF，不晓得能不能绕过限制

丁学 | 专家六级 |园豆：18730 | 2008-08-02 12:01

其他回答(2)

很久很久以前，也曾经弄过VF，不过是从VF将数据弄到SQLSERVER中，因此没有遇到过你的这个问题建议直接使用SQLSERVER的导入导出向导，导的时候改改数据库对象的名称。或者用SSIS也行，那个自定义的能力强大得多。 PS：在不同数据源之间转换数据，有些修改是无法避免的。记得当年有一次要把SQLSERVER中的数据导到Oracle中，直接把我折腾得只剩半条命了……

电机拖动 | 园豆：1295 (小虾三级) | 2008-08-03 18:09

t_tdd,呵呵招生人士！

杀猪屠龙刀 | 园豆：202 (菜鸟二级) | 2012-11-09 23:05

清除回答草稿

您需要登录以后才能回答，未注册用户请先注册。

欢迎，请先 登录 或者 注册 。

SQL导出DBF字段名被截取

欢迎，请先登录或者注册。