2

レコードセットから取得したデータを編集することはできますか？私の場合、合計を取得できるように数量を合計しようとしています。したがって、私がやろうとしていることの例は次のようになります。

<% 
   set rs = server.CreateObject("ADODB.recordset")
   totalqty = 0

   do NOT while rs.EOF
       totalqty = totalqty + rs("QTY")
   loop
>%

このようなことをしようとすると、常に「Type MisMatch」エラーが発生し、この問題を解決する方法がわかりません。

いつものように、ありとあらゆる助けをいただければ幸いです。

4

2 に答える 2

1

次のように、レコードセットの値を「キャスト」してみてください。

CDbl( rs.fields("QTY").value )

これにより、値がdoubleにキャストされます。値がnullの場合、エラーが発生するため、最初にそれを確認する必要があります...

または、常に正しいタイプを取得する関数を作成できます。

public function parse(value, alternative)
    dim val
    val = trim(value & "")
    parse = alternative
    if val = "" then exit function
    on error resume next
    select case varType(parse)
        case 2, 3 'integer, long
            parse = cLng(val)
        case 4, 5 'single, double
            parse = cdbl(val)
        case 6  'currency
            parse = ccur(val)
        case 7 'date
            parse = cDate(val)
        case 11 'bool
            parse = cBool(val)
        case 8 'string
            parse = value & ""
        case else
            on error goto 0
            lib.throwError("type not supported. val:" & value & " alt:" & alternative)
    end select
    on error goto 0
end function

dim val : val = rs("QTY")
val = parse(val, 0)

' now val is always an integer (either the value from db or 0)
于 2012-07-19T13:58:10.257 に答える
0

ulluoinkのソリューションは機能しますが、これはより簡単です...

function ToDbl(vIn, nDefault)
    'Convert a variant to an integer using default where necessary
    if isnull(vIn) then
        ToDbl = nDefault
    else
        if IsNumeric(CStr(vIn)) Then
            ToDbl = CDbl(vIn)
        else
            ToDbl = nDefault
        end if
    end if
end function

次に、電話するだけです。

totalqty = totalqty + ToDbl(rs("QTY"), 0)
于 2012-07-19T14:06:24.290 に答える