VB6调用SQL系统存储过程不正确

Question

sp_attach_db  @dbname  =  'Power',  @filename1  =  'd:\eHRPower_Data\Power.mdf',@filename2  ='d:\Power_Data\Power.ldf'  
以上语句在SQL的查询分析器里执行正确，但以下得代码在VB6里执行不正确，  
       Set  cn  =  New  ADODB.Connection  
       linkCn  =  "Provider=SQLOLEDB.1;Password=aa;Persist  Security  Info=True;User  ID=sa;Data  Source=abc"  
       cn.Open  linkCn  
 
       Dim  adoCom  As  New  ADODB.Command  
         
       Set  adoCom.ActiveConnection  =  cn  
       adoCom.CommandType  =  adCmdStoredProc  
         
       adoCom.CommandText  =  "sp_attach_db  @dbname  =  'Power',  @filename1  =  'd:\Power_Data\Power.mdf',@filename2  ='d:\Power_Data\Power.ldf'"  
       adoCom.Execute  
提示语法错误或违反访问规则，请高手指点！

Answer 1

Set  cn  =  New  ADODB.Connection  
       linkCn  =  "Provider=SQLOLEDB.1;Password=aa;Persist  Security  Info=True;User  ID=sa;Data  Source=abc"  
       cn.Open  linkCn  
 
       Dim  adoCom  As  New  ADODB.Command  
         
       Set  adoCom.ActiveConnection  =  cn  
       adoCom.CommandType  =  adCmdStoredProc  
         
       adoCom.CommandText  =  "sp_attach_db"
       adoCom.Parameter("@dbname") = "Power"
       adoCom.Parameter("@filename1") = "d:\eHRPower_Data\Power.mdf"
       adoCom.Parameter("@filename2") = "d:\eHRPower_Data\Power.ldf"
 
       adoCom.Execute

Answer 2

Dim adoCom   As New ADODB.Command
         
       Set adoCom.ActiveConnection = cn
       adoCom.CommandType = adCmdStoredProc
       adoCom.CommandText = "sp_attach_db"
       adoCom.Parameters.Append adoCom.CreateParameter("@dbname", adVarChar, adParamInput, 50, strValue1)
       adoCom.Parameters.Append adoCom.CreateParameter("@filename1", adVarChar, adParamInput, 50, strValue2)
       adoCom.Parameters.Append adoCom.CreateParameter("@filename2", adVarChar, adParamInput, 50, strValue2)
       adoCom.Execute

Answer 3

也可以不用Command对象。
直接用Con.execute "sp_attach_db  @dbname  =  'Power',  @filename1  =  'd:\eHRPower_Data\Power.mdf',@filename2  ='d:\Power_Data\Power.ldf'"

Answer 4

用Command的试过了吗？有问题吗？