Помощь в поиске записей

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
deemashlayer
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 04.11.2003 (Вт) 15:40
Откуда: Dnepr

Помощь в поиске записей

Сообщение deemashlayer » 04.11.2003 (Вт) 15:56

Работаю в MSAccess XP, Visual Basic 6.3
Необходимо открыть таблицу по нажатию на кнопку некоей формы, затем, используя существующий в таблице индекс, искать записи. Как открывать таблицу / применять индекс?
При попытке открытия ч/з ADODB.Recordset в момент попытки выполнения DB.Index "INDEX_NAME" возникает ошибка "Current provider does not support indexing". Чего делать (с програмой/Access'ом/мозгами :) )?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 04.11.2003 (Вт) 16:04

Преобразуй таблицу в Access 97 и используй DAO.
У меня правда есть некоторые подозрение, что ADO использует индексы автоматически, если они есть, но это только предположение.
Lasciate ogni speranza, voi ch'entrate.

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 04.11.2003 (Вт) 16:13

А что мешает использовать DAO с форматом Access 2002? :shock:

deemashlayer
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 04.11.2003 (Вт) 15:40
Откуда: Dnepr

Сообщение deemashlayer » 04.11.2003 (Вт) 16:15

OK, я нашел как включить DAO. Какой тип объекта мне нужен?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 04.11.2003 (Вт) 16:33

deemashlayer, открой рекордсет как dbOpenTable и выставь свойство .Index.
RayShade, разве DAO работает с этой версией MDB? Помоему она понимает только до версии 3.0.
Lasciate ogni speranza, voi ch'entrate.

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 04.11.2003 (Вт) 16:37

У меня DAO 3.6 отлично понимает ХРшные MDB.

deemashlayer
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 04.11.2003 (Вт) 15:40
Откуда: Dnepr

Сообщение deemashlayer » 04.11.2003 (Вт) 16:58

ОК. Я пишу
Dim XXX as DAO.Recordset

как его открыть?

Set XXX as New DAO.Recordset
XXX.open Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!????

P.S. Простите, если что, за глупые вопросы. Я работаю с VB и Access второй день всего :)

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 04.11.2003 (Вт) 17:16

Код: Выделить всё
...
Dim db As DAO.Database, rs As DAO.Recordset
Set db = DAO.OpenDatabase(...)
Set rs = db.OpenRecordset("...", dbOpenTable)
rs.Index = "..."
rs.Seek "=", ...
If rs.NoMatch Then
  MsgBox "Not Found"
Else
  MsgBox "Found"
End If
...


RayShade, хм... А я даже не пробовал :) Век живи, век учись :)
Lasciate ogni speranza, voi ch'entrate.

deemashlayer
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 04.11.2003 (Вт) 15:40
Откуда: Dnepr

Сообщение deemashlayer » 04.11.2003 (Вт) 17:59

спасибо


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 14

    TopList  
cron