VBNet - Форум - DAO Recordset

Вопрос: DAO Recordset Добавлено: 18.07.02 01:33

Автор вопроса: Seagull

Возник вопрос:

Dim db As Database

Dim rs As Recordset

///////////////////

Set rs = db.OpenRecordset("SELECT *, FROM TABLE, WHERE X = 5")

После этого надо в другом месте (ф-ии) вычленить из записей rs только те строки, у кот. значение поля Y = 3. Но не так:

Set rs = db.OpenRecordset("SELECT *, FROM TABLE, WHERE X = 5 And Y = 3")

Т.е. в данной ф-ии я не знаю по каким критериям отсортирован данный RS.

Заранее спасибо за ответ...

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

Andreika

Вопросов: 5
Ответов: 64

Профиль | | #1

Добавлено: 18.07.02 06:22

Dim db As Database

Dim rs1 As Recordset

Dim rs2 As Recordset

///////////////////

Set rs1 = db.OpenRecordset("SELECT *, FROM TABLE, WHERE X = 5")

Set rs2 = db.OpenRecordset("SELECT *, FROM rs1 , WHERE Y = 3")

Ответить

Номер ответа: 2
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #2

Добавлено: 18.07.02 08:51

Воспользуйся свойством Filter

rs.Filter = "Y = 3"

Дальше по свойству NoMatch можно узнать или есть записи которые отвечают условию и пройтись по записям методом FindFirst, FindNext

Ответить

Номер ответа: 3
Автор ответа:

Slay

Вопросов: 27
Ответов: 150

Web-сайт: www.slaysoft.stormway.ru
Профиль | | #3

Добавлено: 19.07.02 09:05

> Set rs2 = db.OpenRecordset("SELECT *, FROM rs1 , WHERE Y = 3")

в данном случае эта строка не сработает.... в инструкции SQL FROM должна быть таблица, или в случае Access таблица/запрос из соответствующего семейства... (кстати я не понял зачем в строке SQL-выражения запятые... обычно они используются только для перечисления....)

а по фильтру должно стработать... например можно еще так:

rs1.filter="y=1"

set rs2=rs1.openrecordset ' это вернет отфильтрованные результаты в рекордсет rs2

Best Regarts!

Slay.

Ответить

Номер ответа: 4
Автор ответа:

Seagull

Вопросов: 1
Ответов: 1

Профиль | | #4

Добавлено: 19.07.02 20:27

Большое спасибо за помощь, но у меня rs.Filter не работает (там не не надо после этого добавить что-то типа rs.Update?) , собственно как и

Set rs2 = db.OpenRecordset("SELECT * FROM rs1 WHERE Y = 3") (тоже не работает)

Но я уже с этим справился (написал ф-ию кот. удаляет не нужные элементы)...

Seagull

Ответить

Страница: 1 |