Ошибка при чтении Recordset'а

[burik]

Сдравствуйте!

Мне нужно посчитать средний балл и таблицы в базе.

Код: Выделить всё


y=0
b=0
For x = 1 To rc1.RecordCount
    If rc1.Fields(2) <> Null Then y = y + rc1.Fields(2): b = b + 1 Else
    rc1.MoveNext
Next x



Хотя в таблице только в одной записи из 3-х Fields(2) равен Null, а остальные - 10 и 9, программа выдаёт b = 0 и y = 0 .

Полный код:

Код: Выделить всё


Dim x As Integer, y As Integer, z As Integer, b As Integer
Set rc1 = bd.OpenRecordset("SELECT*FROM CLASS" & ClassID & " WHERE FIO='" & PName & "'")
rc1.MoveLast
rc1.MoveFirst
For x = 1 To rc1.RecordCount
    If rc1.Fields(2) <> Null Then y = y + rc1.Fields(2): b = b + 1 Else Debug.Print "null"
    rc1.MoveNext
Next x
x = y / b
SBall = x
rc1.Close



Помогите пожалуйста! Заранее спасибо!

[GSerg]

burik, не пробовал для интереса смотреть, чему равен RecordCount?..

[BasiС]

Может так будет проще?

Код: Выделить всё

Dim SBall AS long

Set rc1 = bd.OpenRecordset("SELECT SUM(Balls)/COUNT(Balls) AS Fld FROM CLASS" & ClassID & " WHERE FIO='" & PName & "'")

SBall = rc1.Fields(0)
rc1.Close
Set rc1=Nothing

[alibek]

BasiС, проще будет с AVG.

[burik]

GSerg

RecordCount = 3

BasiС

Щас так и сделаю, просто не силен в SQL...

alibek, BasiС, GSerg, спасибо за участие. Все заработало:

If rc1.Fields(2) <> "" Then y = y + rc1.Fields(2): b = b + 1

Но щас SQL запрос изменю, как предложил BasiС. Так проще будет..

[Konst_One]

isnull() ,однако надо юзать

[alibek]

Если использовать Count(field), а не Count(*), то даже IS NULL не нужен.

[Nicky]

Но щас SQL запрос изменю, как предложил BasiС. Так проще будет..

Лучше так, как предложил alibek. Так правильнее будет..