Вставка данных в таблицу. - Microsoft Office Access

Kveldulv · 24.05.2010, 14:50

Здравствуйте!

Помогите, пожалуйста, разобраться. Есть форма, которая не привязана на прямую к таблице, а запонляется по резлуьтатам запроса (тексбоксам присваиваются значения). И есть кнопка вставки отредактированных данных новой строкой в ту же таблицу. И вот проблема, постоянно выскакивает ошибка "Violation of unique key. Cannot insert duplicate key in object". Понимаю, что ошибка связанна с ключом, но не могу понять её причину. После заполнения текстбоксов рекордсет закрывается, и при добовлении записи открывается заново. В таблице проставлен ключ и автоматическое увеличение. Вот код на добавление записи

Код:


Private Sub BottomSave_Click()
On Error GoTo Err_BottomSave_Click
    Dim Connect As New ADODB.Connection
    Connect.ConnectionString = "Provider=SQLOLEDB.1;Integrated  Security=SSPI;"Persist Security Info=False;Initial Catalog=_AFNPlanning;Data Source=RNOVDB0001"
    Connect.Open
    
    Dim result As New ADODB.Recordset
    result.LockType = adLockOptimistic
    result.CursorType = adOpenStatic
    
    result.Open "Common_Products", Connect
    result.AddNew
    
    result.Fields(1).Value = Me.BAANCode.Value
  ...........
   тут присвоение значений дальше
  ...........
    result.Fields(34).Value = Me.PackingSpec

    result.update
    result.Close
    
        
Exit_BottomSave_Click:
    Exit Sub

Err_BottomSave_Click:
    MsgBox Err.Description
    Resume Exit_BottomSave_Click
End Sub

AdrenalinE · 24.05.2010, 20:43

Я так понимаю, что в таблице первое поле - это код чего-то, тип поля - AutoNumber (Increment). Правильно? Зачем тогда ему присваивать значение здесь:

Код:

result.Fields(1).Value = Me.BAANCode.Value

Access сам присвоит ему значение.

Kveldulv · 25.05.2010, 10:27

Нет. Поле "ID" будет нулевым, т.е. оно в присваивании вообще не участвует.
Кажеться разобрался, похоже все дело в связях данной таблицы с другими. Некоторые поля в таблицы являются id записей с других таблиц, и похоже поэтому Access не позволяет проводить программный апдейт. В таблицу без связи данные вставляются прекрасно. Хотя, вставка строки в данную таболицу не ведет к изменению связных таблиц...

24.05.2010, 14:50	#1
Kveldulv Пользователь Регистрация: 09.02.2010 Сообщений: 25	Вставка данных в таблицу. Здравствуйте! Помогите, пожалуйста, разобраться. Есть форма, которая не привязана на прямую к таблице, а запонляется по резлуьтатам запроса (тексбоксам присваиваются значения). И есть кнопка вставки отредактированных данных новой строкой в ту же таблицу. И вот проблема, постоянно выскакивает ошибка "Violation of unique key. Cannot insert duplicate key in object". Понимаю, что ошибка связанна с ключом, но не могу понять её причину. После заполнения текстбоксов рекордсет закрывается, и при добовлении записи открывается заново. В таблице проставлен ключ и автоматическое увеличение. Вот код на добавление записи Код: Private Sub BottomSave_Click() On Error GoTo Err_BottomSave_Click Dim Connect As New ADODB.Connection Connect.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;"Persist Security Info=False;Initial Catalog=_AFNPlanning;Data Source=RNOVDB0001" Connect.Open Dim result As New ADODB.Recordset result.LockType = adLockOptimistic result.CursorType = adOpenStatic result.Open "Common_Products", Connect result.AddNew result.Fields(1).Value = Me.BAANCode.Value ........... тут присвоение значений дальше ........... result.Fields(34).Value = Me.PackingSpec result.update result.Close Exit_BottomSave_Click: Exit Sub Err_BottomSave_Click: MsgBox Err.Description Resume Exit_BottomSave_Click End Sub

24.05.2010, 20:43	#2
AdrenalinE Пользователь Регистрация: 29.09.2007 Сообщений: 95	Я так понимаю, что в таблице первое поле - это код чего-то, тип поля - AutoNumber (Increment). Правильно? Зачем тогда ему присваивать значение здесь: Код: `result.Fields(1).Value = Me.BAANCode.Value` Access сам присвоит ему значение.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вставка записи в таблицу БД через запрос	Mrudda	БД в Delphi	7	07.05.2010 22:09
сортировка данных (пересчет возможных вариантов комбинаций, перенос данных в таблицу)	Vitalik85	Microsoft Office Excel	4	12.08.2009 00:30
Вставка значения в таблицу с автоинкриментным полем	artemavd	БД в Delphi	5	16.05.2009 12:14
расширение и вставка данных в таблицу	Dennikid	Общие вопросы Delphi	12	06.10.2008 09:34
Вставка картинки в таблицу	sabina_smile	Помощь студентам	7	18.10.2007 16:29

25.05.2010, 10:27	#3
Kveldulv Пользователь Регистрация: 09.02.2010 Сообщений: 25	Нет. Поле "ID" будет нулевым, т.е. оно в присваивании вообще не участвует. Кажеться разобрался, похоже все дело в связях данной таблицы с другими. Некоторые поля в таблицы являются id записей с других таблиц, и похоже поэтому Access не позволяет проводить программный апдейт. В таблицу без связи данные вставляются прекрасно. Хотя, вставка строки в данную таболицу не ведет к изменению связных таблиц...