|
#1
|
|||
|
|||
ADODataSet.Locate
Подскажите пожалуйста, как сделать так, чтобы 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, все сделанные изменения сбрасываются Может есть какой-то другой способ перейти на нужную строку в таблице? Последний раз редактировалось Terio, 14.03.2008 в 16:11. |
#2
|
||||
|
||||
Цитата:
Всё правильно. Ты переходишь с помощью locate на другую запись, а изменения не постишь! А почему нельзя так ADODataSet.FieldByName('Flag').AsInteger := 1; ADODataSet.Post(); --------------------------------------------- Программирование - не профессия, а стиль жизни |
#3
|
|||
|
|||
Цитата:
Постить мне не надо. Физически, в таблице мне не нужно их фиксировать. Нужно просто чтобы отображалось значение True. Оно и отображается, пока Locate не воткнешь. Почему при переходе Next() ничего не обнуляется, а при переходе Locate(i+1) обнуляется? Последний раз редактировалось Terio, 14.03.2008 в 16:57. |
#4
|
||||
|
||||
Цитата:
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 --------------------------------------------- Программирование - не профессия, а стиль жизни |
#5
|
|||
|
|||
Хорошо. А есть какой-нибудь другой способ перейти на нужную запись в гриде?
|
#6
|
||||
|
||||
Цитата:
А в EhGrid'ах нет обычных гридов? Много проще загрузить данные в обычный грид из ДатаСета да и разумней. Как вариант можно использовать TClientDataSet и наполнить его ручками но тогда придётся тащить с собой midas.dll --------------------------------------------- Программирование - не профессия, а стиль жизни |
#7
|
|||
|
|||
Да, ClientDataSet отлично работает. Одна беда:
DBGridEh1.Columns.Items[2].Field.NewValue:='True'; возвращает ошибку в модуле мидаса ClientDataSet2.FieldByName('Flag').AsBoolean:= True; ругается на то что не может изменять данные в таблице. DBGridEh1.Canvas.TextExtent('true'); тоже не помогает Что делать? Использовал DCOM. Последний раз редактировалось Terio, 14.03.2008 в 20:05. |
#8
|
||||
|
||||
Цитата:
А перевести ClientDataSet в режим редактирования? Так только я не пойму зачем тебе пользовать DB Grid вместо Grid'a если всё равно данные не должны изм-ся в базе напрямую? --------------------------------------------- Программирование - не профессия, а стиль жизни |
#9
|
|||
|
|||
ClientDataSet переведен в режим редактирования. По крайней мере ReadOnly:=false. Где еще его надо перевести, не знаю.
Именно DBGridEh нужен потому что у него поля, где булевый тип данных, отображаются как CheckBox. Обычного Grida в Eh нет. Последний раз редактировалось Terio, 15.03.2008 в 22:07. |
#10
|
|||
|
|||
Все перепробовал. Неужели нет способа программно показать другое значение в гриде?
|
#11
|
|||
|
|||
То ли 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; |