Как программно сжать БД Access для восст-я порядка нумерации

[Cnoppiks]

Всем доброго времени сутков!!

Подскажите пожалуйста, как программно сжать БД Access, для того чтоб восстановить порядок нумерации строк в счетчике(инкрементном)?

[lord0n]

Всем доброго времени сутков!!

Подскажите пожалуйста, как программно сжать БД Access, для того чтоб восстановить порядок нумерации строк в счетчике(инкрементном)?

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


DBEngine.CompactDatabase Appath & "Art.mdb", Appath & "1.mdb"
Kill Appath & "Art.mdb"
Name Appath & "1.mdb" As Appath & "Art.mdb"


из моего проекта

[Cnoppiks]

lord0n

Спасиб . Щас попробую.

[Cnoppiks]

lord0n

Чего й то не работает. Я удалил 200-ю строку из базы, идет нумерация ... 199, 201,... Код повесил на кнопку, для начала:
Private Sub Print_Click()

Application.CloseCurrentDatabase
DBEngine.CompactDatabase "c:\Vizitki1.mdb", "c:\1.mdb"
Kill "c:\Vizitki1.mdb"
Name "c:\1.mdb" As "c:\Vizitki1.mdb"

End Sub
Все вроде норм, но нумерация не меняется...Что не так делаю, подскажи?

[alibek]

Ты можешь внятно объяснить, зачем тебе управлять значениями счетчика?

[Cnoppiks]

Чтобы при удалении записи из базы нумерация опять шла по порядку.

[lord0n]

а зачем, чем так не устраивает

[alibek]

Чтобы при удалении записи из базы нумерация опять шла по порядку.

Зачем?

[Cnoppiks]

Устраивает и так, хотелось разобраться, натареть БД "до блеска"-)

[Cnoppiks]

Лана, и правда фик с ней... Спасиб за помосчь!!

[lord0n]

Устраивает и так, хотелось разобраться, натареть БД "до блеска"-)

drop index или alter tabel

[Cnoppiks]

А тот вариант который ты предлагал с сжатием(DBEngine.CompactDatabase ), он для каких целей тогда ?

[lord0n]

А тот вариант который ты предлагал с сжатием(DBEngine.CompactDatabase ), он для каких целей тогда ?

для сжатия базы
у тя есть база размером мегов под 200-300
на ней это ощутимо

[Cnoppiks]

lord0n

Все, теперь понятно. Лабрагодарю!)