Есть такой код:
Adodc1.ConnectionString = "Provider=Microsoft.Jet." _
& "OLEDB.4.0;Data Source=" & App.Path & "\dbcom.mdb;Mode=ReadWrite;Persist Security Info=False"
Adodc1.RecordSource = "SELECT SPpodr.Key_id, " _
& "SPpodr.Pred_id, SPpodr.Name AS Podr_name, " _
& "SPpodr.Note, SPpred.Name AS Pred_name FROM SPpodr " _
& "INNER JOIN SPpred ON SPpodr.Pred_id = " _
& "SPpred.Key_id ORDER BY SPpodr.Key_id, " _
& "SPpodr.Pred_id"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
И когда я хочу выполнить:
Adodc1.Recordset.Delete
Происходит ошибка:
Run-time error -2147467259 (80004005)
"Недостаточно сведений ключевого поля для обновления"
Если я не ошибаюсь, то это происходит из-за создания рекордсета из нескольких таблиц. Мне удалось по этому поводу нарыть только то, что нужно задать какое то Unique Table dynamic property. А дальше ничего не пойму!
Помогите!!!!
Ответить
|