rt

解决方案 »

  1.   

    Dim CMD As New ADODB.Command
                
                CMD.ActiveConnection = Cn
                CMD.CommandType = adCmdStoredProc
                CMD.CommandText = "Proc1"         Set paraM1 = CMD.CreateParameter("@param1", adVarChar, adParamInput, LenB(a), a)
             CMD.Parameters.Append paraM1 '参数1
            Set paraM1 = CMD.CreateParameter("@param2", adVarChar,adParamOutput)   '返回的参数           
    CMD.Parameters.Append paraM1
                 CMD.Execute
                 msgbox CMD.Parameters ("@param2")
      

  2.   

    CMD.Parameters.Append paraM1编译器说这句话有问题