Тема: Delphi бази даних
Доброго вечора товариші
У мене виникли деякі труднощі тому я звертаюся за Вашою допомогою.
Для заповнення списку Items для CheckListBox я використовую таку процедуру:
procedure TForm1.SpeedButton22Click(Sender: TObject);
begin
CheckListBox1.Items.Clear;
with ADOTable_Ganre do
begin
DisableControls;
CheckListBox1.Items.BeginUpdate;
First;
while not Eof do
begin
CheckListBox1.Items.Add(FieldByName('Ganre').AsString);
Next;
end;
CheckListBox1.Items.EndUpdate;
EnableControls;
end;
end;Але як занести у базу даних (у підлеглу таблицю ) вибрані жанри із списку CheckListBox не можу збагнути
Пробував додавати дані у підлеглу таблицю наступною процедурою та нічого не виходить.
procedure TForm1 . SpeedButton1Click ( Sender : TObject ) ;
begin
ADOTable_BasaGanre . Insert ;
ADOTable_BasaGanre . FieldByName ( 'Ganre' ) . AsString : = CheckListBox1.Items; // ??? як правильно не знаю
end;Хто допоможе мені з цією проблемою буду дуже вдячний.
