| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка DBCombobox [D7, Access]

Balepa ©   (2004-04-03 20:04:00) 

У меня такой вопрос на форме есть 2 DBCombobox'a DataSource у обоих один. При выборе итема у 1-го дбкомбобокса не происходит позиционирование (может и происходит только вот во 2-ом текст не меняется) потом тыкаеш на стрелке у второго дбкомбобокса и вылазит ошибка:

Project Project1.exe raised exception class EDatabaseError with message 'AdoTable1: Dataset not in edit or insert mode'.

Вот код:

procedure TForm1.AddToCb(cb: TDBCombobox; FieldData:
String; TableName: String; Query: TAdoQuery; Index: byte);

//Это моя процедура

begin
 cb.Items.Clear;
 Query.SQL.Clear;
 Query.SQL.Text:= 'Select Distinct ['+FieldData+'] from '+TableName;
 Query.Active:= True;
 with Query do
   while not eof do
     begin
       cb.Items.Add(Fields[index].AsString);
       Next;
     end;
 Query.Active:= False;
end;

procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
 DataSource1.DataSet.Locate('Название',DBCombobox1.Text,[]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 AddToCb(DBCombobox1,'Название','Каталог',AdoQuery1,0);

 AddToCb(DBCombobox2,'Автор','Каталог', AdoQuery1,0);
end;

procedure TForm1.DBComboBox2Change(Sender: TObject);
begin
DataSource1.DataSet.Locate('Автор',DBCombobox2.Text,[]);
end;

end.

---

Zacho   (2004-04-03 21:15:00) [1]

> Balepa   (03.04.04 20:55) [1]

Дык выходные, народу в форуме почти нет,  чего ты хотел ? Подожди понедельника.

---

Balepa   (2004-04-03 20:55:00) [2]

Спасибо за ваши ответы.

---

Наверх