请教ado的commandtype的问题

[megson]

Set myDBConnection = myGetDBConnection ()
Set myDBCommand = Server.CreateObject ("ADODB.Command")
myDBCommand.ActiveConnection = myDBConnection
With myDBCommand
.CommandText = "{call emp_Update(?, ?, ?, ?, ?, ?)}"
.CommandType = adCmdText
.Parameters(0).Value = varMgr
.Parameters(1).Value = CInt(varSalary)
.Execute()
End With

为什么老说我-----变量未定义: 'adCmdText'----啊

我要是在前面加一项dim adCmdText
则说我：

<font color="red"ADODB.Command 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。 </font>

[megson]

ADODB.Command 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

[megson]

忘了说了，连的是oracle

[nittystone]

我是這麽勇的
set con=server.createobject(“ADODB.Connection”)
con.open dsn
set cmd=server.createobject("ADODB.Command")
set cmd.ActiveConnection=Con
cmd.CommandText= storename
cmd.Commandtype=adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@State",adInteger,adParamInput,4)
cmd.Parameters.Append cmd.CreateParameter("@WhereT",adVarChar,adParamInput,200)
cmd.Parameters.Append cmd.CreateParameter("@BranchType",adVarChar,adParamInput,50)
cmd("@State") = 1
cmd("@WhereT")=”2”
cmd("@BranchType")=”3”
set rs=server.CreateObject("adodb.recordset")
rs.CursorType =3
rs.LockType =3
rs.CursorLocation =3
set rs.Source =cmd
rs.Open

[megson]

那有人能否解释以下为何说我----变量未定义: 'adCmdText'-----呢？

[megson]

up

[nittystone]

adCmdText 你的这个没有定义。
是不是没有引入那个adodll