Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка c Recordset и AddNew
 
#1
05.08.2013 19:36:32
Добрый вечер, не получается решить проблему...подмогите ...

Код
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
    rs.CursorType = adOpenForwardOnly
    rs.LockType = adLockPessimistic
 

Conn.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=..\BD.accdb;"

rs.Open "SELECT * FROM Flew", Conn
With rs
    .AddNew


Ошибка на строке .AddNew "3709 Текущий объект Recordset не поддерживает обновление"
вроде блокировку и курсоры задаю правильно, единственно что есть подозрения насчет библиотек может что-то не подключил ..
Изменено: Garrik - 05.08.2013 19:39:07
 
 
 
#2
05.08.2013 20:04:22
может быть попробовать?
Код
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
05.08.2013 20:11:57
к сожалению не получается...
попробовал много раз... не понимаю ...
 
 
 
#4
05.08.2013 20:27:11
Даже не знаю. Попробуйте задать эти параметры при подключении:
Код
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Conn.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=..\BD.accdb;"
rs.Open "SELECT * FROM Flew", Conn, adOpenForwardOnly, adLockPessimistic
With rs
    .AddNew

А то параметры в результате не действуют возможно, а применяются те, что в подключении по умолчанию установлены.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
05.08.2013 20:38:24
Я очень сильно извиняюсь, The_Prist, оказалось все проще: база access была только для чтения, сейчас все поменял, данные вносятся без ошибки ...

Еще раз извини ... новичок одним словом ... большое спасибо!
Изменено: Garrik - 05.08.2013 20:38:51
 
 
 
Страницы: 1
Наверх