(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Как выполнить метод Seek на присоединенных таблицах

Michel Walsh

Как известно, метод Seek позволяет кардинально быстрее найти запись по проиндексированному полю по сравнению c методами FindFirst, FindNext, но не работает по присоединенным таблицам...

Если открыть рекордсет напрямую на основе прилинкованной таблицы, то он не будет поддерживать метод Seek - поиск с использованием индекса (Речь идет о DAO.Recordset). Однако, если открыть напрямую базу данных, в которой эта таблица находится, и уже из неё открыть рекордсет - то всё получится.

 

Могу ли выполнить Seek и Index на присоединенных таблицах ?

 

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

 

'************ Code Start ***************

'This code was originally written by Michel Walsh.

'It is not to be altered or distributed,

'except as part of an application.

'You are free to use it in any application,

'provided the copyright notice is left unchanged.

 

'Code Courtesy of

'Michel Walsh

 

Public Function OpenForSeek(TableName As String) As Recordset

    ' Assume MS-ACCESS table

    Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _

    (Mid(CurrentDb().TableDefs(TableName).Connect, _

    11), False, False, "").OpenRecordset(TableName, _

    dbOpenTable)

End Function

'************ Code End ***************

 

'Использовать так:

Dim rst as Recordset

set rst=OpenForSeek("TableName")

 

и вы можете использовать rst.Seek и rst.Index на присоединенной таблице TableName

 

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 04.10.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft Windows Professional 10, Электронный ключ
Microsoft Office 365 Персональный 32-bit/x64. 1 ПК/MAC + 1 Планшет + 1 Телефон. Все языки. Подписка на 1 год.
Microsoft 365 Apps for business (corporate)
Microsoft Office 365 Профессиональный Плюс. Подписка на 1 рабочее место на 1 год
Microsoft Office 365 для Дома 32-bit/x64. 5 ПК/Mac + 5 Планшетов + 5 Телефонов. Подписка на 1 год.
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Вопросы и ответы по MS SQL Server
Каждый день новые драйверы для вашего компьютера!
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100