LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
06 февраля 2005
Форумы
Поиск
Список форумов
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Создать п...
Тема: Создать пустую базу
15.06.2007 21:02:50
All
4316 сообщения
Тема: Создать пустую базу
есть разработаная БД. нужно создать такую же, только чтобы некоторые таблицы были пустые, а другие заполненные (справочники). вручную это утомительно -- создается пустая база, затем туда импортируются все таблицы (где с сохранением данных и структуры, где без этого), все запросы, формы и т.д. и все это по отдельности. возможно ли это сделать быстрее. за раненее благодарен.
P.S. Проблемы с базой данных
Автор:
german
от 0:00:00
Источник ...
15.06.2007 21:02:50
beks
21 сообщения
RE: Создать пустую базу
Вот код переносит несистемные таблицы из существующей базы в базу Db1, если записей >100 переносит только структуру
Public Function ScanAndMove()
Dim dbs As Database, str As String, str1 As String
Dim tdf As TableDef, ind As Boolean
Set dbs = CurrentDb
str1 = Left(dbs.Name, InStr(1, dbs.Name, Dir(dbs.Name, vbDirectory), vbTextCompare) - 1)
For Each tdf In dbs.TableDefs
If Not tdf.Name Like "msys*" Then
If DCount("*", tdf.Name) < 100 Then ind = True
DoCmd.TransferDatabase acExport, "Microsoft Access", str1 & "\db1.mdb", _
acTable, tdf.Name, tdf.Name, ind
str = str & tdf.Name & " " & tdf.Connect & " "
End If
Next
Debug.Print str
End Function
P.S. Проблемы с базой данных
Автор:
BS
от 08.08.2002 14:06:16
Источник ...
15.06.2007 21:02:50
All
4316 сообщения
RE: Создать пустую базу
А может проще скопировать mdb-шник физически, а потом натравить на таблицы, которые нужно очистить запрос на удаление?
P.S. Проблемы с базой данных
Автор:
Александр
от 0:00:00
Источник ...
15.06.2007 21:02:50
All
4316 сообщения
RE: Создать пустую базу
спасибо за помощь!!!!
попробую, сообщю результат.
P.S. Проблемы с базой данных
Автор:
german
от 0:00:00
Источник ...
15.06.2007 21:02:50
dima1
1 сообщения
RE: Создать пустую базу
Привет. Вот хотел скопировать и сохранить файл (mdb), но не знаю как . Подскажите please. Спасибо.
P.S. Проблемы с базой данных
Автор:
dima
от 12.04.2004 7:33:30
Источник ...
Страница 1 из 1
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Создать п...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования