Victosha
Можно расписать слегка что есть cnnAccess.Mode=16?
Насчет транзикций, по умолчанию-то их не один юзер не видит ,в смысле добавляемые в транзакции записи, прально?
Senin Viktor
Т.е. по умолчанию Page-level Locking стоит?
А код я не могу полный привести, весь модуль что ли сюда забабахивать?
Основное выглядит так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
Public cnnAccess As New ADODB.Connection
--------------------------------
Function Work() as Boolean
Dim Result as Boolean
cnnAccess.CursorLocation = adUseClient
cnnAccess.Open "Provider=Microsoft.Jet.OLEDB.4 . 0 ;" & _
"Data Source=\\Dom\D\Data\lab.mdb;" ' & _
cnnAccess.BeginTrans
Result = AddProduct(Id_Customer, Name)
If Result Then
cnnAccess.RollbackTrans
GoTo CancelHandler
End If
cnnAccess.CommitTrans
cnnAccess.Close
Set cnnAccess = Nothing
Exit Sub
CancelHandler:
cnnAccess.Close
Set cnnAccess = Nothing
Work = True
MsgBox "Error"
End Sub
------------------------------
Function AddProduct(Id_Customer as Long, Name as String) as Boolean
Dim rst As New ADODB.Recordset
Dim sql As String
sql = "SELECT * FROM Products Where Id_Product = 1"
rst.Open sql, cnnAccess, adOpenDynamic, adLockOptimistic
With rst
.AddNew
!Id_Customer = Id_Customer
!Name = Name
.Update
AddProduct = True
' ПОСЛЕ ЭТОГО ВСЯ ТАБЛИЦА БЛОКИРУЕТСЯ ПОКА ИЗ ПРОГИ НЕ ВЫЙДЕШЬ!!!
End With
rst.Close
Set rst = Nothing
End Function
------------------------------
Самое интересное: попробовал испытать на тестовой базе. Создал базу, создал в ней простую таблицу, запустил код - после Update если попытаться редактировать любую запись в таблице Access выдает: <Обновление невозможно; установлена блокировка>
Меняю adOpenDynamic на adOpenKeyset - ура! после Update записи даются редактировать. Пошел заменил в основной базе adOpenDynamic на adOpenKeyset, вроде срабатывает, записи редактируемые после Update, но через некоторое время работы они опять блокируются и каким образом не пойму.
