Поиск в БД по SEEK

[Rafayel]

Добрый день всем

Возникла такая проблема...

При поиске в БД командой RECORDSOURCE.SEEK, если результат FALSE, выдает окошко с текстом No Current Record. Можно как-нибудь избавится от него? У меня работает цикл, и это окно только мешает, приходится все время ENTER жать... а записей больше 100,000...

[GSerg]

Код в студию.

[keks-n]

А ты отлавливаё окошко програмно и посылай ему SendKeys Chr(13),True

[Rafayel]

Код завтра будет, он на работе. Приблизительно выглядит так:

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


do
data2.recordsource.index="Data"
data2.recordsource.seek "=", text  ' если не находит, выводится окно с сообщением
if data2.recordsource.nomatch then <действие>
data1.recordsource.movenext        ' т.к. поле text берем из data1
loop


А SendKey... представляешь сколько времени займет обработка базы объемом 200,000-300,000 записей?

[/syntax]

[CORBA]

я ещё не пробывал но вроде как метод find у recordset'a есть, может лучше его использовать

[alibek]

Seek не везде работает.
Во-первых, он работает только для индексированных полей.
Во-вторых, в DAO он применим только к рекордсетам, открытым как dbOpenTable, в Jet.
В-третьих, в ADO он применим только для файлов Access MDB, в рекордсетах, открытых как adCmdTableDirect.

[alibek]

И в четвертых, после выполнения Seek полагается проверять, была ли найдена запись. В DAO для этого есть свойство NoMatch, в ADO специального свойства нет, надо смотреть параметры поиска (направление) и проверять на BOF/EOF.

[Rafayel]

alibek, У меня как раз он прекрасно работает, вопрос не в этом. И NoMatch проверяю, и индексация есть, на коде ведь видно! Просто при отрицательном результате поиска выводится окно с сообщением, что запись не найдена. Вот от этой окошки хочу избавится!!!

[Bonjo]

alibek, У меня как раз он прекрасно работает, вопрос не в этом. И NoMatch проверяю, и индексация есть, на коде ведь видно! Просто при отрицательном результате поиска выводится окно с сообщением, что запись не найдена. Вот от этой окошки хочу избавится!!!

Предлагаю отказацца от Seek и перейти на SQL.
у тебя же два набора данных: Data1 и Data2

вот и сделай выборку:

SELECT
d2.*
FROM
Data1 d1,
Data2 d2
where
d1.Text = d2.Text

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

[Rafayel]

Предлагаю отказацца от Seek и перейти на SQL.
у тебя же два набора данных: Data1 и Data2

вот и сделай выборку:

SELECT
d2.*
FROM
Data1 d1,
Data2 d2
where
d1.Text = d2.Text

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

SQL не знаю, к сожалению... а твой код (переделанный по логике) не сработал

[alibek]

Он и не сработает, он был для примера.
Реальный запрос будет зависеть от того, какие у тебя таблицы и поля.
Тебе просто предлагают не проходится в цикле по набору данных, отбирая те, которые соответствуют нужному критерию (дате), а сразу отобрать только те данные, которые нужны.

[Rafayel]

Он и не сработает, он был для примера.
Реальный запрос будет зависеть от того, какие у тебя таблицы и поля.

Ну я это понял и если правильно разобрался, то запрос должен выглядеть так:

SELECT ALL FROM <DatabaseName> <TableName> WHERE <Record>=<MyText>.

Так?

[Konst_One]

нет

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

SELECT [Alias].[FieldName], [Alias].[FieldName] ...
FROM [TableName] AS [Alias]
WHERE [FieldName] = 'insert your text here'

в самом простом случае

[Bonjo]

SQL не знаю, к сожалению... а твой код (переделанный по логике) не сработал

эт ниче.
возьми аксес - раз уж с ним работаешь.
там есть мастер создания запросов и конструктор создания запросов.
попробуй при помощи них создать. Это совсем не сложно.
А когда сделаешь запрос - посмотри его SQL код (он его автоматически формирует) - так быстрее разберешься.
Вообще при работе с БД лучше начинать изучение с SQL потому что языков программирования много всяких разных, в SQL всегда один и тот же (почти).