大侠们,存储过程参数问题,急!!!!!!!!

Question

Private Sub Command1_Click()
  Cmd.CommandText = "pic_insert"
  Cmd.Parameters.Append Cmd.CreateParameter("varPwd", adVarChar, adParamOutput, 40)
  Cmd.Execute
  MsgBox Cmd("varPwd")
End Sub
执行第一次没有出现问题,第二次时出现:实时错误 '-2147467259 (80004005)':ora-01036:非法的变量名/编号怎样才能解决掉这个问题
想在执行前清空参数,该怎样清空

Answer 1

自己给自己解决　哈哈
Private Sub Command1_Click() 
  Cmd.CommandText = "pic_insert" 
  Cmd.Parameters.Append Cmd.CreateParameter("varPwd", adVarChar, adParamOutput, 40) 
  Cmd.Execute 
  MsgBox Cmd("varPwd") 
　Cmd.parameters.delete(0)
End Sub 

Answer 2

Private Sub Command1_Click()
  Cmd.CommandText = "pic_insert"
  Cmd.Parameters.Append Cmd.CreateParameter("FILENAME", adVarChar, adParamInput, 40, "08041012233001030010020852浙B13945.jpg")
  Cmd.Parameters.Append Cmd.CreateParameter("varPwd", adInteger, adParamOutput, 40)
  Cmd.Execute
  MsgBox Cmd("varPwd")
  MsgBox Cmd.Parameters.Count
  Cmd.Parameters.Delete (0)
  Cmd.Parameters.Delete (1)
End Sub
这次又不对了,执行时出现:实时错误'3265' 在对应所需名称或序数的集合中,未找到项目

Answer 3

问题出在Cmd.Parameters.Delete (1)这句,请大侠不吝赐教 

Answer 4

自己又解决了 原来要先Cmd.Parameters.Delete (1)再  Cmd.Parameters.Delete (0) 才行