Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 08.07.2012, 12:01
kolin2112 kolin2112 вне форума
Прохожий
 
Регистрация: 04.06.2012
Сообщения: 11
Репутация: 10
По умолчанию база DBF в delphi

Народ хелп. как сделать в делфи чтобы запрос отображадся в другом окне, есть база которая просто открывается в окне DBGrid. после открытия базы сразу все столбцы которые есть отобразаются в combobox.Поиск должен производится, выбором одного столбца из комбобокса а в эдите задаешь то что тебе нужна найти и он должен отобразить результат на новом DBGrid и паказать все совподения.
Ответить с цитированием
  #2  
Старый 08.07.2012, 12:46
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Вот надо же было так задать вопрос, что фиг поймешь, что, где, когда.
Если я правильно понял, то у вас в грид выводится результат обращения к какой-то таблице. Паралельно комбобокс заполняется названиями полей этой таблицы. Таким образом, при выборе в комбике поля таблицы мы будем искать вхождение текста заданное уже в едите. Так вроде?
Тогда все сводится к формированию нового запроса примерно такого вида:
Код:
'select * from UserTable where ' + ComboBox1.Items[ComboBox1.ItemIndex] + ' like ' + Edit1.Text
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.

Последний раз редактировалось Страдалецъ, 08.07.2012 в 12:54.
Ответить с цитированием
  #3  
Старый 08.07.2012, 12:58
kolin2112 kolin2112 вне форума
Прохожий
 
Регистрация: 04.06.2012
Сообщения: 11
Репутация: 10
По умолчанию

да верно. тока я не вижу в этом коде вывода в новый грид
Ответить с цитированием
  #4  
Старый 08.07.2012, 13:05
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

положите новый грид на форму, укажите в качестве источника запрос.
положите кнопку на форму, в событии клик для кнопки пропишите код:
Код:
Query1.SQL.Text := 'select * from UserTable where ' + ComboBox1.Items[ComboBox1.ItemIndex] + ' like ' + Edit1.Text;
Query1.Open;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 08.07.2012, 13:46
kolin2112 kolin2112 вне форума
Прохожий
 
Регистрация: 04.06.2012
Сообщения: 11
Репутация: 10
По умолчанию

ошибочка. Project Project1.exe raised exception class EDBEengineError with message 'Table cloce not exist.
File or directory does not exist.
File:H:\ао\5\52\UserTable.DB
File:H:\ао\5\52\UserTable.DBF
File:H:\ао\5\52\UserTable.txt
File:H:\ао\5\52\UserTable'.Process stopped.use step or run to continue.
Ответить с цитированием
  #6  
Старый 08.07.2012, 14:08
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Название таблицы/файла я от балды брал. Подключение вы организовали к DBF-файлу?
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #7  
Старый 08.07.2012, 14:45
kolin2112 kolin2112 вне форума
Прохожий
 
Регистрация: 04.06.2012
Сообщения: 11
Репутация: 10
По умолчанию

да. тоесть в фром нужна вводить назавние таблицы в dbf файле? если это так, то можна сдетать так чтобы он работал с любыми таблами и не приходилась все время менять.
Ответить с цитированием
  #8  
Старый 08.07.2012, 16:22
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

можно и все. Только нужно будет брать список файлов/таблиц отку-да-то.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.

Последний раз редактировалось Страдалецъ, 08.07.2012 в 16:25.
Ответить с цитированием
  #9  
Старый 08.07.2012, 17:36
kolin2112 kolin2112 вне форума
Прохожий
 
Регистрация: 04.06.2012
Сообщения: 11
Репутация: 10
По умолчанию

как это сделать подскажити пожалуйста
Ответить с цитированием
  #10  
Старый 08.07.2012, 18:07
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

ну например, если вы подключаетесь через AdoConnection к БД, то список таблиц можно получить так:
Код:
adoconnection1.GetTableNames(combobox2.Items, false);
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #11  
Старый 08.07.2012, 19:53
kolin2112 kolin2112 вне форума
Прохожий
 
Регистрация: 04.06.2012
Сообщения: 11
Репутация: 10
По умолчанию

нет. у меня просто файлы открываются и тображаются. и запросы так и не работают. хотя я после фром водил имя файла.
Ответить с цитированием
  #12  
Старый 09.07.2012, 17:49
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

В качестве имени таблицы укажи полный путь к файлу dbf в двойных кавычках, например

select *
from "C:\Program Files\Common Files\Borland Shared\Data\master.dbf"
Ответить с цитированием
  #13  
Старый 10.07.2012, 06:09
kolin2112 kolin2112 вне форума
Прохожий
 
Регистрация: 04.06.2012
Сообщения: 11
Репутация: 10
По умолчанию

И стнова ошибка,при полном вводе адреса файла-Project Project1.exe raised exceprion class EDBEngineError with message 'Invailed use of keyword. Token: CALLLIKE8 -я так понел это тот самый запрос каторый мне нужен,точней его параметры.Line Number:1'. Process stopped.Use Step or Run to continue. Если комута будет проще могу скинуть прогу.

Последний раз редактировалось kolin2112, 10.07.2012 в 06:14.
Ответить с цитированием
  #14  
Старый 10.07.2012, 06:26
kolin2112 kolin2112 вне форума
Прохожий
 
Регистрация: 04.06.2012
Сообщения: 11
Репутация: 10
По умолчанию

Исходники проги были взяты из инета, так что она подлежит жестной дороботки, там было очень много того что мне не нужно. народ помогите, это прога мне очень нужна.http://rghost.ru/39129213
Ответить с цитированием
  #15  
Старый 10.07.2012, 07:14
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от kolin2112
Исходники проги были взяты из инета, так что она подлежит жестной дороботки, там было очень много того что мне не нужно. народ помогите, это прога мне очень нужна.http://rghost.ru/39129213

Вот пример с использованием OnFilterRecord и без второго грида (фильтрует текущий).
Компонент было лень устанавливать, так что создал его динамически.
Вложения
Тип файла: zip temp.zip (19.7 Кбайт, 9 просмотров)
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
kolin2112 (10.07.2012)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:57.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025