1

Тема: 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;

2

Re: Delphi база даних і ComboBox

а із ComboBox

по OnChange() ?

Білоруський журнал «Радиолюбитель»
Lead Radar systems engineer & Software developer of industrial automation
Мої розробки та відеоблог

3

Re: Delphi база даних і ComboBox

1. TDBComboBox чи TDBLookupComboBox не пробували, як і TDBEdit?
2. Щоб щось сказати про базу даних, треба щось про неї знати. У вас є таблиця, в якій є поле Countru. Якого типу це поле? Які ще поля є у цій таблиці? Що це за таблиця взагалі, що вона зберігає?

4

Re: Delphi база даних і ComboBox

Romanvolja
Приєднуюсь до запитань koala. І додам свої:
Яку базу даних використовуєте?
Як у вас налаштовані компоненти доступу до даних?
Коли ви записуєте значення комбобокса (бажано показати код модуля)?

Подякували: koala1

5

Re: Delphi база даних і ComboBox

roman написав:

не проходить.

а що хто каже?
Думаю, проблема у якійсь раскладці, тощо. Виведіть перед додаванням до бази в ваш TEdit - подивіться, що змінюється.