vbscript - 这个 ASP 代码可以容纳多大的数字？

Question

'   Now get a Location_ID 
'
    Set RS = DB.Execute (AF.SQL("GenerateLocationID"))
    Location_ID = CInt (RS(0).Value)
    RS.Close

这正在写入使用 Number(10) 定义的 Oracle 数据库，但返回以下错误:

Microsoft VBScript runtime error '800a0006'

Overflow: 'CInt'

我很怀疑，因为 Oracle 表中的最大值现在是 32767。创建 ID 的代码是否存在限制？

(AF.SQL("GenerateLocationID") 是 'Select Location_ID.NextVal from Dual'，所以它只是一个标准的 Oracle 选择语句。

Answer 1

@thursdaysgeek:快速修复可能是 --

Location_ID = CLng(RS(0).Value)

或者如果你想调试它

On Error Resume Next
Location_ID = CInt(RS(0).Value)
If Err.Number <> 0 Then
    Response.Write RS(0).Value
End If
On Error GoTo 0