SQL & .RecordCount

[Dummiel]

Здравствуйте!
Как узнать, сколько в таблице БД записей, удовлетворяющих условию, если таковых в таблице может не быть?

Когда пишешь
sSQL = "SELECT * FROM Table WHERE Num = '" & cNum & "'"
Set dbRS = dbRun.OpenRecordset(sSQL)

и проверяешь через

dbRS.MoveLast
var = dbRS.RecordCount,

то, если есть хоть одна запись, все нормально, var = 1,
а если такой записи еще нет, он выдает ошибку и сразу уходит на метку обработки ошибок.
А мне надо, чтобы

If var = 0 Then
dbRS.AddNew

и т.д. Короче, для одного человека в одной таблице м.б. несколько записей в другой таблице, если их нет - добавить, если есть - добавить и пронумеровать Count + 1.

Что-то с Do While ... Loop тоже не соображу.

Поле Num не индексировано, там могут встречаться одинаковые значения.

Нутром чую, что ответ прост, но не соображу. Или мозги плавятся?

С уважением - Dummiel.

[alibek]

Пустой рекордсет проверяй на .EOF.

[VVitafresh]

Если нужно только узнать количество:

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

SELECT count(*) FROM Table WHERE ... (твое условие)

[Dummiel]

Хай, други!

Проверка на .EOF. действует безотбойно. Кстати, пока в ожидании ответа экспериментировал, нашел, что при открытии БД по
SQL-запросу работает еще и .RecordCount. Если нет записей по условию, то .RecordCount = 0. Если записи по условию есть,
то .RecordCount как минимум = 1. Только проверку нужно делать сразу после открытия.

А вот с [SELECT count(*) FROM TABLE WHERE ... (твое условие)] не разобрался. Когда открываю БД по этому запросу, то при
отсутствии записей по условию .RecordCount = 1, а .EOF = False.

Как понять эту непонятку?

[Nicky]

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

MsgBox OpenDatabase(sBase, 0, 0, sConnect).OpenRecordset("Select count(*) from " & sTable & IIf(Len(sWhere) > 0, " where " & sWhere, "").Fields(0)

[Antonariy]

Как понять эту непонятку?

Возвращается одна запись с одним полем, содержащим результат select count(*).

[Dummiel]

Во-о-он чо!
Спасибо!

Если ничего не помогает, прочтите, наконец, инструкцию! Законы Мерфи