0 записей ошибка EOF or BOF

[Vini]

Приветствую!
Вот что делаю

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

LastMonth = Conn.Execute("Select total from stat where month = 2")

потом если записей нет LastMonth = NULL
то мне надо это переменной m присвоить значение N/A

Делаю так

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

If isnull(LastMonth(0)) = True Then m="N/A"

Не работает правильно.

Как с этим бороться?
Спасибо.

[vvs_adm]

Ну ты хотя бы чуть больше инфы дал... А то

LastMonth = NULL
и LastMonth(0)

как то не очень рядом друг с другом... А

If isnull(LastMonth(0)) = True

можно смело заменить на просто If isnull(LastMonth(0))

[Vini]

А что подробнее?
Conn.Execute("Select total from stat where month = 2")
Должно дать мне значение из ячейки total где month = 2 и поместить это в массив LastMonth
Если запись пресутствует то и будет первый элемент в массиве LastMonth(0)
И что с этим не так?

[Vini]

Нужен какой то стэйтмент типа

If LastMonth EOF or BOF Then
...
End If

Но вот как это должно выглядеть?

[Vini]

Пришлось сделать так

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

Dim LastMonth As New ADODB.Recordset
LastMonth.Open("Select total from stat where month = 2"), Conn
    If LastMonth.EOF = True Or Testing.BOF = True Then
        MsgBox ("Null")
    End If



Так работает правильно.

[Ennor]

Бр-р-р-р. Ничего не понял. Количество записей в рекордсете - свойство RecordCount. Далее, если LastMonth изначально был массивом, то не стоило обращаться к нему без индекса - лишняя путаница редко когда помогает. Ну и т.д. ...

[Cyrax]

что-то как-то с трудом понимаю, что именно желает получить автор топика... но смутно догадываюсь, что ему нужно определить наличие записей в наборе. если это так, то решается это следующим образом:

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

Dim LastMonth As New ADODB.Recordset
LastMonth.Open("Select total from stat where month = 2"), Conn
    If LastMonth.BOF And Testing.EOF Then
        MsgBox ("Null")
    End If

смысл в том, что когда набор записей пуст, свойства BOF и EOF (признаки начала и конца набора записей) равны True.