Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
zidanin
Заблокирован
#1

Открытие с разных таблиц

16.03.2013, 00:31. Просмотров 572. Ответов 3
Метки нет (Все метки)

Прошу помощи! Конкретно что мне надо на форуме я не нашел! Один comboBox подключен к БД и работает через процедуру FormActivate:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
begin
  ComboBox1.Clear;
  Form7.ADODataSet1.Close;
  Form7.ADODataSet1.Open;
  Form7.ADODataSet1.First;
    While not Form7.ADODataSet1.Eof do
     begin
       ComboBox1.Items.Add(Form7.ADODataSet1.FieldbyName('fam').AsString);
       Form7.ADODataSet1.Next;
     end;
   ADODataSet1.Close;
   ADODataSet1.Open;
Как прописать через этот же ADODataSet1 еще 2 comboBox, что бы они отображали ифнормацию с разных таблиц!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2013, 00:31
Ответы с готовыми решениями:

Access ADO открытие таблиц в FormCreate
Всем доброго дня! Возникла необходимость освоить работу в Delphi с БД но как...

Сумма полей 2 разных таблиц
Имеется такая БД. Как посчитать кол-во лекций, проведенных Определенным...

Удаление данных из разных таблиц
Добрый вечер. Подскажите, пожалуйста, как прописать код, что б при нажатии на...

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

Отображение данных в DBGrid из разных таблиц
Подскажите пожалуйста каким образом вытащить данные из таблицы2 по...

3
Скандербег
931 / 890 / 294
Регистрация: 07.08.2012
Сообщений: 2,483
16.03.2013, 07:59 #2
Меняя запрос в свойстве CommandText к другим таблицам.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
  ComboBox2.Clear;
  ADODataSet1.Close;  //лишний оператор
  ADODataSet1.CommandText := 'select * from Таблица2';
  ADODataSet1.Open;  
  ADODataSet1.First;  //лишний оператор
  While not ADODataSet1.Eof do begin
    ComboBox2.Items.Add(ADODataSet1['Какое-то поле']);
    ADODataSet1.Next;
  end;
  ADODataSet1.Close;
  ADODataSet1.Open;  //лишний оператор
  if ComboBox2.Items.Count > 0 then
    ComboBox2.ItemIndex := 0;
1
zidanin
Заблокирован
16.03.2013, 13:36  [ТС] #3
У меня получился такой код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm7.FormActivate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox2.Clear;
  ComboBox3.Clear;
  Form7.ADODataSet1.Open;
  Form7.ADODataSet2.Open;
  Form7.ADODataSet3.Open;
    While not Form7.ADODataSet1.Eof do
     begin
       ComboBox1.Items.Add(Form7.ADODataSet1.FieldbyName('fam').AsString);
       ComboBox2.Items.Add(Form7.ADODataSet2.FieldbyName('fam').AsString);
       ComboBox3.Items.Add(Form7.ADODataSet3.FieldbyName('naimenovanie').AsString);
        Form7.ADODataSet1.Next;
        Form7.ADODataSet2.Next;
        Form7.ADODataSet3.Next;
     end;
   ADODataSet1.Close;
   ADODataSet2.Close;
   ADODataSet3.Close;
 
end;
Но при этом выпадает из combobox только одна строка.
0
Скандербег
931 / 890 / 294
Регистрация: 07.08.2012
Сообщений: 2,483
16.03.2013, 14:17 #4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm7.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox2.Clear;
  ComboBox3.Clear;
  ADODataSet1.Open;
  While not ADODataSet1.Eof do begin
    ComboBox1.Items.Add(ADODataSet1.FieldbyName('fam').AsString);
    ADODataSet1.Next;
  end;
  ADODataSet1.Close;
  ADODataSet2.Open;
  While not ADODataSet2.Eof do begin
    ComboBox2.Items.Add(ADODataSet2.FieldbyName('fam').AsString);
    ADODataSet2.Next;
  end;
  ADODataSet2.Close;
  ADODataSet3.Open;
  While not ADODataSet3.Eof do begin
    ComboBox3.Items.Add(ADODataSet3.FieldbyName('naimenovanie').AsString);
    ADODataSet3.Next;
  end;
  ADODataSet3.Close;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2013, 14:17

Сумма чисел из колонок 3 разных таблиц
Добрый день. Столкнулся с такой проблемой. Прога в дельфи, база в парадоксе....

Запрос на выборку записей из разных таблиц
Добрый день форумчане. Необходимо сделать запрос на добавление в таблицу в...

2 едита с данными из разных таблиц, ошибка
Здравствуйте! Очень надеюсь на вашу помощь! вообщем суть проблемы такая Есть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru