ＳＱＬ文のCOUNTとSUM

ようこ 2006-09-08 09:41:10 No: 133146

はじめまして。
VB6でデーターベースADO接続での開発を初めて行おうとしているのですが、
SQL文で、COUNT,SUM を使用した場合、VB上でどのように受け取るかがわかりません。大変困ってます(>_<)ご教授願います♪

-------------------------------------------------------
Set mRsNT1000 = New ADODB.Recordset
strSQL = "SELECT COUNT(*),SUM(INKIN) FROM NT1000" & _
" WHERE TMPCD = '" & SL_TMPCD & "' AND " & _
" INDAY = '" & SL_SYUDY & "' "

With mRsNT1000
    .Source = strSQL
    .CursorType = adOpenStatic
    .LockType = adLockReadOnly
    .ActiveConnection = mCn
    .Open
End With

If mRsNT1000.RecordCount <> 0 Then
AAA = mRsNT1000.Fields("????????") ← ???????? がわからないです
BBB = mRsNT1000.Fields("????????") ← ???????? がわからないです
End If

ABC 2006-09-08 09:47:40 No: 133147

AAA=mRsNT1000.Fields(0).Value
BBB=mRsNT1000.Fields(1).Value
とか

または
strSQL = "SELECT COUNT(*) AS c,SUM(INKIN) AS s FROM NT1000" & _
" WHERE TMPCD = '" & SL_TMPCD & "' AND " & _
" INDAY = '" & SL_SYUDY & "' "
としておいて
AAA=mRsNT1000.Fields("c").Value
BBB=mRsNT1000.Fields("s").Value
とか。
または
AAA=mRsNT1000!c.Value
BBB=mRsNT1000!s.Value
とか

ようこ 2006-09-08 10:06:25 No: 133148

ありがとうございます(*^_^*)
ＡＢＣさんのおかげで解決できました。
おかげで徹夜しなくてすみそうです。(^^♪