char)+'')''
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''+@sql+''(''+@fdlist+'') select''+@fdlist+''from''+@tbname)
return
lberr:
exec sp_oageterrorinfo 0,@src out,@desc out
lbexit:
select cast(@er