AdoQuery

[D-mon]

Разобрался.

Поставь в Обджект инспектооре для ADOQuery1:
LockType ltReadOnly; //это
LockType ltUnspecified; //или это

или

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Active:=false;
  //ADOQuery1.LockType:=ltReadOnly;   //это
  ADOQuery1.LockType:=ltUnspecified;  //или это
  AdoQuery1.close;
  AdoQuery1.Active:=false;
  AdoQuery1.close;
  AdoQuery1.sql.clear;
  AdoQuery1.sql.Add('SELECT * from Dop, Rases, Info where Rases.Number=1 and Dop.Kolvo=1 and Info.id=Rases.raseid AND Rases.raseid=Info.id');
  AdoQuery1.Open;
end;

[Stanislav]

Сообщение от D-mon

Разобрался.

Поставь в Обджект инспектооре для ADOQuery1:
LockType ltReadOnly; //это
LockType ltUnspecified; //или это

или

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Active:=false;
  //ADOQuery1.LockType:=ltReadOnly;   //это
  ADOQuery1.LockType:=ltUnspecified;  //или это
  AdoQuery1.close;
  AdoQuery1.Active:=false;
  AdoQuery1.close;
  AdoQuery1.sql.clear;
  AdoQuery1.sql.Add('SELECT * from Dop, Rases, Info where Rases.Number=1 and Dop.Kolvo=1 and Info.id=Rases.raseid AND Rases.raseid=Info.id');
  AdoQuery1.Open;
end;

Большое спасибо все работает только вот один вопрос что все это значит и почему после этого все работает?

И еще один вопрос после того как я выполнил то что вы написали выборка по Пункту вылета (DBcombobox1) не работает.... а так ошибка больше не вылетает...

[D-mon]

LockType
Свойство LockType сообщает провайдеру о блокировках, которые будут помещены в записи в процессе редактирования. Блокировка позволяет предотвратить чтение данных одним пользователем в то время как другой пользователь изменяет эти данные, а так же не дать пользователю изменить данные, если они были изменены другим пользователем. Такой эффект наблюдается в базе данных Access, которая блокирует некоторые соседние записи. Дело в том, что Access использует так называемую стратегию фиксации страницы. Поэтому, если пользователь редактирует запись, то другой пользователь уже не сможет получить доступ к изменению данной записи и, даже не сможет модифицировать ближе стоящие записи (до или после неё). В Delphi, для этой цели используется TADOLockType в которой указывается тип блокировки, которая будет использоваться. Вы можете управлять строкой и блокировкой страницы, устанавливая соответствующую опцию блокировки курсора. Чтобы использовать определенную схему блокировки, провайдер и тип базы данных должны поддержать эту схему.
ltOptimistic
Оптимистическая блокировка блокирует запись только в том случае, если она была физически изменена. Этот тип блокировки полезен, если существует очень маленький шанс того, что второй пользователь может модифицировать строку в интервале между тем, когда курсор открыт, и когда строка окончательно модифицирована. Текущие значения в строке сравниваются со значением полученным когда строка была последний раз выбрана.
ltPessimistic
Пессимистическая блокировка блокирует каждую запись, до тех пор пока она находится в процессе редактирования. Эта опция заставляет ADO устанавливать исключительную блокировку на строку, когда пользователь делает любое изменения в любом столбцу записи. Компоненты ADOExpress непосредственно не поддерживают пессимистическую блокировку записей, потому что сама ADO не имеет возможности произвольно блокировать данную запись и до сих пор поддерживает навигацию в другие записи.
ltReadOnly
Данная блокировка просто не позволяет редактировать данные. Полезна в тех случаях, когда Ваше приложение должно временно предотвратить изменение данных, при этом чтение данной записи разрешено. Самый идеальный способ использования данной блокировки для создания отчётов, если установить CursorType как ctForwardOnly.
ltBatchOptimistic
Блокировка BatchOptimistic используется в клиентских курсорах. Наборы записей с данным курсором апдейтятся локально и все изменения отправляются в базу данных пакетами.

[D-mon]

выборка по Пункту вылета (DBcombobox1) не работает

Что именно не работает? Возможно его набо повесить на другой АДОКвери....

[Stanislav]

Сообщение от D-mon

Что именно не работает? Возможно его набо повесить на другой АДОКвери....

После выполнения этого:

procedure TForm1.Button1Click(Sender: TObject);   
begin  
  ADOQuery1.Active:=false;   
  //ADOQuery1.LockType:=ltReadOnly;   //это   
  ADOQuery1.LockType:=ltUnspecified;  //или это   
  AdoQuery1.close;   
  AdoQuery1.Active:=false;   
  AdoQuery1.close;   
  AdoQuery1.sql.clear;   
  AdoQuery1.sql.Add('SELECT * from Dop, Rases, Info where Rases.Number=1 and Dop.Kolvo=1 and Info.id=Rases.raseid AND Rases.raseid=Info.id');   
  AdoQuery1.Open;   
end;

Выборка Dbcombobox1 - ом уже не осуществляеться
Например выбираешь "Москва" нечего не происходит
почему так?

[D-mon]

Повесь Dbcombobox1 на ADOQuery2...

или

Рапгульно, но можно...

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Text:=''; ComboBox1.Items.Clear;
ADOQuery2.First;
while not ADOQuery2.Eof do
begin
ComboBox1.Items.Add(ADOQuery2.Field ByName('PunktP').AsString);
ADOQuery2.Next;
end;
end;

[Stanislav]

Сообщение от D-mon

Повесь Dbcombobox1 на ADOQuery2...

или

Рапгульно, но можно...

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Text:=''; ComboBox1.Items.Clear;
ADOQuery2.First;
while not ADOQuery2.Eof do
begin
ComboBox1.Items.Add(ADOQuery2.Field ByName('PunktP').AsString);
ADOQuery2.Next;
end;
end;

Я перепробовал все варианты и то же самое прикрипил исходники.
Может я что то не то делаю...

[D-mon]

У меня чёт тоже самое, я вообще немогу открыть список (возможно из-за того что у меня 5 делфа, а может компонент глюкавый)...

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Text:=''; ComboBox1.Items.Clear;
ADOQuery2.First;
while not ADOQuery2.Eof do
begin
ComboBox1.Items.Add(ADOQuery2.FieldByName('PunktP' ).AsString);
ADOQuery2.Next;
end;
end;

Попробуй это...

[Stanislav]

Сообщение от D-mon

У меня чёт тоже самое, я вообще немогу открыть список (возможно из-за того что у меня 5 делфа, а может компонент глюкавый)...

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Text:=''; ComboBox1.Items.Clear;
ADOQuery2.First;
while not ADOQuery2.Eof do
begin
ComboBox1.Items.Add(ADOQuery2.FieldByName('PunktP' ).AsString);
ADOQuery2.Next;
end;
end;

Попробуй это...

Может забить эти данные в обычный комбобокс?!
На решение данной задчи на ГОСЕ дано 2 часа а я даже не могу сделать таких простых вещей что это за чертовщина может кто-нибудь уже сталкивался с такой проблемой?

[Stanislav]

Ребята сдесь есть кто-нибудь кто знает как сделать так чтоб после выполнения запроса не вылетала эта ошибка?!