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:55
Dmitriy1
21 сообщения
Тема: Приложения
При оформление программы интерфейс весь в файле MDB(4Mb), остальная часть MDB(2Mb).При подключении таблиц способ указанным ниже способом файл MDB увеличивается до 7 (Mb) и появляется ошибка о нехватки памяти. Как быть? Может быть сделать автоматическое сжатие данных при открытии и закрытии БД? Почему справка по Access дает размер файла 2 Гбайт.
Public Function Join_Database()
Dim MyPath As String 'Путь в базам
Dim MyBase As String 'Строка подключения
Dim s As String
s = Application.CurrentProject.Path
'MyPath = "C:\MyDataBaseFolder\"
'MyBase = ";DATABASE=" & MyPath & "MyData.mdb"
MyBase = ";DATABASE=" & s & "\" & "ТаблицыДляАРМОфОВР.mdb"
Call Connect_Table("№Приказа", MyBase)
И т.д.
End Function
'============================================================
Private Function Connect_Table(MyTableName, MyBase As String)
Dim MyTable As TableDef
On Error Resume Next 'Выключение обработчика ошибок
DoCmd.DeleteObject acTable, MyTableName 'Удаление таблици
Err = 0 ' Очистка кода ошибки.
On Error GoTo Error_Connect_Table
Set MyTable = CurrentDb.CreateTableDef(MyTableName)
MyTable.Connect = MyBase 'Задаем строку подключения
MyTable.SourceTableName = MyTableName 'Задаем имя исходной таблицы
CurrentDb.TableDefs.Append MyTable 'Присоединение таблицы
Set MyTable = Nothing
Exit Function
Error_Connect_Table:
'Выдача сообщения
MsgBox "Ошибка при подключении таблицы - " & MyTableName
End Function
P.S. Общие вопросы по базе данных
Автор:
Дмитрий
от 23.08.2002 9:57:45
Источник ...
15.06.2007 21:02:55
All
4316 сообщения
RE: Приложения
Логика программы требует пересмотра. При подключении внешней базы данных крайне нежелательно создавать/удалять таблицы, т.к. копируются не только названия таблиц в базу данных, но и их данные (при удалении таблицы данные не уничтожаются, а становятся лишь невидимыми-недоступными). Выход из положения - используйте связанные таблицы. Пример подключения их смотрите пример 18 в файле la_form1.mdb
P.S. Общие вопросы по базе данных
Автор:
Виктор Конюков
от 0:00:00
Источник ...
Страница 1 из 1
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Приложени...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования