Поиск по двум столбцам БД.

@Lex-A · Регистрация: 14.05.2008

Студворк — интернет-сервис помощи студентам

Допустим что в *.mdb файле есть 2 столбца: Фамилия и Телефон.
А на форме(в VB)ОДНА кнопка: поиск.
Как сделать, чтобы поиск производился по двум столбцам (только одной кнопкой)?

@netfrog · 01.12.2008, 15:08

SELECT 'что_ищем' FROM имя_таблицы

@netfrog · 01.12.2008, 15:09

'SELECT 'что_ищем' FROM имя_таблицы'
или напиши подробнее, что тебе нужно

@Lex-A · 01.12.2008, 15:37 **[ТС]**

Допустим есть код:

Code
1
2
3
Data1.Recordset.FindFirst 'Author = '' _ 
& Trim(InputBox('Введите имя:')) & ''' 
If Data1.Recordset.NoMatch Then MsgBox 'Имя не найдено'

здесь поиск идет только в столбце с именем Author,
а мне надо, чтобы искал сразу в двух столбцах, например
в столбце Author и Phone.
Как это сделать?

@Lex-A · 01.12.2008, 15:38 **[ТС]**

имя таблицы ASBD

@netfrog · 01.12.2008, 16:29

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

Dim rs As Recordset
Set rs = db.OpenRecordset('ASBD')

Do Until rs.EOF = True
DebugPrint rs.Fields('имя_поля') & _
' ' & rs.Fields('имя_поля_2')
rs.MoveNext

@netfrog · 01.12.2008, 16:30

PS
чтоб корректно работал метод FindFirst укажи параметр dbOpenDynaset

@Korolana · 01.12.2008, 17:11

The best - use 'select * from <yourtable> where Author = <yourAuthor> and Phone = <yourphone>' query. If you want use FindFirst, your cursor must be dynaset- or snapshot-type Recordset.
By the way, you can use complex condition in your search criteria something like this:
strSearch = 'Author='' & <myAuthor> & '' and Phone = '' & <myPhone> & '''
rs.FindFirst strSearch

but this works much slower than query, because all operations are executed on the client computer (not on the server side).

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Lex-A 0 / 0 / 0 Регистрация: 14.05.2008 Сообщений: 15

	Поиск по двум столбцам БД. 01.12.2008, 14:55. Показов 1441. Ответов 7 Метки нет (Все метки) Допустим что в *.mdb файле есть 2 столбца: Фамилия и Телефон. А на форме(в VB)ОДНА кнопка: поиск. Как сделать, чтобы поиск производился по двум столбцам (только одной кнопкой)? 0

@netfrog 0 / 0 / 0 Регистрация: 29.09.2008 Сообщений: 18
	01.12.2008, 15:08
	SELECT 'что_ищем' FROM имя_таблицы 0

@netfrog 0 / 0 / 0 Регистрация: 29.09.2008 Сообщений: 18
	01.12.2008, 15:09
	'SELECT 'что_ищем' FROM имя_таблицы' или напиши подробнее, что тебе нужно 0

@Lex-A 0 / 0 / 0 Регистрация: 14.05.2008 Сообщений: 15
	01.12.2008, 15:38 [ТС]
	имя таблицы ASBD 0

@netfrog 0 / 0 / 0 Регистрация: 29.09.2008 Сообщений: 18
	01.12.2008, 16:29
	Ппроще конечно (и быстрее в плане производительности) поюзать хранимый запрос и передать ему параметры, а в твоем случае можно записать введенное значение в переменную и в случае возврата 0 записей поискать в другом поле или в цикле (см код) почитать базу и вывести все значения удовлетворяющие условию (условие добавишь) туда, куда нужно: Dim rs As Recordset Set rs = db.OpenRecordset('ASBD') Do Until rs.EOF = True DebugPrint rs.Fields('имя_поля') & _ ' ' & rs.Fields('имя_поля_2') rs.MoveNext 0

@netfrog 0 / 0 / 0 Регистрация: 29.09.2008 Сообщений: 18
	01.12.2008, 16:30
	PS чтоб корректно работал метод FindFirst укажи параметр dbOpenDynaset 0

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	01.12.2008, 17:11
	The best - use 'select * from <yourtable> where Author = <yourAuthor> and Phone = <yourphone>' query. If you want use FindFirst, your cursor must be dynaset- or snapshot-type Recordset. By the way, you can use complex condition in your search criteria something like this: strSearch = 'Author='' & <myAuthor> & '' and Phone = '' & <myPhone> & ''' rs.FindFirst strSearch but this works much slower than query, because all operations are executed on the client computer (not on the server side). 0