Access, как програмно скопировать таблицу?

[Руслан С.]

Ситуация такова:
Есть база .мдб и в ней таблица. В таблице были удалены некоторые записи и в поле с автосчётчиком остались от этого “пробелы”.

Я хочу чтобы в таблице записи снова стали по порядку.

Для этого хочу создать копию таблицы в той же базе под другим именем, потом создать пустую таблицу точно такой же структуры и с помощью обьекта recordset добавлять записи из старой таблицы в новую поштучно(на данный момент там ок 300 000 записей).

Я не знаю способа, как можно было бы скопировать таблицу полностью, с сохранением всех не только записей, но и свойств, заданных из среды MS Access, таких как Format, Lookup... Как задать эти свойства при создании базы програмно, я тоже не знаю.

Я пробовал копировать таблицу так(других способов не знаю):
SELECT * INTO ИмяТабл(куда) FROM ИмяТабл(откуда)
В итоге получилась таблица, содержащая те же данные, но в её свойствах Format и lookup совсем другие значения, отличные от оригинала. Например, в lookup было checkbox, а вновой таблице стало textbox. Свойство Format было Yes\No, а стало пустым.

Подскажите другие способы скопировать таблицу, а также, как задать вышеуказанные свойства при создании базы програмно (DAO).

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=13474

[Al Khamid]

[Руслан С.]

Только непонятно, зачем нужна такая "стройность", зачем удалять "пробелы"? Думаешь, что счетчика не хватит на всю жизнь?

Понимаешь... надо, чтобы шеф никогда не узнал о стирании записей

[Руслан С.]

DoCmd.CopyObject, "Сотрудники (копия)", acTable, "Сотрудники"

вот что я сделал:
Dim A As Access.Application
Set A = New Access.Application

A.DoCmd.CopyObject "E:\Data.mdb", "Таблица1", acTable, "Таблица"

получил ошибку "You can't carry out this action at the present time"

Программно и через SQL это прокатывает.

В таком случае может я зря заморачиваюсь с копированием, может нужно просто перенумеровать записи в оригинальной таблице?
А что, просто полю с автоинкремент присваиваешь новое значение и он его принимает? так просто?

[Алексей К.]

А если хочешь чтобы шеф не видел пробелы, то можешь поступить так:
select * from имя_таблицы order by имя_поля счетчика
Этим самым ты получаешь всю таблицу упорядочную по возрастанию счетчика.
Потом делаешь цикл по количеству записей в таблице и меняешь значения поля счетчика по возрастанию с 1 до кол-ва записей, что-то типа типа:
rs.movefirst
for i= 1 to rs.recordcount
rs.edit
rs.fields("имя_поля_счетчика")=i
rs.update
rs.movenext
next i
Это можно и в макросе access сделать и не надо мучаться....

[Руслан С.]

Это можно и в макросе access сделать и не надо мучаться....

Поле с автосчётчиком и первичным ключом...

при попытке редактирования
rs.fields("имя_поля_счетчика")=i
эта строка вызвала ошибку.

Итак, кто-нибудь может сказать, как из кода VB работать с обьектами из библиотеки Microsoft Access 10.0 Object Library?

В самом акцесе есть такая функция Export, это когда правым кликом на таблице. Там можно экспортировать только структуру таблицы или полностью всю таблицу с данными. Научите меня вызвать эту функцию из VB, пожалуйста.

[Konst_One]

читай описание на функцию TransferDatabase

[Sebas]

Только непонятно, зачем нужна такая "стройность", зачем удалять "пробелы"? Думаешь, что счетчика не хватит на всю жизнь?

Понимаешь... надо, чтобы шеф никогда не узнал о стирании записей

А что за система, если не секрет?

[Руслан С.]

А что за система, если не секрет?

да не секрет
програма написана одним програмером-студентом и предназначена для видеопроката.

[Al Khamid]

лд

[Алексей К.]

Я не знал что поле счетчик даже программно изменять нельзя, так что остается как уже говорили удалить поле-счетчик, потом создать.
Вот код:

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


база = App.Path + "\" + "db1.mdb"
таблица = "Таблица1"
Set db = OpenDatabase(база, False)
'удаляем поле-счетчик
db.Execute ("alter table таблица1 drop счетчик")
'создаем поле-счетчик
Set tbl = db.TableDefs(таблица)
Set fld = tbl.CreateField("счетчик", dbLong)
fld.Attributes = fld.Attributes + dbAutoIncrField
tbl.Fields.Append fld
db.Close


Ну и сам пример программы с базой (база изначально содержит "пробелы" в счетчике):

[GSerg]

Если ты смог удалить поле-счётчик, значит, в таблице нет связей по нему. А значит, это поле вообще не имеет смысла.

[Руслан С.]

Поэтому так запросто меняя коды, мы нахрен убиваем всю накопленную информацию. Если этот код ни с чем не завязан, то его смысл вообще отпадает..

Раньше его вообще не было, но шеф попросил, чтобы можно было как-то контролировать целостность таблицы, вот и сделали ему поле пронумерованное и програмку, которая бегает по этому полю и говорит, когда находит окно. А связи нет. Смысл первичного ключа в данном случае в том, что его редактировать нельзя.

В общем делаешь следующее: в свойствах поля счетчика (режим конструктора таблицы) свойство "новые значения" ставишь "Случайные" вместо "Последовательные". И вот тогда пойди разбери сколько было, сколько удалено.....

Это тоже не подходит, так как шеф контролирует порядок.

Могу подкинуть программу для видеопроката.

Если можно... на мыло budhead (eta) bamba (тчк) lt

[Руслан С.]

Я решил эту задачку так:

Option Explicit
Const Path As String = "C:\Data.mdb"

Sub Main()
Dim ACCSS as New Access.Aplication
Dim DB as DAO.DAtabase
Dim RSfrom as DAO.Recordset, RSto As DAO.recordset

ACCSS.NewCurrentDatabase Path

DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\data.mdb", acTable, "Tbl_ORG", "Tbl_CopyORG"

DoCmd.DeleteObject acTable, "Tbl_ORG"

DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\data.mdb", acTable, "Tbl_CopyORG", "Tbl_ORG", True

Set DB = OpenDatabase(Path)
Set RSfrom = DB.OpenRecordset("Tbl_CopyORG")
Set RSto = DB.OpenRecordset("Tbl_ORG")
RSfrom.MoveFirst
Do Until RSfrom.EOF
RSto.AddNew
RSto!Field1 = RSfrom!Field1
RSto!Field2 = RSfrom!Field2
RSto.Update
RSfrom.MoveNext
Loop
Set RSfrom = Nothing
Set RSto = Nothing
Set DB = Nothing
DoCmd.DeleteObject acTable, "Tbl_CopyORG"
Set ACCSS = Nothing

ВСЕМ БОЛЬШОЕ СПАСИБО ЗА УЧАСТИЕ
СПАСИБО Konst One ЗА ТО, ЧТО НАДОУМИЛ С ФУНКЦИЕЙ
TransferDatabase