Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / MS Access -> ADO -> проблема с полем типа счетчик / 6 сообщений из 6, страница 1 из 1
29.10.2003, 13:03
    #32308807
surovi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Access -> ADO -> проблема с полем типа счетчик
При добавлении новой записи в DBGrid, поле, которое в БД является счетчиком -
не имеет значение. Но это даже не самая большая проблема. Если еще перейти
на новую запись и вернуться на предыдущую (введенную выше), то она до сих
пор еще не получила значение из поля счетчика из БД.
Хотя все свойства TADOTable установлены по умолчанию.

CachSize:= 1;
LockType:= ltOptimistic; и т.п.

и установлены динамические свойства:

procedure TDM.rsTimingAfterOpen(DataSet: TDataSet);
begin
TADOTable(Dataset).Properties['Update Criteria'].Value:= adCriteriaKey; // uses ADOInt;
TADOTable(Dataset).Properties['Update Resync'].Value:= adResyncAutoIncrement;

// так тоже не помогает
//TADOTable(Dataset).Properties['Update Resync'].Value:= adResyncAutoIncrement + adResyncInserts;
//TADOTable(Dataset).Properties['Update Resync'].Value:= adResyncAll;
//TADOTable(Dataset).Properties['Update Resync'].Value:= adResyncAutoIncrement + adResyncUpdates;
//TADOTable(Dataset).Properties['Update Resync'].Value:= adResyncAutoIncrement + adResyncConflicts;
end;

Пробовал ставить свойство поле счетчика

AutoGenerateValue:= arAutoInc;

тоже не помогает.
Использование .Requery() не годится.

Просьба кто знает ответить пожалуйста конкретно без каких-либо аля "может быть"

Огромное спасибо всем понимающим
...
Рейтинг: 0 / 0
29.10.2003, 19:37
    #32309605
Mik Prokoshin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Access -> ADO -> проблема с полем типа счетчик
ADOUpdate от Borland установи, если Delphi5. Если не поможет - бери TBetterADODataset. Проблема, насколько я понимаю, в Resync борландовского компонента.
...
Рейтинг: 0 / 0
29.10.2003, 22:11
    #32309649
surovi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Access -> ADO -> проблема с полем типа счетчик
Спасибо за ответ, но

у меня Delphi 7, MS Access 97

и хотелось бы решить эту проблему при помощи TADOTabel
...
Рейтинг: 0 / 0
31.10.2003, 06:42
    #32311170
MaratIsk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Access -> ADO -> проблема с полем типа счетчик
CursorLocation := clUserServer
...
Рейтинг: 0 / 0
31.10.2003, 07:34
    #32311178
Mik Prokoshin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Access -> ADO -> проблема с полем типа счетчик
Одна ли эта таблица задействована или есть другие (типа в lookup'ах)? Проверьте, все Table и Dataset должны быть clUseClient, при clUseServer где-либо в связанных таблицах, возможно неполучение ADO значения IDENTITY.
...
Рейтинг: 0 / 0
10.11.2003, 12:00
    #32318702
surovi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MS Access -> ADO -> проблема с полем типа счетчик
По поводу clUserServer - в таблице имеются 2 lookup поля и таблицы для этих полей clUseClient.
Если делаю свою главную таблицу clUserServer, то возникает ошибка при открытии таблицы:
Current provider does not support the necessary interfaces for sorting or filtering.
Возникает она из-за того, что у меня
IndexFieldNames:= 'PointDate; TimeFrom';
Я убрал IndexFieldNames - таблица открылась нормально, но в событии OnNewRecord
значение счетчика при добавлении новой записи все-равно =0 (или оно появляется после Post?).
Причем, пришлось убрать в AfterOpen
TADOTable(Dataset).Properties['Update Criteria'].Value:= adCriteriaKey; // uses ADOInt
т.к. вознакала ошибка:
Item cannot be found in the collection corresponding to the requested name or ordinal.

А пока решил проблему:

TADOTable.Close;
TADOTable.Open;

не очень хорошо, но работает.

Спасибо за ответы.
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / MS Access -> ADO -> проблема с полем типа счетчик / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]