Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.066 c
