Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам