Скачать: CL | DM;

Ошибка DBCombobox   Найти похожие ветки 

← →
Balepa   (2004-04-03 20:04) [0]

У меня такой вопрос на форме есть 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.

---

← →
Balepa   (2004-04-03 20:55) [1]

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

---

← →
Zacho ©   (2004-04-03 21:15) [2]

> Balepa   (03.04.04 20:55) [1]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c