VB调用存储过程恢复数据库遇到一个奇怪的问题，高手来看一下，分不够再加！

Question

传递了三个参数：其中有两个路径，参数比较长，执行存储过程时，在SQL事件查看器中发现最后有一部分字符被截取了，这是什么原因？？？
----------------------存储过程如下--------------------------------------------------------create proc p_RestoreDb
@bkfile nvarchar(1000),  --定义要恢复的备份文件名
@dbname sysname='',      --定义恢复后的数据库名,默认为备份的文件名
@dbpath nvarchar(260)='', --恢复后的数据库存放目录,不指定则为SQL的默认数据目录
@retype nvarchar(10)='DB', --恢复类型:'DB'完事恢复数据库,'DBNOR' 为差异恢复,日志恢复进行完整恢复,'DF' 差异备份的恢复,'LOG' 日志恢复
@filenumber int=1,   --恢复的文件号
@overexist bit=1,        --是否覆盖已经存在的数据库,仅@retype为
@killuser bit=1       --是否关闭用户使用进程,仅@overexist=1时有效
as
declare @sql varchar(8000)--得到恢复后的数据库名
if isnull(@dbname,'')=''
 select @sql=reverse(@bkfile)
  ,@sql=case when charindex('.',@sql)=0 then @sql
   else substring(@sql,charindex('.',@sql)+1,1000) end
  ,@sql=case when charindex('\',@sql)=0 then @sql
   else left(@sql,charindex('\',@sql)-1) end
  ,@dbname=reverse(@sql)--得到恢复后的数据库存放目录
if isnull(@dbpath,'')='' set @dbpath=dbo.f_getdbpath('')--生成数据库恢复语句
set @sql='restore '+case @retype when 'LOG' then 'log ' else 'database ' end+@dbname
 +' from disk='''+@bkfile+''''
 +' with file='+cast(@filenumber as varchar)
 +case when @overexist=1 and @retype in('DB','DBNOR') then ',replace' else '' end
 +case @retype when 'DBNOR' then ',NORECOVERY' else ',RECOVERY' end
print @sql
--添加移动逻辑文件的处理
if @retype='DB' or @retype='DBNOR'
begin
 --从备份文件中获取逻辑文件名
 declare @lfn nvarchar(128),@tp char(1),@i int --创建临时表,保存获取的信息
 create table #tb(ln nvarchar(128),pn nvarchar(260),tp char(1),fgn nvarchar(128),sz numeric(20,0),Msz numeric(20,0))
 --从备份文件中获取信息
 insert into #tb exec('restore filelistonly from disk='''+@bkfile+'''')
 declare #f cursor for select ln,tp from #tb
 open #f
 fetch next from #f into @lfn,@tp
 set @i=0
 while @@fetch_status=0
 begin
  select @sql=@sql+',move '''+@lfn+''' to '''+@dbpath+@dbname+cast(@i as varchar)
   +case @tp when 'D' then '.mdf''' else '.ldf''' end
   ,@i=@i+1
  fetch next from #f into @lfn,@tp
 end
 close #f
 deallocate #f
end--关闭用户进程处理
if @overexist=1 and @killuser=1
begin
 declare @spid varchar(20)
 declare #spid cursor for
  select spid=cast(spid as varchar(20)) from master..sysprocesses where dbid=db_id(@dbname)
 open #spid
 fetch next from #spid into @spid
 while @@fetch_status=0
 begin  
  exec('kill '+@spid)
  fetch next from #spid into @spid
 end  
 close #spid
 deallocate #spid
end--恢复数据库
exec(@sql)
GO---------------------------------用户自定义函数如下--------------------------------------------------------------------------
create function f_getdbpath(@dbname sysname)
returns nvarchar(260)
as 
begin
 declare @re nvarchar(260)
 if @dbname is null or db_id(@dbname) is null
  select @re=rtrim(reverse(filename)) from master..sysdatabases where name='master'
 else
  select @re=rtrim(reverse(filename)) from master..sysdatabases where name=@dbname if @dbname is null
  set @re=reverse(substring(@re,charindex('\',@re)+5,260))+'BACKUP'
 else
  set @re=reverse(substring(@re,charindex('\',@re),260))
 return(@re)
end----------------------VB程序如下：------------------------------
Set ConnADO = New ADODB.Connection
        ConnADO.ConnectionString = "Provider=SQLOLEDB.1;Password=" & HostInfo.SqlPassword & ";Persist Security Info=True;User ID=" & HostInfo.SqlUserName & ";Initial Catalog=master;Data Source=" & HostInfo.SqlHostName
        ConnADO.Open
        
        MyComm.ActiveConnection = ConnADO
        MyComm.CommandText = "p_RestoreDb"
        MyComm.CommandType = adCmdStoredProc
        Set Param = MyComm.CreateParameter("bkfile", adVarChar, adParamInput, 1000, NewPath)
        MyComm.Parameters.Append Param
        Set Param = MyComm.CreateParameter("dbname", adVarChar, adParamInput, 256, HostInfo.SqlDataName)
        MyComm.Parameters.Append Param
        Set Param = MyComm.CreateParameter("dbpath", adVarChar, adParamInput, 260, HostInfo.SqlPath)
        MyComm.Parameters.Append Param
        
        MyComm.Execute

Answer 1

这个存储过程，我在查询分析器中运行，没有任何问题：
exec p_RestoreDb @bkfile='D:\恒拓项目\移动结算和WEB服务\移动付款结算系统(Client)\Data\20070727.bak',@dbname='YDJS','D:\恒拓项目\移动结算和WEB服务\移动付款结算系统(Client)\Data\'但是在VB中调用是就不行
最后指定恢复路径时，总是被截掉了一部分郁闷死了，高手快帮我看看，这是什么问题啊
在此先提前谢过了，分不够我再加

Answer 2

我的恢复路径为
D:\uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu\yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy\但是事件查看器中路径为
exec p_RestoreDb 'D:\恒拓项目\移动结算和WEB服务\移动付款结算系统(Client)\Data\20070727.bak', 'YDJS', 'D:\uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu'后面的给截取了是不是存储过程的参数有长度的限制
是VB有这个限制吗
如果是的话，他限制多少个字符
一直搞不清楚这个问题

Answer 3

我在查询分析器中运行没有问题
说明不是SQL限制

Answer 4

我试过了
把恢复路径直接写成一个字符串就可以了从INI文件读取，然后再赋值给变量
恢复路径传递这个个变量值就不行

Answer 5

把你从ini取值的代码贴来看看。