Использование DBLookupComboBox

[Irina_87]

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

[rockedit]

Так, по порядку! как связана, через какие поля? а так можно допустим заполнять компонент TComboBox значением кодов поставшика, а потом при сохранение просто нужному полю присваиваешь значение ComboBox1.Text
например так можно.

procedure TForm1.FormShow(Sender: TObject);
var
 i : integer;
begin
Combobox1.Items.Clear;
  for i:=0 to ADOTable1.Fields.Count-1 do
{вмето n указывааешь номер столбца в котором находяться коды(столбцы считаються от 0)
 }
 Combobox1.Items.Add(ADOTable1.Fields.Fields[n].AsString);

end;

[Irina_87]

А если я не использовала компонент ADOTable? У меня используются компоненты ADOQuery, ADOConnection и DataSource.

[rockedit]

тоже самое только для ADOQuery, только поставь условие

ADOQuery1.Fields.Count <> 0 then

Тока тут одно замечание, Query используеться для запросов, не проше ли использовать компонент ADOTable для вашей работы? т.е. я имею ввиду лучше использовать и то и то, только ADOtable для отображение таблиц и их редактировни, ну а Query соответственно для создания запросов по этим таблицам, ИМХО это чисто моё мнение, как удобнее решать Вам.

[Irina_87]

У меня почему-то вообще не пашет этот код!! (( ComboBox не заполняется данными из БД. Нет другого какого-либо способа??

[rockedit]

Пришли код который ты пишешь

[Irina_87]

procedure TForm1.FormShow(Sender: TObject);
var
 i : integer;
begin
Combobox1.Items.Clear;
if ADOQuery1.FieldesCount<>0 then
  for i:=0 to ADOQuery1.FieldsCount-1 do
 Combobox1.Items.Add(ADOQuery1.Fields.Fields[0].AsString);

end;

[rockedit]

Я извиняюсь, я опечатался, там RecordCount!

ADOQuery1.RecordCount

Напиши что у тебя в поле SQL компонента ADOQuery1
FieldesCount - это кол-во столбцов

[Irina_87]

Не поняла.. Это про что???

[rockedit]

Вообшем у тебя же компонент ADOQuery, просто так он ничего не выдст, надо напистаь какойто запрос по имеющейся таблице чтобы получить в DBGrid какието поля.
Вот мой пример заполнения компонента ComboBox

ComboBox2.Items.Clear;
//заполняем компонетнт имеюшимися в базе названиями
ComboBOx2.Text:=DataModule1.ADOTable1.Fields[1].AsString;
DataModule1.ADOTable1.first;
for i:=1 to DataModule1.ADOTable1.RecordCount do
Begin
ComboBox2.Items.Add(DataModule1.ADOTable1.Fields.Fields[1].AsString);
DataModule1.ADOTable1.Next;
end;

Если хочешь пришли мне на мыло архив в котором скинь базу и проект Delphi и я допишу и прокоментирую aaaist@inbox.ru