LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  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 сообщения
1-ый


RE: Приложения
Логика программы требует пересмотра. При подключении внешней базы данных крайне нежелательно создавать/удалять таблицы, т.к. копируются не только названия таблиц в базу данных, но и их данные (при удалении таблицы данные не уничтожаются, а становятся лишь невидимыми-недоступными). Выход из положения - используйте связанные таблицы. Пример подключения их смотрите пример 18 в файле la_form1.mdb


P.S. Общие вопросы по базе данных
Автор: Виктор Конюков от 0:00:00 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Приложени...
ПоискПоиск  Список форумовСписок форумов  
right