Тема: Delphi база даних і ComboBox
Доброго вечора всім.
Підкажіть будь ласка як із ComboBox додати дані в базу даних.
із Edit дані додаю таким чином
ADOTable1 . Insert ;
ADOTable1 . FieldByName ( 'Countru' ) . AsString : = Edit1 . Text ;
ADOTable1 . Post ;, а із ComboBox такий варіант (
ADOTable1 . Insert ;
ADOTable1 . FieldByName ( 'Countru' ) . AsString : = ComboBox1. Text ;
ADOTable1 . Post ;) не проходить.
До речі в ComboBox список Items в ComboBox я додаю таким чином:
ComboBox1.Items.Clear;
with ADOTable1 do
begin
DisableControls;
ComboBox1.Items.BeginUpdate;
First;
while not Eof do
begin
ComboBox1.Items.Add(FieldByName('Countru').AsString);
Next;
end;
ComboBox1.Items.EndUpdate;
EnableControls;
end;
