大侠们,帮帮忙啊

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

晕.
你上面的是想建立一个控件?
为什么不用数组呢?比如: 先设置 Cmd.index=0load cmd(cmd.count)
cmd(cmd.count-1).visible=true

Answer 3

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 4

Cmd.Parameters.Delete (1) 
Cmd.Parameters.Delete (0) 位置改一下.先1 再 0