как составить поздапрос к access?

[Аватар]

1. ItemIndex в ComboBox c 0 отчет ведет, а не с 1
2. Как только из середины таблицы удалите запись, то вся ваша задумка коту под хвост. Так с идентификаторами записей не работают
3. А если 1000 записей в таблице - тоже ComboBox?

[Seva2011]

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

[Seva2011]

или ссылочку дайте по работе с одинаковыми записями в бд.

[Dexes]

Глобальный массив

//Массив соответсвий ID юзеров и индексов
var: UserID: array of integer;

Далее

procedure TForm1.FormCreate(Sender: TObject);
begin
	ADOQuery1.SQL.Clear;
	ADOQuery1.SQL.Add('SELECT * FROM Klients');
	ADOQuery1.Open;
	SetLength(UserID,  ADOQuery1.RecordCount);
	while not AdoQuery1.Eof do
	  begin
		ComboBox3.Items.Add(ADOQuery1.FieldByName('фио').AsString);
		UserID[ComboBox3.Count-1] := ADOQuery1.FieldByName('id').AsInteger;
		ADOQuery1.Next;
	  end;
	ComboBox3.ItemIndex := 1;
	ADOQuery1.Close;
end;

procedure TForm1.ComboBox3Select(Sender: TObject);
begin
	if ComboBox3.ItemIndex>=1 then
	  begin
		ADOQuery1.Close;
		ADOQuery1.SQL.Clear;
		ADOQuery1.SQL.Add('SELECT * FROM Klients WHERE id = '+IntToStr(UserID[comboBox3.ItemIndex]));
		ADOQuery1.Open;
		Edit2.Text:=ADOQuery1.FieldByName('Адрес').AsString;
		Edit3.Text:=ADOQuery1.FieldByName('Телефон').AsString;
		Edit1.Text:=ADOQuery1.FieldByName('П_серия').AsString;
	  end;
end;

1) У тебя Index в ComboBox'е и ID пользователя в базе не соответсвуют. Пойми это. ID у пользователя может быть 100500 а Index в ComboBox'е у него может быть 3 (к примеру)
2) Всегда отслеживай SQL-запрос в отдельном Edit'е, который после отладки уберешь (как в том примере который я тебе засылал по e-mail), это очень сильно помогает. При ошибке, SQL-запросы которые выводятся в Edit'е, обактывай в СУБД, анализируй что выводится и что должно выводится.
3) Не юзай ComboBox.Text, только
ComboBox.Items[i]
или
ComboBox.Items[ComboBox.ItemIndex]
(смотря что нужно вытащить), обращайся к конкретной строке, чтобы не было багов.
4) по Select'у ComboBox'а посмотри сколько записей у тебя выводится после ADOQuery1.Open, ADOQuery1.RecordCount выведи (через ShowMessage например). Кто знает, может быть поле ID в таблице у тебя не уникально и выводится несколько записей.
Пробуй, копайся, разбирайся.
P.S. На будущее: прогу ты предоставил выше, а базы (и даже структуры базы) нету.

[Seva2011]

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