[Terio]

Подскажите пожалуйста, как сделать так, чтобы ADODataSet.Locate не обнуляла сделанные изменения.
Поясню на примере: на форме размещены ADOConnection, ADODataSet, DataSource, DBGridEh (из Ehlib) и одна кнопка.
Используется MS SQL Server, в базе одна таблица с полями: Cod (int), Name(char), Flag(bit).
В запросе ADODataSet: Select * From Table1
Изменения напрямую в БД запрещены.
На кнопке:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=5;
ADODataSet1.Locate('Cod',i,[]);
DBGridEh1.Columns.Items[2].Field.NewValue:='True';
ADODataSet1.Locate('Cod',i+1,[]);
end;

Если закоментировать предпоследнюю строчку, все нормально, но как только применяем Locate, все сделанные изменения сбрасываются
Может есть какой-то другой способ перейти на нужную строку в таблице?

[mav_c]

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

Подскажите пожалуйста, как сделать так, чтобы ADODataSet.Locate не обнуляла сделанные изменения.
Поясню на примере: на форме размещены ADOConnection, ADODataSet, DataSource, DBGridEh (из Ehlib) и одна кнопка.
Используется MS SQL Server, в базе одна таблица с полями: Cod (int), Name(char), Flag(bit).
В запросе ADODataSet: Select * From Table1
Изменения напрямую в БД запрещены.
На кнопке:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=5;
ADODataSet1.Locate('Cod',i,[]);
DBGridEh1.Columns.Items[2].Field.NewValue:='True';
ADODataSet1.Locate('Cod',i+1,[]);
end;

Если закоментировать предпоследнюю строчку, все нормально, но как только применяем Locate, все сделанные изменения сбрасываются
Может есть какой-то другой способ перейти на нужную строку в таблице?

Всё правильно. Ты переходишь с помощью locate на другую запись, а изменения не постишь!

А почему нельзя так ADODataSet.FieldByName('Flag').AsInteger := 1;
ADODataSet.Post();

[Terio]

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

Всё правильно. Ты переходишь с помощью locate на другую запись, а изменения не постишь!

А почему нельзя так ADODataSet.FieldByName('Flag').AsInteger := 1;
ADODataSet.Post();

Значение поля Flag булевое.
Постить мне не надо. Физически, в таблице мне не нужно их фиксировать. Нужно просто чтобы отображалось значение True. Оно и отображается, пока Locate не воткнешь.
Почему при переходе Next() ничего не обнуляется, а при переходе
Locate(i+1) обнуляется?

[mav_c]

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

Значение поля Flag булевое.
Постить мне не надо. Физически, в таблице мне не нужно их фиксировать. Нужно просто чтобы отображалось значение True. Оно и отображается, пока Locate не воткнешь.
Почему при переходе Next() ничего не обнуляется, а при переходе
Locate(i+1) обнуляется?

function TCustomADODataSet.Locate(const KeyFields: string;
const KeyValues: Variant; Options: TLocateOptions): Boolean;
begin
DoBeforeScroll;
Result := LocateRecord(KeyFields, KeyValues, Options, True);
if Result then
begin
Resync([rmExact, rmCenter]);
DoAfterScroll;
end;
end;

Вот поэтому. И посмотри Next

[Terio]

Хорошо. А есть какой-нибудь другой способ перейти на нужную запись в гриде?

[mav_c]

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

Хорошо. А есть какой-нибудь другой способ перейти на нужную запись в гриде?

А в EhGrid'ах нет обычных гридов? Много проще загрузить данные в обычный грид из ДатаСета да и разумней. Как вариант можно использовать TClientDataSet и наполнить его ручками но тогда придётся тащить с собой midas.dll

[Terio]

Да, ClientDataSet отлично работает. Одна беда:
DBGridEh1.Columns.Items[2].Field.NewValue:='True'; возвращает ошибку в модуле мидаса
ClientDataSet2.FieldByName('Flag').AsBoolean:= True; ругается на то что не может изменять данные в таблице.
DBGridEh1.Canvas.TextExtent('true'); тоже не помогает
Что делать?
Использовал DCOM.

[mav_c]

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

Да, ClientDataSet отлично работает. Одна беда:
DBGridEh1.Columns.Items[2].Field.NewValue:='True'; возвращает ошибку в модуле мидаса
ClientDataSet2.FieldByName('Flag').AsBoolean:= True; ругается на то что не может изменять данные в таблице.
DBGridEh1.Canvas.TextExtent('true'); тоже не помогает
Что делать?
Использовал DCOM.

А перевести ClientDataSet в режим редактирования? Так только я не пойму зачем тебе пользовать DB Grid вместо Grid'a если всё равно данные не должны изм-ся в базе напрямую?

[Terio]

ClientDataSet переведен в режим редактирования. По крайней мере ReadOnly:=false. Где еще его надо перевести, не знаю.
Именно DBGridEh нужен потому что у него поля, где булевый тип данных, отображаются как CheckBox. Обычного Grida в Eh нет.

[Terio]

Все перепробовал. Неужели нет способа программно показать другое значение в гриде?

[Terio]

То ли Midas кривой, то ли ClientDataSet
Вот так все работает:

Код:

procedure TTypeNumber.Button1Click(Sender: TObject);
var i:integer;
begin
i:=2;
ClientDataSet1.Locate('Cod',i,[]);
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('Flag').Value:=True;
ClientDataSet1.First;
end;
end;

А

Код:

ClientDataSet1.FieldByName('Flag').NewValue:=True;

кричит на ошибку в модуле мидаса