Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Access
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.70/10: Рейтинг темы: голосов - 10, средняя оценка - 4.70
rvafexa
2 / 11 / 3
Регистрация: 13.08.2012
Сообщений: 282
1

Разделение базы

26.02.2014, 08:46. Просмотров 2002. Ответов 34
Метки нет (Все метки)

привет всем

я хочу использовать в локальном сети програму на 5 компьютеров.

следовательно я разделили базу в одном месте таблицы, а на других компьютеров формы и тагдали (без

таблиц), которые связаны с таблицами.

всё отлично работает за исключением того, что иногда раз 4, 7 дней (по разному) нарушается связь с

таблицами, и нужно занава нужна ставить связь с таблицами.

Подскажите пожалуйста в чем может быть проблема, Можно ли как-то programma обновить связи с таблицами.

спасибо заранее
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2014, 08:46
Ответы с готовыми решениями:

Разделение базы данных
Добрый всем вечер! В БД была таблица "Логины и пароли", на титульной форме...

Разделение базы данных
День добрый всем. Вопрос - в чем основные функциональные различия (+/-) при...

Разделение базы и многопользовательский доступ
Добрый день! Упорядочите пожалуйста мои сведения Access 2010. Требование -...

Все данные таблиц одной базы необходимо добавить в таблицы такой же базы.
В FoxPro я могу обойтись двумя операторами на на каждую таблицу: use А append...

Дамп базы данных, место хранения базы (phpmyadmin)
Здравствуйте, стал знакомиться с денвером как возникло множество вопросов...

34
rvafexa
2 / 11 / 3
Регистрация: 13.08.2012
Сообщений: 282
01.03.2014, 09:48  [ТС] 21
а иначе как работает? =))
0
Agapov_stas
3339 / 1742 / 82
Регистрация: 05.08.2010
Сообщений: 4,449
Завершенные тесты: 1
01.03.2014, 09:48 22
Цитата Сообщение от rvafexa Посмотреть сообщение
а иначе как работает?
Значит что-то в коде. У Вас путь локальный, значит сетка отпадает.
0
rvafexa
2 / 11 / 3
Регистрация: 13.08.2012
Сообщений: 282
01.03.2014, 14:04  [ТС] 23
там никакого кода нету толка линкуется с таблицами
0
Agapov_stas
3339 / 1742 / 82
Регистрация: 05.08.2010
Сообщений: 4,449
Завершенные тесты: 1
01.03.2014, 14:17 24
Ну, играйте в угадайку сами.
0
Серж_87
1293 / 499 / 63
Регистрация: 09.08.2012
Сообщений: 2,056
01.03.2014, 15:04 25
rvafexa, я бы сделал интерфейс программы в виде приложения .exe и подключался к базе только в момент чтения/записи. Тем самым ваша ошибка у меня не возникала бы и скорость работы базы возрасла, имхо
0
WiLex
74 / 74 / 1
Регистрация: 22.08.2010
Сообщений: 194
01.03.2014, 16:08 26
путь не сетевой т.к. судя по всему тут путь к Сетевому Диску!
я в свое время отказался использовать сетевые диски, т.к. мелкософт что-то там не доработал и сетевые диски действительно вылетают периодически!
рекомендую использовать "разшаренную" папку и использовать все же путь типа:
\\Saredfolder\ProjectFolder\DB
или
\\DB если есть необходимость в открытии только папки с базой*

Добавлено через 5 минут
код для кнопочки с возможностью выбрать папку где лежит БД (сетевые пути разрешены)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub cmdButtonDir_Click()
    Dim strTitle As String
    Dim intOptions As Integer
    Dim varRootFolder As Variant
    Dim objShell   As Object
    Dim objFolder  As Object
    
    intOptions = 0
    varRootFolder = ""
    
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(lnghWnd, strTitle, intOptions, varRootFolder)
    
    If (Not objFolder Is Nothing) Then 'сохранение полученного пути
        strNewPath = objFolder.ParentFolder.Items.Item(objFolder.Title).Path
        Me.txtBoxPatchFile = strNewPath
        MyTempVars "tmpStrPathProject", strNewPath
 
    End If
    
    Set objFolder = Nothing
    Set objShell = Nothing
 
End Sub
0
Agapov_stas
3339 / 1742 / 82
Регистрация: 05.08.2010
Сообщений: 4,449
Завершенные тесты: 1
01.03.2014, 16:08 27
Цитата Сообщение от WiLex Посмотреть сообщение
путь не сетевой т.к. судя по всему тут путь к Сетевому Диску!
Если он локальный, какая фиг разница какой диск?
0
WiLex
74 / 74 / 1
Регистрация: 22.08.2010
Сообщений: 194
01.03.2014, 16:14 28
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public dbs As Database
 
'Created 13/01/2012 Wilex Soft Studio
'Колекция глобальных переменных
'Создает колекцию именованных глобальных переменных,
'хранящие значения на протяженнии всей сеии пользователя
'Известные проблемы!
'Run Time Error
'если приложение сбрасывает выполнение программ, значения переходят в состояние Null
Public Function MyTempVars(Name As String, Optional Val) 'Функция принимающая и возвращающая переменные
Static MyTempVarsCol As New Collection 'колекция переменных
On Error Resume Next
    MyTempVars = Null
    'колекция
    MyTempVars = MyTempVarsCol(Name)
    'проверка на отсутствующие значения переменных в колекции
    If IsMissing(Val) Then Exit Function
    'удаление переменных в колекциях с отсутствующими значениями переменных в колекции
    MyTempVarsCol.Remove Name
    'создание перемнной со значением "НЕ ПУСТО"
    If Not IsNull(Val) Then MyTempVarsCol.Add Val, Name
End Function
если используете АКС 2007 и выше можете заменить Временной переменной

Добавлено через 3 минуты
диск не локальный а ПСЕВДО-ЛОКАЛЬНЫЙ, а на самом деле путь к этому диску может быть \\Saredfolder\ProjectFolder\DB, а в винда эту строку превращает в X:\
0
rvafexa
2 / 11 / 3
Регистрация: 13.08.2012
Сообщений: 282
02.03.2014, 11:07  [ТС] 29
i shto mne setimi kodami delat? nojet primer failov vilojite shtob smog razabratsia

Добавлено через 23 секунды
ato nechevo ne razabral... =))

Добавлено через 11 часов 38 минут
Private Sub cmdButtonDir_Click()
Dim strTitle As String
Dim intOptions As Integer
Dim varRootFolder As Variant
Dim objShell As Object
Dim objFolder As Object

intOptions = 0
varRootFolder = ""

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(lnghWnd, strTitle, intOptions, varRootFolder)

If (Not objFolder Is Nothing) Then 'сохранение полученного пути
strNewPath = objFolder.ParentFolder.Items.Item(objFolder.Title).Path
Me.txtBoxPatchFile = strNewPath
MyTempVars "tmpStrPathProject", strNewPath

End If

Set objFolder = Nothing
Set objShell = Nothing

End Sub

Добавлено через 4 минуты
ЭТОТ КОД выдает ОШИБКУ
0
Волшебник 307
1381 / 317 / 44
Регистрация: 16.04.2013
Сообщений: 756
Записей в блоге: 2
02.03.2014, 11:35 30
rvafexa,
Можно ведь и конкретнее,
Или нельзя?
0
rvafexa
2 / 11 / 3
Регистрация: 13.08.2012
Сообщений: 282
02.03.2014, 20:44  [ТС] 31
МНЕ СКАЗАЛИ ЗДЕСЬ ЧТО ЭТОТ КОД ДЛЯ СВЯЗИ...

ЧТО ТО НЕ ТО
0
Вложения
Тип файла: rar x.rar (24.2 Кб, 9 просмотров)
rvafexa
2 / 11 / 3
Регистрация: 13.08.2012
Сообщений: 282
02.03.2014, 20:45  [ТС] 32
ЭТОТ КОД выдает ОШИБКУ
0
Sazabi
4 / 4 / 0
Регистрация: 20.01.2015
Сообщений: 142
29.01.2016, 12:27 33
Вопрос по теме, подскажите пожалуйста как в уже разделенной базе установить новый путь от пользовательской части к самой базе (таблицам, где хранятся все данные)
База переехала на совсем другое место, в общем, все старые пути теперь не актуальны.
0
ltv_1953
Эксперт MS Access
12900 / 5861 / 1139
Регистрация: 21.06.2012
Сообщений: 10,560
29.01.2016, 12:39 34
Указать новое размещение и обновить в Диспетчере связанных таблиц (на ленте: Внешние данные-Диспетчер связанных таблиц).
1
Samual_J_Colt
20 / 20 / 4
Регистрация: 10.11.2015
Сообщений: 123
29.01.2016, 15:05 35
Упссс... не заметил вторую страницу сначала. ) так, что удалил коммент.
0
29.01.2016, 15:05
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2016, 15:05

Разделение БД
Здравствуйте ! Столкнулся с проблемой. Как-то разделил БД ( 1 часть: формы,...

Разделение таблиц
Здравствуйте уважаемы гуру! Обращаюсь к Вам с просьбой помочь состряпать...

разделение даты
добрый день!!можете подсказать как составить запрос что бы он разделил дату.у...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
35
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru