當字段類型為 adNumeric 時，VBScript 類型類型不符

本文可協助您解決欄位類型為 adNumeric時所發生的類型不符錯誤。

原始產品版本：網際網路資訊服務
原始 KB 編號： 195180

徵兆

當您使用 VBScript 對 adNumeric （131） 字段類型執行數值比較或計算時，可能會傳回下列錯誤：

Microsoft VBScript 執行階段錯誤「800a000d」
類型不符
Microsoft VBScript 運行時錯誤 '800a01ca' 變數使用 VBScript 中不支援的自動化類型

原因

發生錯誤的原因是 VBScript 無法正確將值轉換成 adNumeric 有效的數值類型。

解決方法

您可以使用下列兩種可能的因應措施之一：

• adNumeric使用 CDbl() 或 CInt() 轉換欄位，如下列範例所示：

   <%@ LANGUAGE="VBScript"%>
   <%
   Set oConn = Server.CreateObject("ADODB.Connection")
   oConn.Open "MyDSN", "MyUserID", "MyPassWord"
   set oRS = oConn.Execute("Select list_price FROM DEMO.PRICE")
   Response.Write("List Price * 100 = " & CDbl(oRS("list_price")) * 100)
   %>
  

• 使用 JScript，因為 JScript 不會顯示此行為。

重現行為的步驟

下列程式代碼會展示上述錯誤：

<%
 Set oConn = Server.CreateObject("ADODB.COnnection")
 oConn.Open "MyDSN", "MyUserID", "MyPassWord"
 set oRS = oConn.Execute("Select list_price FROM DEMO.PRICE")'This is the bad line of code, "list_price" is being returned as
 'type adNumeric.
 Response.Write("List Price * 100 = " & oRS("list_price") * 100)
 %>