База + ComboBox, присваивание переменной

[Evil_Net]

Есть база Access название таблицы adres поля names и email
На форму закинул ADOConnection1, ADOTable1, ADOQuery1
В ComboBox считываю сразу при создании формы.

procedure TForm1.FormCreate(Sender: TObject);
begin
with  ADOTable1 do
begin
DisableControls;
ComboBox1.Items.BeginUpdate;
First;
   while not Eof do
      begin
       ComboBox1.Items.Add(FieldByName('names').AsString + '   ' + FieldByName('email').AsString);
       Next;
      end;
ComboBox1.Items.EndUpdate;
EnableControls;
end;
end;

Результат получается примерно таким:
Петя petya@mail.ru
Иван ivan@mail.ru
и т.д.

Вопрос заключается вот в чем:
Как при выборе в ComboBox например Петя присвоить переменной S значение email именно Пети. В работе с базами новичок, пробовал так, не получается!

procedure TForm1.ComboBox1Change(Sender: TObject);
var S,T : String;
begin
  T := ComboBox1.Items[ComboBox1.ItemIndex]; //получаю выбранное значение, например Петя
  ADOQuery1.Sql.Clear;
  ADOQuery1.Sql.Add('SELECT * from adres where names = T');
  ADOQuery1.Open;
  S := ADOQuery1.FieldByName('email').AsString;
end;

[xxbesoxx]

Как при выборе в ComboBox например Петя присвоить переменной S значение email именно Пети.

можно боле подробно что требуется . ?

Есть база Access название таблицы adres поля names и email

Если names и email одном таблице .! что вы хотите присвоить select е ?

Как при выборе в ComboBox например Петя присвоить переменной S значение email

Вы уже его заранее выбирайте ComboBox1.Items.Add(FieldByName('na mes').AsString + ' ' + FieldByName('email').AsString);

[Stilet]

В таблице есть ключевое поле? Если нет - заведи.
Тогда получится такое:

procedure TForm1.FormCreate(Sender: TObject);
begin
with  ADOTable1 do
begin
DisableControls;
ComboBox1.Items.BeginUpdate;
First;
   while not Eof do
      begin
       ComboBox1.AddItem(
             FieldByName('names').AsString + '   ' + FieldByName('email').AsString
            ,TObject(FieldByName('ID').AsInteger)
       );
       Next;
      end;
ComboBox1.Items.EndUpdate;
EnableControls;
end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var EMail : String;
begin
 with ADOTable1,TComboBox(Sender) do begin
   First;
   Locate('ID',integer(objects[itemIndex]));
   EMail:=FieldByName('email').AsString;
 end;
end;

А ADOQuery1 в твоем случае ИМХО лишний.

[Evil_Net]

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

В таблице есть ключевое поле? Если нет - заведи.

Ключевое есть, забыл про него: название id числовое

   Locate('ID',integer(objects[itemIndex]));

программа ругается на objects что то(

А так мысль уловил, но как ее довести до рабочего кода пока не знаю

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

можно боле подробно что требуется . ?

Если names и email одном таблице .! что вы хотите присвоить select е ?

Вы уже его заранее выбирайте ComboBox1.Items.Add(FieldByName('na mes').AsString + ' ' + FieldByName('email').AsString);

в селекте будет Имя человека + Почта его
и при выборе нужного человека в переменную присваивалась бы его почта
переменная потом используется для отправки письма на указанную почту в ней

[Stilet]

что то

Запомни: Зупынивки "тута" и "тама" нема!

[Evil_Net]

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

Запомни: Зупынивки "тута" и "тама" нема!

от этого не легче, не получается же ни чего(((

[Stilet]

Сам виноват потому что:

программа ругается на objects что то(

Думай студент, думай.

[xxbesoxx]

в селекте будет Имя человека + Почта его
и при выборе нужного человека в переменную присваивалась бы его почта
переменная потом используется для отправки письма на указанную почту в ней

E_Mail получаем в Edit и потом отправь
1)

procedure TForm1.FormShow(Sender: TObject);
begin  // Выбираю все посажир
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT *  FROM Tab1 ');
    Open;
    // ---------- и заполняю Combo из поля Names
    cbbName.Items.Clear;
    While not ADOQuery1.Eof do
    begin
      cbbName.Items.Add(ADOQuery1.Fields[1].AsString);
      ADOQuery1.Next;
    end;
  end;
end;

end.

2)

procedure TForm1.cbbNameChange(Sender: TObject);
var
  a: string;
begin   //  Делаю простой фильтр из Combo в полей  names
 if (Trim(cbbName.Text)<>'') then
  begin
    a := 'names =';
    ADOQuery1.Filter := a + '''' + Trim(cbbName.Text) + '''';
    ADOQuery1.Filtered := True;
  end
  else
    ADOQuery1.Filtered := False;
end;

3)

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin   // Получаю  E_mail в Edit-е и  осталось отправить из него письмо
 if cbbName.Text<>'' then
  edtEmail.Text := ADOQuery1.FieldByName('E_mail').AsString
  else
  edtEmail.Text := '';
end;

https://yadi.sk/d/qwKGDSXbiGhaS

[Evil_Net]

огромное спасибо за пример)

только не понятно зачем процедура ADOQuery1AfterScroll кроме записи значения в едит и зачем вынесена отдельно?

вроде понял фильтрацию, ищет название из cbbName.Text, в данном случае там только имя, а я бы хотел чтобы в селекте было "Имя пробел почта", загрузить в комбобокс так без проблем получается, но тогда фильтрация перестает работать(

[xxbesoxx]

а я бы хотел чтобы в селекте было "Имя пробел почта", загрузить в комбобокс так без проблем получается, но тогда фильтрация перестает работать(

Создаю запрос Access и сохраняю таким имени MyQuery

SELECT Код , Names, E_mail, Names+ '  ' +E_mail as FullName
FROM Tab1

и это запрос буду select е вызвать как таблица фильтрую полей FullName и DBGride выбрасываю это поля получается так

{$R *.dfm}

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin   // Получаю     E_mail в Edit е
 if cbbName.Text<>'' then
  edtEmail.Text := ADOQuery1.FieldByName('E_mail').AsString
  else
  edtEmail.Text := '';
end;

procedure TForm1.cbbNameChange(Sender: TObject);
var
  a: string;
begin   //  Делаю простой фильтр из Combo в полей FullName
 if (Trim(cbbName.Text)<>'') then
  begin
    a := 'FullName LIKE '; // Здесь LIKE не надо замените на  =
    ADOQuery1.Filter := a + '''' + Trim(cbbName.Text) + '%'''; // и потом здесь знак процента удалите не нужно 
    ADOQuery1.Filtered := True;
  end
  else
    ADOQuery1.Filtered := False;
end;

procedure TForm1.FormShow(Sender: TObject);
begin  // Выбираю все посажир
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT *  FROM MyQuery ');
    Open;
    // ---------- и заполняю Combo из поля Names
    cbbName.Items.Clear;
    While not ADOQuery1.Eof do
    begin
      cbbName.Items.Add(ADOQuery1.FieldByName('FullName').AsString );
      ADOQuery1.Next;
    end;
  end;
end;

end.

Возьмите пожалуйста https://yadi.sk/d/iUcgUFb-iGnVn