Помогите с БД access

[REraVe]

У меня есть база данных в access и прожка на VB для работы с ней.
Прога конектитса к базе и считывает некоторые данные в таблицу (DataGrid), а также раскидывает их по TextBox'ам для редактирования таким образом:

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

 
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "SELECT fio,number,sponsor,sk,summa FROM DBSK1 ", db, adOpenStatic, adLockOptimistic
  Dim oText As TextBox
  For Each oText In Me.txtFields
    Set oText.DataSource = adoPrimaryRS
  Next
  Set grdDataGrid.DataSource = adoPrimaryRS


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

[Алексей К.]

Как вариант: в textbox по событию KeyPress проверяешь запросом
на существование похожей записи select требуемые_поля,... from таблица like что_проверяем
что_проверяем="'"+textbox.text+"*'" или % - не помню как в ADO
если есть записи (recordscount >0) то выделяешь данные записи в DataGrid

[REraVe]

Спасибо, с поиском я разобрался. Правда несколько другим образом. Еще вопросик, подскажите как должен выглядеть запрос, который будет проверять есть ли строка со значением в первом столбце "xxxx", и если такой строки нет уведомлять об этом.

[Q2W]

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

SELECT * WHERE number = xxxx

Если вернёт 0 строк или произойдёт ошибка (какая не знаю) - ничего не найдено, иначе - вернёт нужную строку.

[snov]

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

SELECT * WHERE number = xxxx

Если вернёт 0 строк или произойдёт ошибка (какая не знаю) - ничего не найдено, иначе - вернёт нужную строку.

Ошибка не вылетит - будет EOF And BOF, если пусто
2 REraVe
Проверять через EOF And BOF.

[Andrev]

А по-моему, проще проверять так: select count(*) from чего-то там where number=xxx. Тут уж никаких ошибок не будет - если записей нет, то результатом запроса будет ноль, если есть - число, большее нуля.

[REraVe]

Я в итоге оставил простой запрос select и т.д. Если ничего нет он ничего не возвращает в таблицу и текстбоксы и они становятся пустыми (не нули), а потом я сравниваю текс в текстбоксе и если он = "" включаю функцию ADO .addNew