Поиск в базе данных

@Mangol · Регистрация: 05.07.2007

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

День добрый, помогите чайнику.
Вопрос вот в чем:
есть база данных подкачена в VB с помошью Visual Data Meneger надо создать поиск текста из Text1 в ячейках базы в заданном столбце. И затем вывести результат на экран.
Заранее благодарен.

@Mangol · 10.07.2007, 13:16 **[ТС]**

Добрый день, хотелось бы обратиться за помощью еще раз.
Вопрос вот в чем: как перейти к заданой строке в таблице. Параметры поиска задаются в TextBox (но не номер строки, а содержание).
Пробовал вот так:
Data1.RecordSource = 'Select*from Telfone where Number = 'Text1.Text' '
Data1.Refresh
не получается.
Будьте так любезны.

@Mangol · 10.07.2007, 13:16 **[ТС]**

Добрый день, хотелось бы обратиться за помощью еще раз.
Вопрос вот в чем: как перейти по нажатию кнопки к заданой строке в таблице. Параметры поиска задаются в TextBox (но не номер строки, а содержание).
Пробовал вот так:
Data1.RecordSource = 'Select*from Telfone where Number = 'Text1.Text' '
Data1.Refresh
не получается.
Будьте так любезны.

@ASSEI · 27.11.2021, 12:48

Не могу понять пробую на VB6(sp6), в строке показывает ошибку а не пойму какая, помогите разобраться?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command6_Click()
Dim Db As Database, rs As Recordset
rs = Data1.DatabaseName = App.Path & "\МояБаза.mdb"
Set Db = Workspaces(0).OpenDatabase("\МояБаза.mdb")
Set rs = Db.OpenRecordset ('SELECT * FROM Personal WHERE Telefon LIKE '*Text5.text *''") 'здесь показывает ошибку
Do While Not rs.EOF
List1.AddItem rs.Fields("Telefon")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Db.Close
Set Db = Nothing
End Sub

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@Mangol 0 / 0 / 0 Регистрация: 05.07.2007 Сообщений: 15

	Поиск в базе данных 05.07.2007, 12:07. Показов 5911. Ответов 22 Метки нет (Все метки) День добрый, помогите чайнику. Вопрос вот в чем: есть база данных подкачена в VB с помошью Visual Data Meneger надо создать поиск текста из Text1 в ячейках базы в заданном столбце. И затем вывести результат на экран. Заранее благодарен. 0

@Mangol 0 / 0 / 0 Регистрация: 05.07.2007 Сообщений: 15
	10.07.2007, 13:16 [ТС]
	Добрый день, хотелось бы обратиться за помощью еще раз. Вопрос вот в чем: как перейти к заданой строке в таблице. Параметры поиска задаются в TextBox (но не номер строки, а содержание). Пробовал вот так: Data1.RecordSource = 'Select*from Telfone where Number = 'Text1.Text' ' Data1.Refresh не получается. Будьте так любезны. 0