Ошибка при редактировании в Query

[Toky]

При попытке редактирования таблицы в состоянии запроса возникает ошибка:
Query1: Cannot modify a read-only dataset

Как сделать его read-only false?
и какой именно датасет

begin 
S:=''; 
S:=Edit1.text+'%'; 
with Query1 do 
begin 
close; 
SQL.clear; 
SQL.Add('SELECT * FROM DataSource '); 
SQL.Add('where upper(Vrach) LIKE' +quotedstr(AnsiUpperCase(s))); 
SQL.Add('ORDER BY Vrach'); 
Open; 
end; 
end; 
if Query1.RecordCount <> 0 then 
begin 
DataSource1.DataSet:=Query1; 
DataSource1.DataSet.Edit; 
Query1.Edit; 
end 
else begin 
ShowMessage('нужная запись не найдена!'); 
Edit1.Text:=''; 
DataSource1.DataSet:=Table1; 
if Form2.Edit1.Text='' then 
Form2.DataSource1.DataSet:=Form2.Table1;

[dron-s]

используй не TQuery а TDataSet и напиши запрос на редактирование данных

[Toky]

Сообщение от dron-s

используй не TQuery а TDataSet и напиши запрос на редактирование данных

Нету в вкладке BDE TDataSet, а только в ADO есть а база у меня не на них написана

[dron-s]

Сообщение от Toky

Нету в вкладке BDE TDataSet, а только в ADO есть а база у меня не на них написана

зато есть TUpdateSQL
и вообще, забей на BDE и переходи на что более надёжное и поддерживающееся

[artemavd]

Нету в вкладке BDE TDataSet

А TDataSet это не компонент, а, если я не ошибаюсь, потомок TDataSource. Например, Table1.DataSource.DataSet.
Далее, у компонента Query1 есть такое свойство RequestLive. Поставьте его в True. И попробуйте снова.

[Toky]

Сообщение от artemavd

А TDataSet это не компонент, а, если я не ошибаюсь, потомок TDataSource. Например, Table1.DataSource.DataSet.
Далее, у компонента Query1 есть такое свойство RequestLive. Поставьте его в True. И попробуйте снова.

Уже попробовал Аксес виолэйшэн эт эдесс и т.д. короче не работает так:

Query1.DataSource.DataSet.Edit;
Query1.RequestLive:=True;

[artemavd]

Попробуйте так:

begin 
S:=''; 
S:=Edit1.text+'%'; 
with Query1 do 
begin 
active:=false; 
SQL.clear; 
SQL.Add('SELECT * FROM DataSource '); 
SQL.Add('where upper(Vrach) LIKE' +quotedstr(AnsiUpperCase(s))); 
SQL.Add('ORDER BY Vrach'); 
actie:=true; 
end; 
end; 
if Query1.RecordCount <> 0 then 
begin 
DataSource1.DataSet:=Query1; 
DataSource1.DataSet.Edit; 
Query1.Edit; 
end 
else begin 
ShowMessage('нужная запись не найдена!'); 
Edit1.Text:=''; 
DataSource1.DataSet:=Table1; 
if Form2.Edit1.Text='' then 
Form2.DataSource1.DataSet:=Form2.Table1;

!!! Кстати, что это такое???

SQL.Add('SELECT * FROM DataSource ');

Что еще за DataSource??

[Toky]

DataSource это Название моей таблицы в базе данных! Вот так вот и ничего с этим не попишешь!
Запрос выполняется нормально вот

begin 
DataSource1.DataSet:=Query1; 
DataSource1.DataSet.Edit; 
Query1.Edit; 
end

Насчет этого: пишет кэннот модифай рид онли дата сет вот! Как и раньше!

[artemavd]

Запрос выполняется нормально вот

Странная какая-то конструкция. Смените имя вашей таблицы. Ну нельзя называть таким именем таблицу. Может быть в это и причина. Попробуйте любое другое имя.