Скачать: CL | DM;

ADO + MS SQL   Найти похожие ветки 

← →
Steep ©   (2007-01-10 07:53) [0]

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

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

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

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

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

---

← →
ЮЮ ©   (2007-01-10 08:09) [1]

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

---

← →
Steep ©   (2007-01-10 08:15) [2]

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

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

---

← →
ЮЮ ©   (2007-01-10 08:54) [3]

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 09:13) [4]

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

---

← →
Steep ©   (2007-01-10 09:17) [5]

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

---

← →
Ega23 ©   (2007-01-10 09:32) [6]

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;


Всё.

---

← →
ЮЮ ©   (2007-01-10 09:33) [7]

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

---

← →
ЮЮ ©   (2007-01-10 09:37) [8]

Сорри.

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

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

---

← →
Steep ©   (2007-01-10 09:55) [9]

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

---

← →
Steep ©   (2007-01-10 10:35) [10]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.031 c