Сохранение записей в БД

[Wowa]

У меня такая проблема мне нужно добавить в БД 1000 новых записей с исходным значением каждой "0". Сначала
с помощью Data Form Wizard я создал форму, в кнопку AddNew(для создания новой записи) добавил код:

For i = 1 to 1000
datPrimaryRS.Recordset.AddNew
datPrimaryRS.Recordset.Fields("Q") = "0"
datPrimaryRS.Recordset.UpdateBatch adAffectAll
Next i

Создаёт нормально 1000 новых записей с значением "0", но когда изменить
значение любой из записей и Updateнуть(datPrimaryRS.Recordset.Update) её, то появляется
такая ошибка - "Недостаточные или неполные сведения о ключевом поле. Обновление влияет
на слишком большое количество строк". Что мне делать? Спасибо всем
(кто попытается помочь или кто хотя-бы выслушал это)

[snov]

У меня такая проблема мне нужно добавить в БД 1000 новых записей с исходным значением каждой "0". Сначала
с помощью Data Form Wizard я создал форму, в кнопку AddNew(для создания новой записи) добавил код:

For i = 1 to 1000
datPrimaryRS.Recordset.AddNew
datPrimaryRS.Recordset.Fields("Q") = "0"
datPrimaryRS.Recordset.UpdateBatch adAffectAll
Next i

Создаёт нормально 1000 новых записей с значением "0", но когда изменить
значение любой из записей и Updateнуть(datPrimaryRS.Recordset.Update) её, то появляется
такая ошибка - "Недостаточные или неполные сведения о ключевом поле. Обновление влияет
на слишком большое количество строк". Что мне делать? Спасибо всем
(кто попытается помочь или кто хотя-бы выслушал это)

Попробуй

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

For i = 1 to 1000
datPrimaryRS.Recordset.AddNew
datPrimaryRS.Recordset.Fields("Q") = "0"
datPrimaryRS.Recordset.Update
Next i

[Wowa]

Попробовал, результат тотже и когда я меняю значение одной записи, то значения всех остальных записей становятся такимиже

[snov]

А база в Access'е? какоготипа поле?

[Sedge]

Попробовал, результат тотже и когда я меняю значение одной записи, то значения всех остальных записей становятся такимиже

Ключевое поле в таблице есть?
Код апдейта и структуру таблицы - в студию.

[Wowa]

В Access'е. Поле типа Text. Ключевого поля нет.
Код апдейта:

Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr

datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub

Код Add New:
Private Sub cmdAdd_Click()
On Error GoTo AddErr
datPrimaryRS.Recordset.AddNew

Exit Sub
AddErr:
MsgBox Err.Description
End Sub

Структура:
Таблица - QP
Поле - Q
Тип - Text
Размер - 30
Нач.значение - 0

Я недавно начал работать с БД, может чё и неправильно понял, но я всёже думаю что проблема в строке
datPrimaryRS.Recordset.Fields("Q") = "0", может как-то по-другому можна создать 1000 записей с исходным з-ем "0". И ещё любые изменения любой записи действуют на остальные записи, если я удаляю одну запись - удаляются и все остальные, но только созданые таким способом:
For i = 1 to 1000
datPrimaryRS.Recordset.AddNew
datPrimaryRS.Recordset.Fields("Q") = "0"
datPrimaryRS.Recordset.UpdateBatch adAffectAll
Next i
,а те которые я создавал по одной "вручную":
Add New -> ввёл з-ние записи -> Update - остаются.

[Ennor]

Можно и по-другому создать, конечно. Если у тебя есть такая вещь, как Connection, то в твоем цикле:

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

Conn.Execute "insert into QP (Q) VALUES ('0')"

И все, никаких извратов с клиентско-серверными гибридами кода не нужно...

[snov]

Действительно попробуй добавлять запросом.

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

db.Execute "Insert Into QP (Q) Values('0')"

Если в Access пишешь, то db поменяй на CurrentDb

[Sedge]

Я бы посоветовал создать-таки в Access'овской таблице ключевое поле, на отсутствие которого явно ругается процедура апдейта.

И, кстати, какие именно компоненты используются для доступа к данным? В частности - с привязкой к DAO или к ADO?

но я всёже думаю что проблема в строке
datPrimaryRS.Recordset.Fields("Q") = "0", может как-то по-другому можна создать 1000 записей с исходным з-ем "0".

Стоп. У тебя ошибка появляется при добавлении записей или при попытке изменения?

[Костя]

А может быть убрать строку обновления из цикла, и по его завершении обновить всё сразу?

[Костя]

А вообще я всегда использую ADO. Например

dim datPrimaryRS as new adodb.recordset
datPrimaryRS.open имя базы, провайдер (в данном случае access), источник и т.д.

Затем цикл, в котором
datPrimaryRS.addnew
datPrimaryRS.fields("q") = "0"

А потом, по завершении цикла, ввести строку datPrimaryRS.update. Тогда обновится вся таблица. В этом случае твоих проблем не возникало, проверенно. У меня в этом случае даже команда datPrimaryRS.update не нужна была - всё обновлялось автоматически. Я правда, с ораклом работал...

[Юра П]

У меня такая проблема мне нужно добавить в БД 1000 новых записей с исходным значением каждой "0".

А зачем ты присваиваешь значение записям в коде во время выполнения программы? При создании БД можно указать значение по умолчанию (defaul value), вот и укажи там свой нуль.