Очистить счетчик ключевого поля

[Алексей К.]

Записываю периодически данные (обновляю) в access табличку. Сначачала удаляю все записи и закрываю базу:

Код: Выделить всё

rs.MoveFirst
Do While rs.EOF = False
            rs.Delete
            rs.MoveNext
Loop

Потом заново ее открываю и записываю. Новые записи добавляются нормально, только счетчик ключевого поля начинает нумеровать с учетом предыдущего кол-ва заприсей. как его обнулить, чтоб с 1 начал нумеровать записи?

[alibek]

А какая тебе разница, с какого номера начинается счетчик?
Если душа просит эстетики, то удали все записи, сожми базу данных, нумерация начнется с 1.

[Алексей К.]

сжать

это как?

[Konst_One]

Код: Выделить всё

DBEngine.CompactDatabase CurrentDb.Name, NewName

[Sebas]

проще таблицу пересоздать)))

база может быть под гиг, вот ждать то придётся...

[alibek]

Sebas, не факт
У меня гиговая таблица жмется минут 5-10.

[Sebas]

Чтобы не отвлекать внимание на стартовый номер счетчика я использую случайную генерацию счетчика

Это как?!??!?!? id=rnd() * х - так?!?!?!?!?

[Sebas]

Sebas, не факт
У меня гиговая таблица жмется минут 5-10.

пожатая 500меговая база компактится на 1.7 селерон~10-20 Минут

[Sebas]

В ацессе есть возможность для счетчика задать не последовательное а случайное заполнение

Это как?

[Алексей К.]

попутно возник вопрос, как создать программно это ключевое поле - счетчик ("Код") ?
простое поле создаю так:

Код: Выделить всё

Set db = CreateDatabase(App.path + "\" + имя_базы + ".mdb", dbLangGeneral)
Set td = db.CreateTableDef("каталоги")
Set fd = td.CreateField("имя", dbText, 255)
td.Fields.Append fd
db.TableDefs.Append td