SQL文の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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加