ошибка Update

[lord0n]

не пойму в чем дело:
делаю update для строки в базе, а она выдает ошибку 440:

"Недостаточные или не полный сведения о ключевом поле.
Обновление влияет на слишком большое число строк."[/quote][/syntax]

[GB826]

Хотя это скорее на sql.ru
У меня такое было, когда в ключевом поле оказались повторения(только я не пойму как) и я попытался их удалить... Видимо у тебя то же самое...

[Worobjoff]

Стандартная ошибка: не достаточно сведений для того чтобы найти ОДНУ строку которую апдейтить надо.
Лечится добавлением первичного ключа в таблицу или констрейнта (индекса) на уникальность поля (полей).

[lord0n]

Стандартная ошибка: не достаточно сведений для того чтобы найти ОДНУ строку которую апдейтить надо.
Лечится добавлением первичного ключа в таблицу или констрейнта (индекса) на уникальность поля (полей).

То биш надо добавить ключевое поле и все?!
А я их некогда не использую

[Worobjoff]

Есть такое понятие "целостность данных".
Если ее не соблюдать, то даже такая простая схема как две таблицы главный-детальный, уже может содержать ошибки данных, причем неисправимые (если эти данные не дублировались на бумаге).

[lord0n]

то есть при использовании ключевого поля повышается целостность данных?

[GSerg]

Не повышается, а появляется наконец-то.

[lord0n]

выставил ключевое поле - тоже самое
ошибка 440

[lord0n]

единственное что помогает - on error resume next
апдейт делает без ошибок, но все равно это не дело

[lord0n]

вот так выглядит кусок кода

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


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

Set RS = New ADODB.Recordset
RS.Open "select Блокировка from Hran where Адрес_места = '" & txtEnter.Text & "'", db, adOpenDynamic, adLockOptimistic

If RS.BOF = True Then
    Msbox "По вашему запросу ничего не найдено.", mbPurple
    Exit Sub
End If

RS.Fields(0) = cboBlock.Text
RS.Update 'здесь выдает ошибку
RS.Requery


[Antonariy]

Делай выборку вместе с ключевым полем.

[Ennor]

Полный скрипт на таблицу Hran - вперед и на середину, пжалста!

[lord0n]

ОГРОМНОЕ СПАСИБО
Все работает