Как подключить поиск по базе

@forik417 · Регистрация: 10.01.2011

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

Есть база создана virtyal data manager. В этой базе Фамилии иванов сидоров.....
Как сделать поиск по этой базе и чтобы после поиска это все вставлялося в текст 1 и text 2.

@forik417 · 03.05.2012, 07:03 **[ТС]**

Вот пытался прописать ошибка и незнаю! помогите!

dev.Free · 03.05.2012, 08:52

Я сделаю, не спеши ты так.

dev.Free · 03.05.2012, 12:22

В общем короче сделал я тебе нормальное приложение. Думаю для сдачи на "4" уже пойдет. Осталось сделать выгрузку из Базы данных. Но выгрузка из базы данных это уже проще в Интернете есть много примеров. Возьми для начала выгрузку в Microsoft Office Excel 2003. Теперь смотри, поиск по базе данных я тебе сделал методом SQL запроса, а не так как учат в университетах или в школах, а именно использую строку запроса к базе данных:

Visual Basic
1
Data1.RecordSource = "SELECT Data.Код, Data.Клиент, Data.[Модель автомашины], Data.[№ двигателя], Data.[Vin номер], Data.Мастер, Data.Цена, Data.[Дата заказа], Data.[№ наряда], Data.Неисправность FROM Data " & "where Data.[Клиент] like '" & SQL.Text & "*'"

вот эта строчка отвечает за результат вывода запроса пользователя. То есть все что будет введено в & "where Data.[Клиент] like '" & SQL.Text & "*'" сюда: SQL.Text

Теперь что касается запроса, более детально. Я сделал запрос по таблице Data, в разделе Клиент, по остальным запросам ты можешь сделать отдельные текстовые поля или же дописывать в мою строку код запроса по остальным разделам таблицы Data. Редактирование и добавление новых записей работает. Пример прилагаю.

Базу данных программа будет искать из корневого каталога. То есть откуда ты .EXE файл запускаешь. Код поиска находится в обработчике загрузки формы, а именно:

Visual Basic
1
2
Data1.DatabaseName = App.Path & "\db2.mdb"
Data2.DatabaseName = App.Path & "\db2.mdb"

Чтобы работал SQL запрос бросай код в обработчик кода для ввода значений в текстовые поля. Пример:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub SQL_Change()
 
On Error Resume Next
Data1.RecordSource = "SELECT Data.Код, Data.Клиент, Data.[Модель автомашины], Data.[№ двигателя], Data.[Vin номер], Data.Мастер, Data.Цена, Data.[Дата заказа], Data.[№ наряда], Data.Неисправность FROM Data " & "where Data.[Клиент] like '" & SQL.Text & "*'"
Data1.Refresh
On Error Resume Next
Data1.Recordset.MoveLast
 
DBGrid1.Columns(0).Width = 900
DBGrid1.Columns(1).Width = 4000
DBGrid1.Columns(2).Width = 1450
DBGrid1.Columns(3).Width = 1450
DBGrid1.Columns(4).Width = 2000
DBGrid1.Columns(5).Width = 2000
DBGrid1.Columns(6).Width = 2800
DBGrid1.Columns(7).Width = 2800
DBGrid1.Columns(8).Width = 2800
 
If SQL.Text = "" Then Call refrash_data
 
End Sub

Кажется все

@forik417 · 03.05.2012, 15:23 **[ТС]**

Ошибка либо я реально туплююю.

dev.Free · 03.05.2012, 16:36

Ты все записи с базы стер что ли ? Удали просто этот код. Не знаю что у тебя там. Когда выкладывал было нормально.

@forik417 · 03.05.2012, 21:33 **[ТС]**

Сам понять не могу. Может все в версиях basic? У меня 6,0. Вобщем пишу с чего начинаются проблемы.
Распокавал архив папку захожу в basic выбираю открыть проект, там нахожу Project1.vbp нажимаю открыть появляется:1 фото, там нажимаю да. Там выдается еще одна ошибка! 2 фото Нажимаю ок. и еще табличка 3 фото. нажимаю ок получается 4 фото.
Затем в правом углу выбираю форму и снова выдается ошибка 5фото. Нажимаю ок появилося окно. фото 6. Остальное открывается без каких либо сообщений фото 7. запускаю программу и получается та ошибка. Я ничего не менял и не удалял может что то не так делаю А!? Помоги.

dev.Free · 04.05.2012, 08:58

У тебя DBGrid32.ocx не зарегистрирован в системе или его просто нету. Скачай с интернета. Вообще скачай нормальный Visual Basic с полными компонентами. К примеру вот тут: ссылка удалена

@forik417 · 04.05.2012, 11:28 **[ТС]**

Блин не получается скачивал dbgrid вставлял в папку windows\system32 изменений. нет. Скачивал basic другой таже песня. Где то что то делаю не так.!

dev.Free · 04.05.2012, 11:29

Ну брат ты меня извини! Я сделал тебе полный рабочий вариант. там немного тебе осталось, дальше уже сам.

Памирыч · 04.05.2012, 12:20

Сообщение от forik417

скачивал dbgrid вставлял в папку windows\system32

А регистрировал?

dev.Free · 04.05.2012, 12:23

Сообщение от Памирыч

А регистрировал?

На 1 рисунок посмотрите, у него вообще компонента нету. Там пустой квадрат где должна стоять DBGrid

@forik417 · 04.05.2012, 14:47 **[ТС]**

Не я ничего с тебя не прошу просто может вдруг ты сталкивался с такой проблемой знаешь как решить! Поэтому и пишу. С DBGrid я разобрался зарегистрировал его другая беда. не могу dbgrid на форму добавить?

dev.Free · 04.05.2012, 15:15

Сообщение от forik417

Не я ничего с тебя не прошу просто может вдруг ты сталкивался с такой проблемой знаешь как решить! Поэтому и пишу. С DBGrid я разобрался зарегистрировал его другая беда. не могу dbgrid на форму добавить?

На сколько я помню там еще был такой ньюанс, там надо было файл лицензии для DBGrid добавлять в реестр.

dev.Free · 04.05.2012, 15:26

Давай так, чтобы вообще уже прекратить дискуссию, поставь программу TeamViewer 7 для удаленного администрирования. Она у меня во вложениях. Пришлешь мне в личку пароль и номер сессии я к тебе подключусь и вместе поглядим. Я просто, извини меня, уже начал уставать от этого процесса.

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@forik417 0 / 0 / 0 Регистрация: 10.01.2011 Сообщений: 23

	Как подключить поиск по базе 03.05.2012, 06:44. Показов 1621. Ответов 14 Метки нет (Все метки) Есть база создана virtyal data manager. В этой базе Фамилии иванов сидоров..... Как сделать поиск по этой базе и чтобы после поиска это все вставлялося в текст 1 и text 2. 0

@forik417 0 / 0 / 0 Регистрация: 10.01.2011 Сообщений: 23
	03.05.2012, 07:03 [ТС]
	Вот пытался прописать ошибка и незнаю! помогите! Миниатюры 0

dev.Free Заблокирован
	03.05.2012, 08:52
	Я сделаю, не спеши ты так. 0

@forik417 0 / 0 / 0 Регистрация: 10.01.2011 Сообщений: 23
	03.05.2012, 15:23 [ТС]
	Ошибка либо я реально туплююю. Миниатюры 0

dev.Free Заблокирован
	03.05.2012, 16:36
	Ты все записи с базы стер что ли ? Удали просто этот код. Не знаю что у тебя там. Когда выкладывал было нормально. 0

@forik417 0 / 0 / 0 Регистрация: 10.01.2011 Сообщений: 23
	03.05.2012, 21:33 [ТС]
	Сам понять не могу. Может все в версиях basic? У меня 6,0. Вобщем пишу с чего начинаются проблемы. Распокавал архив папку захожу в basic выбираю открыть проект, там нахожу Project1.vbp нажимаю открыть появляется:1 фото, там нажимаю да. Там выдается еще одна ошибка! 2 фото Нажимаю ок. и еще табличка 3 фото. нажимаю ок получается 4 фото. Затем в правом углу выбираю форму и снова выдается ошибка 5фото. Нажимаю ок появилося окно. фото 6. Остальное открывается без каких либо сообщений фото 7. запускаю программу и получается та ошибка. Я ничего не менял и не удалял может что то не так делаю А!? Помоги. Миниатюры 0

dev.Free Заблокирован
	04.05.2012, 08:58
	У тебя DBGrid32.ocx не зарегистрирован в системе или его просто нету. Скачай с интернета. Вообще скачай нормальный Visual Basic с полными компонентами. К примеру вот тут: ссылка удалена 0

@forik417 0 / 0 / 0 Регистрация: 10.01.2011 Сообщений: 23
	04.05.2012, 11:28 [ТС]
	Блин не получается скачивал dbgrid вставлял в папку windows\system32 изменений. нет. Скачивал basic другой таже песня. Где то что то делаю не так.! 0

dev.Free Заблокирован
	04.05.2012, 11:29
	Ну брат ты меня извини! Я сделал тебе полный рабочий вариант. там немного тебе осталось, дальше уже сам. 0

@forik417 0 / 0 / 0 Регистрация: 10.01.2011 Сообщений: 23
	04.05.2012, 14:47 [ТС]
	Не я ничего с тебя не прошу просто может вдруг ты сталкивался с такой проблемой знаешь как решить! Поэтому и пишу. С DBGrid я разобрался зарегистрировал его другая беда. не могу dbgrid на форму добавить? 0