| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ADO + MS SQL [D7, XP]

Steep ©   (2007-01-10 07:53:00) 

Возникла очередная проблема...
Пытался найти в книге, но не нашел.

Необходимо вытащить столбец с данными из таблицы
т.е. нужно каким-либо способом вставить в ComboBox данные запроса
Select FIO from Abonent

При этом при выборе одного из элементов ComboBox необходимо узнать FIO_ID

Как я понял тут два варианта 1. Воспользоваться DBComboBox (но я не разобрался как сюда выводить)
2. Вытащить данные запросом (причем добавить FIO_ID) и вставить в ComboBox и занести в память связку ComboBox.ItemIndex и FIO_ID

Помогите плиз с кодом..

---

Steep   (2007-01-10 10:35:00) [1]

Большое спасибо! ЮЮ все получилось!
Не совсем понимаю как это работает, так что пока буду разбираться!
Ega23 твой код еще не пробовал (дома поэксперементирую), но все равно спасибо!

P.S.Не знал про Query.First; Query.Next; а я дкмаю как перемещаться :)

---

Steep   (2007-01-10 09:55:00) [2]

Спасибо всем! буду разбираться....

---

ЮЮ   (2007-01-10 09:37:00) [3]

Сорри.

ComboBox.Items.AddObject(Query.Fields[1].asString, TObject(Query.Fields[ 0].asInteger));

если поля выюираются в порядке FIO_ID, FIO

---

ЮЮ   (2007-01-10 09:33:00) [4]

Query.First;
while not Query.Eof do begin
 ComboBox.Items.AddObject(Query.Fields[1].asString, TObject(Query.Fields[1].asInteger));
 Query.Next;
end;

---

Ega23   (2007-01-10 09:32:00) [5]

ADODataSet1.CommandText := 'Select FIO, FIO_ID from Abonent';
DBLookupCombo.KeyField := 'FIO_ID';
DBLookupCombo.ListField := 'FIO';
DBLookupCombo.ListSource := DataSource1;
DataSource1.DataSet := ADODataSet1;
ADODataSet1.Open;
DBLookupCombo.KeyValue := ADODataSet1.FieldByName(DBLookupCombo.KeyField).Value;


Всё.

---

Steep   (2007-01-10 09:17:00) [6]

т.е. как обратиться к строкам?
если к колонкам то Columns, а строк (Rows) там нет...

---

Steep   (2007-01-10 09:13:00) [7]

бр-р..
>ComboBox1.Items.AddObject('Id = 11', TObject(11));
т.е. добавляем объект, а как вытащить данные (ID, FIO) из DBGrid, DataSource ?

---

ЮЮ   (2007-01-10 08:54:00) [8]

procedure TForm1.Button1Click(Sender: TObject);
begin
 ComboBox1.Items.AddObject('Id = 11', TObject(11));
 ComboBox1.Items.AddObject('Id = 22', TObject(22));
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 Caption := IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
end;

вместо 11, 22 будут Id-ы из запроса

---

Steep   (2007-01-10 08:15:00) [9]

1. Наверно так и есть
2. TStringds.Objects не знал...

А что нужно написать чтоб вытащить эти 2 столбца (FIO и FIO_ID) в ComboBox.items и TStringds.Objects?

---

ЮЮ   (2007-01-10 08:09:00) [10]

1. Не DBComboBox, а TDBLookupComboBox
2. вместо занести в память связкухранить FIO_ID здесь же (TStringds.Objects)
FIO_ID нужен в запросе в любом случае.

---

Наверх