Что за бред?

[Antonariy]

Есть приложение, работающее с базой Access. И есть два варианта подключения:

Код: Выделить всё

1)
    cn.Open "driver={Microsoft access driver (*.mdb)};Extended Properties=""DBQ=" & App.Path & "\Universys.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"""
2)
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Properties("Data Source") = App.Path & "\Universys.mdb"
    cn.Open

Еще есть процедура отрытия рекордсета

Код: Выделить всё

Private Function GetRecordset(cmd As String) As ADODB.Recordset
Dim rs As ADODB.Recordset
    On Error GoTo ErrorHandler
    Set rs = New ADODB.Recordset
    rs.Open cmd, cn, adOpenStatic, adLockBatchOptimistic
    Set rs.ActiveConnection = Nothing
    Set GetRecordset = rs
    Set rs = Nothing
    Exit Function
ErrorHandler:
    MsgBox Err.Description, vbCritical, "Êðèòè÷åñêàÿ îøèáêà"
End Function

и процедура апдейта

Код: Выделить всё

Public Sub UpdateRS(rs As ADODB.Recordset)
    On Error GoTo ErrorHandler
    Set rs.ActiveConnection = cn
    rs.UpdateBatch
    Set rs.ActiveConnection = Nothing
    Exit Sub
ErrorHandler:
        MsgBox Err.Description, vbCritical, "Êðèòè÷åñêàÿ îøèáêà"
End Sub

Первый вариант соединения не работает под юзером с ограниченными правами, в остальном все в порядке. При втором варианте во время апдейта выходит ошибка "Попытка присвоить значение null переменной, не принадлежащей к типу variant". Этой "переменной" является ключевое поле таблицы, и оно - счетчик. Если проставить id от балды, то нормально проапдейтится. Причем это происходит только с одной таблицей. Пробовал удалить ключевое поле и создать заново - результат тот же. Сабж.

[lord0n]

чета ты загнул, а конекчусь так

Код: Выделить всё


Public RS As Recordset
Public db As Connection


Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Appath & "Zakaz.mdb;Mode=Share Deny None;"

Set RS = New ADODB.Recordset
RS.Open "select * from Zakaz where №_заказа = '" & grd.Text & "'", db, adOpenDynamic, adLockOptimistic


все работает под любыми провами

[alibek]

Это и есть его второй способ.


Antonariy, а нельзя ли создать пользовательский DSN и подключаться через него? Тогда проблем с правами не будет.

[Ennor]

Насчет второго - эта таблица просто обязана чем-то отличаться от остальных. Может, на это поле какой внешний ключ ссылается, или еще каким-то образом контроль целостности реализован?

Хотя я всегда думал, что счетчики не могут быть NULL по определению...

[Antonariy]

Да, ссылается, и да, реализовано каскадное удаление. Однако не вижу, каким образом это может помешать. В базе с десяток таблиц со всякими связями, и больше нигде этот глюк не встречается.

[Antonariy]

Могу выложить базу, если интересно.

[Antonariy]

alibek, было бы можно, вопросов бы не было

[Odrick]

Хотя я всегда думал, что счетчики не могут быть NULL по определению...

Именно Ключевые поля не могут быть Null.