Vbscript 无法识别adChar和adParamInput

我正在进行sql到oracle的迁移。我必须更改很多旧的vbscript代码。 这是我在Oracle中使用的新代码的一个示例。 这是导致问题的代码位

cmd.CreateParameter("v_CdEnt", adChar, adParamInput, 4, Request("ENTIDADE"))

由于某种原因，由于adChar和adParamInput，我得到了一个错误。如果我使用

cmd.CreateParameter("v_CdEnt", 129 , 1 , 4, Request("ENTIDADE"))

使用常量的值，一切正常。 有什么想法吗

Set cmd = Server.CreateObject("ADODB.Command")
                            Set oRS = Server.CreateObject("ADODB.Recordset")

                            With cmd
                                .ActiveConnection   = GlobaloConn
                                .CommandText        = "GetBalcoes"
                                .CommandType        = 4 'adCmdStoredProc
                                .Parameters.Append cmd.CreateParameter("v_CdEnt", adChar, adParamInput, 4, Request("ENTIDADE"))
                            End With

                            Set oRS = cmd.Execute  

                            do while not oRS.Eof 
                                If oRS.Fields(1) = Request("BALCAO") then
                                    %><option value="<%=oRS.Fields(1)%>" selected="selected"><%=left(oRS.Fields(2), 30)  & "-" & oRS.Fields(1)%></option>
                                    <%
                                Else
                                    %><option value="<%=oRS.Fields(1)%>"><%=left(oRS.Fields(2), 30)  & "-" & oRS.Fields(1)%></option>
                                    <%
                                End If
                                oRS.MoveNext
                            loop

                            oRS.Close

                            Set oRS  = nothing
                            Set cmd  = nothing

Set cmd=Server.CreateObject（“ADODB.Command”）
Set oRS=Server.CreateObject（“ADODB.Recordset”）
使用cmd
.ActiveConnection=GlobaloConn
.CommandText=“GetBalcoes”
.CommandType=4'adCmdStoredProc
.Parameters.Append cmd.CreateParameter（“v_CdEnt”，adChar，adParamInput，4，请求（“ENTIDADE”））
以
设置oRS=cmd.Execute
不使用oRS.Eof时请勿使用
如果oRS.字段（1）=请求（“BALCAO”），则
%>
VBScript不知道ADODB的ad*常量。顺便说一句，Excel或Word的xls*或wd*常量也是如此

对于ad*常量，您可以：

只需使用数字（带有注释；例如，
.CommandType=4'adCmdStoredProc
）
自己定义它们（例如，Const adCmdStoredProc=4

）

包括（已编辑的版本）

---

VBScript不知道ADODB的ad*常量。顺便说一句，Excel或Word的xls*或wd*常量也是如此

对于ad*常量，您可以：

只需使用数字（带有注释；例如，

.CommandType=4'adCmdStoredProc

）

自己定义它们（例如，Const adCmdStoredProc=4）

包括（已编辑的版本）

---

是的，这是我同时发现的。我使用了选项1。它起作用了。是的，这是我同时发现的。我使用了选项1。它起作用了。tks。