|
|
|
новичок
участник
Last Login: 08.12.2000 23:41
Сообщ.: 1,
Visits: 12
|
|
Ситуация следующая:
Имеется база. С ней со многих машин работают юзера. Таблицы и формы отдельно. Сеть винда98.
Так вот с некоторых пор база падает если к ней подключается третий юзер,если два то работает нормально. Переустановки винды, машин, сети, кабелей ничего не дали... Помогите люди добрые ,
не дайте погибнуть под обстрелом бухгалтерии :)
Ответ плиз дублируйте на мыло mvig@mail.ru
Заранее спасибо...
|
|
|
|
|
Supreme Being
администратор
Last Login: 13.11.2007 13:41
Сообщ.: 4 421,
Visits: 49 251
|
|
Привет,
вот пример процедуры, которая открывала две БД и где одновременно работали до 5 человек. Первая открывалась для редактирования, вторая - только для чтения.
''-------------------------------------------------------------------
'' Открываем БД с правами пользователей
'' (возвращает true, если все OK.)
''-------------------------------------------------------------------
Private Function SecureDatabaseOpen() As Boolean
Dim JetName$, dbOkName$, dbTpName$
On Error GoTo dbOpenErr
JetName = "Opera"
DBEngine.SystemDB = syspath & "\db\system.mdw"
dbOkName = syspath & "\db\dbotp.mdb"
dbTpName = syspath & "\db\dbmtp.mdb"
If InStr(Command, "-a") <> 0 Then
Set wrkJet = DBEngine.CreateWorkspace(JetName, "Admin", "")
Else
Set wrkJet = DBEngine.CreateWorkspace(JetName, "User", "")
End If
DBEngine.Workspaces.Append wrkJet
'' Write/read
Set dbok = DBEngine.Workspaces(JetName).OpenDatabase(dbOkName, , False)
'' Read only
Set dbTP = DBEngine.Workspaces(JetName).OpenDatabase(dbTpName, , True)
SecureDatabaseOpen = True
Exit Function
dbOpenErr:
AdmMsgBox "Ошибка при открытии БД: " & vbLf & Err.Description
SecureDatabaseOpen = False
End Function
|
|
|
|
|
Junior Member
участник
Last Login: 22.12.2000 13:39
Сообщ.: 10,
Visits: 111
|
|
Access базы часто ломаются если в таблицах
используются составные индексы. Как только
начинается интенсивное добавление записей
(от нескольких зеров), так он падает.
Может, в этом дело.
Нельзя ли узнать подробнее как он падает
в твоём случае? Диагностика хоть какая-то есть?
|
|
|
|