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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.09.2009, 10:55
Аватар для UnFeeLing
UnFeeLing UnFeeLing вне форума
Прохожий
 
Регистрация: 19.09.2009
Сообщения: 4
Репутация: 10
По умолчанию Подгрузка баз в DBGrid

Вообще имееться на форме ComboBox и DBComboBox, как зделать чтобы при выборе например: 4 курса 410 группы, определенная база подгрузилась в DBGrid...

http://rapidshare.com/files/28193722..._mod3.zip.html
Ответить с цитированием
  #2  
Старый 19.09.2009, 16:00
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

В DBGrid ничего не грузится, он только отображает, то что ты загрузил в набор данных. А вот загрузить один из наборов данных в зависимости от выбора в ComboBox можно примерно так:
Код:
case ComboBox1.ItemIndex
of 0: Query1.SQL.Text := 'select * from MyTable where Gruppa=''410''';
   1:  Query1.SQL.Text := 'select * from MyTable where Gruppa=''310'''; 
   2: Query1.SQL.Text := 'select * from MyTable where Gruppa=''210''';
   end;
Query1.Open;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 19.09.2009, 17:36
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию

если предположить, что в комбоБоксе будут номера групп, то можно и так:
Код:
Query1.SQL.Text := 'select * from MyTable where Gruppa='+ComboBox1.Text
+'';
Query1.Open;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием
  #4  
Старый 19.09.2009, 21:04
Аватар для UnFeeLing
UnFeeLing UnFeeLing вне форума
Прохожий
 
Регистрация: 19.09.2009
Сообщения: 4
Репутация: 10
По умолчанию

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

Не, так дело не пойдет. Вам дали практически готовый код, мозг включите и тогда будет Вам счастье.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #6  
Старый 19.09.2009, 22:06
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию

а что там показывать то .... тебе готовый код дали осталось его только вставить в событие OnChange твоего ComboBox
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием
  #7  
Старый 25.09.2009, 10:31
Аватар для UnFeeLing
UnFeeLing UnFeeLing вне форума
Прохожий
 
Регистрация: 19.09.2009
Сообщения: 4
Репутация: 10
Радость

Код:
try
TableDB.Active:=false;
TableDB.Close;
TableDB.TableName:=extractfilepath(Application.ExeName)+'DB\'+ComboBox2.Text+'.db';
TableDB.Open;
TableDB.Active:=true;
Except

ON E:EDBEngineError do  showmessage('DB не найдена');
end;
или же так
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter