Парамерт Combobox1.itemIndex не имеет значения по умолчанию

[Seva2011]

Здравствуйте! у меня проблема с выводом данных из бд в поля edit4,edit5 и т.д. есть вот такой код для вставки данных в бд

 ADOQuery1.Insert;
 ADOQuery1.FieldByName('фамилия').AsString := Edit1.Text;
 ADOQuery1.FieldByName('адрес').AsString := Edit2.Text;
 ADOQuery1.FieldByName('телефон').AsString := Edit3.Text;
ADOQuery1.FieldByName('Z_N1').AsString := ComboBox1.Text;
ADOQuery1.FieldByName('Z_N2').AsString := ComboBox2.Text;
ADOQuery1.FieldByName('Z_N3').AsString := ComboBox3.Text;
ADOQuery1.FieldByName('Z_N4').AsString := ComboBox4.Text;
ADOQuery1.FieldByName('дата приема').AsString :=DateTostr(Date);
 ADOQuery1.Post;

этот код работает на 1 форме. на второй форме мне надо чтоб при выборе номера id из Combobox все эти данные выводились в поля Edit4.text,Edit5.text...Edit11.text . выпадающий список сделал так

ComboBox1.Items.Clear;
AdoQuery1.Open;
while not AdoQuery1.Eof do
begin
ComboBox1.Items.Add(AdoQuery1.Field ByName('V_C').AsString);
AdoQuery1.Next;
end;
ComboBox1.ItemIndex := 0;
ComboBox1.Text:='';
AdoQuery1.Close;

пытаясь вывести данные в нужные поля делаю запрос

AdoQuery1.Open;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Klients WHERE id = ComboBox1.ItemIndex');

во первых получаю сообщение "Парамерт Combobox1.itemIndex не имеет значения по умолчанию" во вторых если даже запрос выполнится я не знаю как присвоить к примеру поле "телефон" четвертому эдиту и т.д.
во всех статьях и учебниках и видеоуроках рассказывают как вывести данные в DBGrid как будто это единственный компонент куда данные можно выводить. кто знает обьясните пожалуйста!

[Аватар]

ADOQuery1.SQL.Add('SELECT * FROM Klients WHERE id = '+IntToStr(ComboBox1.ItemIndex)); 
...
Edit4.Text:=ADOQuery1.FieldByName('телефон').AsString;

рассказывают как вывести данные в DBGrid как будто это единственный компонент

Не единственный, но один из самых ходовых и удобных

[Seva2011]

теперь выдает такую ошибку:Точечный рисунок.JPG
походу у меня с бд что то.

[Аватар]

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Klients WHERE id = '+IntToStr(ComboBox1.ItemIndex)); 
ADOQuery1.Open;

[evg_m]

мне надо чтоб при выборе номера id из Combobox

ComboBox1.Items.Add(AdoQuery1.Field ByName('V_C').AsString);

скорее всего для фильтра все-таки требуется не сам индекс строки, а данные находящиеся в выбранной строке.
COmbobox1.Text;
comboBox1.Items[comboBox1.ItemIndex];

и надо учитывать что строка может быть не выбрана ItemIndex=-1

if comboBox1.ItemIndex>=0 then 
  ADOQuery1.SQL.Add('SELECT * FROM Klients WHERE id = '+ ComboBox1.Items[combobox1.ItemIndex]
else 
  ???????????  ;

[Seva2011]

Огромное Спасибо за помощь! все получилось!!!)))))

ээммм а не подскажите как теперь данные обновить базе чтоб при нажатии на кнопку данные в полях фамилия и адрес обновились где id равен значению выбранному в ComboBox1.Items[ComboBox1.Itemindex] ?

[alexiz]

Сообщение от Seva2011

..как теперь данные обновить базе чтоб при нажатии на кнопку данные в полях фамилия и адрес обновились где id равен значению выбранному в ComboBox1.Items[ComboBox1.Itemindex] ?

Например так:

//установить Датасет на нужную запись
if  ADOQuery1.Locate('Id', StrToInt(ComboBox1.Text),[]) then
begin
  ADOQuery1.Edit; //перевести в редактирование
  ADOQuery1.FieldByName('фамилия').AsString := Edit1.Text;
  ADOQuery1.FieldByName('телефон').AsString := Edit3.Text;
  ADOQuery1.Post; //сохранить в БД 
end;

[Seva2011]

Огромное спасибо!

Еще 1 вопрос. В цикле

ComboBox1.Items.Clear;
AdoQuery1.Open;
while not AdoQuery1.Eof do
begin
ComboBox1.Items.Add(AdoQuery1.Field ByName('V_C').AsString);
AdoQuery1.Next;
end;
ComboBox1.ItemIndex := 0;
ComboBox1.Text:='';
AdoQuery1.Close;

возможно как то создать филтр по полю Flag,
поле flag типа boolean бд access ?

[alexiz]

Сообщение от Seva2011

возможно как то создать фильтр по полю Flag,
поле flag типа boolean бд access?

Разумеется! В Ваших руках SQL, Вы все можете.
ЗЫ Чё то смущает меня вторая строка снизу у Вас ComboBox1.Text:='';
Это зачем?

[Seva2011]

Это для того чтоб в комбобоксе при открытии формы не не стояло значения выбранной в прошлый раз)
в sql сделать етот фильтр не сложно а вот в дельфи никак не получается я так понимаю что код должен быть примерно такой

ComboBox5.Items.Clear;
AdoQuery1.Open;
while not AdoQuery1.Eof do
begin
ComboBox5.Items.Add(AdoQuery1.Field ByName('id WHERE flag=true').AsString);
AdoQuery1.Next;
end;
ComboBox5.ItemIndex := 0;
ComboBox5.Text:='';
AdoQuery1.Close;

но это неправильно. поскажи как правильно выполнить запрос плиизззз!