Ввод и вывод данных в листинг ComboBox из access

[BIGGYpo]

Здравствуйте, на форме есть ADOConnection, ADOQuery,Combobox. Через adoconnection подключена таблица. Как в items combobox'а загнать все значения из конкретного поля таблицы? в Combobox переходит только 1 значения из списка !DBLookupComboBox1-не устраивает
delphi

[LegionnaireFH]

Добавление всех значений из конкретного поля таблицы можно попробовать сделать так:

with ADOQuery do
  begin
    ComboBox.Clear;
    SQL.Text:= 'SELECT DISTINCT Pole FROM TABLE';
    Open;
    
    if IsEmpty then exit;
    
    First;
    
    while not Eof do    
      begin
        ComboBox.Items.Add(FieldByName('Pole').AsString);
        next;
      end;
 end;

[BIGGYpo]

Спасибо я разобрался
Но поевилась проблемма код:
procedure TForm1.FormCreate(Sender: TObject);
var i: integer ;
begin
e:=ComboBox1.Text;
ADOQuery1.Active := False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT ');
ADOQuery1.SQL.Add('INTO wer(name2)');
ADOQuery1.SQL.Add('VALUES (e)');
ADOQuery1.Parameters.ParamByName('e ').Value:=e;
ADOQuery1.Active := True;
программа выполняется на при нажатии на эту кнопку пишет что
Project Project1.exe raised exception class EOleException with message "Текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции",

[BIGGYpo]

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

Спасибо я разобрался
Но поевилась проблемма код:
procedure TForm1.FormCreate(Sender: TObject);
var i: integer ;
begin
e:=ComboBox1.Text;
ADOQuery1.Active := False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT ');
ADOQuery1.SQL.Add('INTO wer(name2)');
ADOQuery1.SQL.Add('VALUES (e)');
ADOQuery1.Parameters.ParamByName('e ').Value:=e;
ADOQuery1.Active := True;
программа выполняется на при нажатии на эту кнопку пишет что
Project Project1.exe raised exception class EOleException with message "Текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции",

Решил ADOQuery1.ExeCSql а не ADOQuery1.Active := True

[Krok27]

Есть еще компонент TDBComboBox. Настоить DataSource и DataField, он сам все загонит.

[BIGGYpo]

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

Есть еще компонент TDBComboBox. Настоить DataSource и DataField, он сам все загонит.

да спасибо я пробовал TDBComboBox но вносился только 1 компонент бд почитал форумы понял что легче код вбить
Можно ли сделать едитом или с помощью другова компонента
ввод даты в виде . . . чтобы пользователю осталось дописать только цифры?