Добрый день. Делаю выгрузку в access. Возник затык с одной функцией
а именно привожу код
   docum = Новый COMОбъект("ADODB.RecordSet");
   docum.Open("SELECT * FROM DOCUM;",Connection,2,3,);
   Попытка
     Попытка
       docum.Movelast();
   Исключение
       Сообщить("добавляем ПЕРВУЮ запись! :))");
   КонецПопытки;
           docum.AddNew();
           NewDocNum = docum.Fields("ID").Value;
           docum.Fields("ID").Value  = NewDocNum;
           docum.Fields("Created").Value = ""+СсылкаППИ.Дата;
           //    Docum.IND = Перечисление.Булево.Нет;
           docum.Fields("DOCTYPE").Value = "PAY_DOC";
           docum.Fields("ACKSTAT").Value = "U";
           docum.Fields("SUMMARY").Value= "Платежное поручение №"+СокрЛП(СсылкаППИ.Номер)+" от "+СсылкаППИ.Дата+" на сумму "+СсылкаППИ.СуммаДокумента+" получатель "+СсылкаППИ.Контрагент.Наименование;
           docum.Update();
       Исключение
           Сообщить("Не удается добавить документ: №"+СокрЛП(СсылкаППИ.Номер)+" проблемы с записью в таблицу DOCUM");
       КонецПопытки;

Сваливается на AddNew() выдавая следующее Ошибка при вызове метода контекста (AddNew): Произошла исключительная ситуация (Microsoft JET Database Engine): Поле '#PAY_DOC.#KOD' не допускает ввод пустых строк.

По идеи в AddNew надо передать заполнение этого параметра, но как это правильно сделать не пойму.

Может кто сталкивался?

ap

А попробовать сначала заполнить реквизиты, а потом добавить ?
Да и вообще - для добавления лучше открывать таблицу (вместо запроса указать имя таблицы).

(2) Можно образец кода, что бы зря не тыкаться

(2) заполнения реквезита не помогло

И ещё - вот это что ?
NewDocNum = docum.Fields("ID").Value;
То есть ты считаешь, что за тебя кто-то ИД сгенерит - а в описании таблицы сказано, что поле автоинкремент или нет ?

(5) да

А добавление записи делается через INSERT - тогда, возможно, автоинкремент и сработает, но в случае создания записи через RecordSet insert будет отрабатывать уже после того, как всё заполнено - вот он и ругается.

Насколько я помню, сначала пишется инструкция INSERT, где указывается, какие поля будут параметрами, потом делается PREPARE (подготовка), потом заполняются параметры, а потом EXECUTE (то есть исполнение) - тогда автоинкремент отработает.

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

достатчно сделать Insert, а потом EXECUTE в случае c access

(8) так ругается не на ID

Я, конечно, по памяти пишу так, что переписывать надо, но.

Cmd=Новый СОМОбъект("ADODB.Command");
Cmd.Connection=Connection;
Cmd.CommandText="INSERT INTO DOCUM(Created,DOCTYPE,ACKSTAT,SUMMARY)VALUES(?,?,?,?);
// здесь заметим, что ID мы не указываем, так как оно будет автоматически создаваться

// здесь сразу скажу, что как работать с коллекцией параметров я не помню
// последний раз работал в JavaScript - но там просто ж... с ними
Cmd.Parameters.Item(0).Value=String(СсылкаППИ.Дата);
Cmd.Parameters.Item(1).Value="PAY_DOC";
// и так далее для остальных

Cmd.Execute();// выполняем
// далее, читаем через что возвращается последний сгенерённый ид
// насколько я помню - это можно
// конечно, если он нам где-то ещё нужен

(12) Огромное спасибо буду пробовать

(11) Так, а что за магическое поле PAY_DOC.КОД ? - что-то есть подозрение, что оно должно быть заполнено, а про него в запросе просто забыли - и автоинкремент там как раз и не работает.
P.S. кажется, мы копаем в другом месте.

Если кто ещё чего знает кидайте. Потом статью на инфостарте запилю))))

(13) Погоди пробовать - смотри 14, так как есть мнение, что не указали обязательное поле.

(11) да оно должно быть заполнено, но сваливается на addnew() до заполнения не доходит

(17) Тогда смотри 12 и не забудь про КОД - хотя там ошибка при EXECUTE будет, и система правильно скажет, что что-то забыли.
P.S. Заглянул в NDSN:
AddNew - добавление записи:

AddNew Method (ADO)
Creates a new record for an updatable Recordset object.
Syntax
recordset.AddNew FieldList, Values

Так что оно правильно тебя послало - полей не передано - добавлять нечего, вот и ошибка.

Только оно MSDN называется - кстати, в сети есть и на русском - там вообще должно быть всё понятно (если переводчик понимал, что переводит).

в MSDN смотрел
пытался
AddNew("#PAY_DOC", "1");

все равно не работает

(20) FieldList - это список полей, а Values - список значений, то есть массивы.
Создать два массива - не проблема.
В VbScript просто бы написал
Rec.AddNew Array(FieldName1,...,FieldNameN),Array(FieldValue1,...,FieldValueN)
А в 1С придётся массивы создавать (чего-то я как-то не припомню, как можно сделать динамический массив).

В семёрке я динамические массивы делал через MSScriptControl, из которого в 1С доставал объекты - всё прекрасно работало, а вот в восьмёрке делать такое как-то не хочется - там своего функционала навалом.

через DLO-36 или как там называется не ado протокол аксесный все норм работает, пытаюсь на ADO переписать вывалиевает такую ошибку

(23)[Поле '#PAY_DOC.#KOD']
ежику же понятно, что  PAY_DOC является внешним ключом, а ты в него стринг пытаешься впендюрить

описался я делал
AddNew("#KOD", 1);

советую Вам найти спрапвку от access97

она намного удобней чем последующие. непомню есть ли рускоязычная.

(25) ещё раз реальный код 1С и реальную ошибку Adodb

(25) А разве нужно только код установить - скорей всего, нужно задать все поля, а не только одно.

(27) Написана реальная ошибка

которая по ОписаниеОшибки() выводит

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

все таки как правильно создать addnew с заполняемыми полями

Рекордсет= Новый COMОбъект("ADODB.RecordSet");
Рекордсет.ActiveConnection=Connection;
Рекордсет.CursorLocation = 3 ;
Рекордсет.LockType = 4;
Рекордсет.CursorType = 2;
Рекордсет.Open ("SELECT * FROM DOCUM") ;

Рекордсет.AddNew();    
Рекордсет.Fields("COL_NAME").Value  = "ЗНАЧЕНИЕ";
Рекордсет.UpdateBatch();

На addnew() вылетает, я это уже выше писал

Ниже кусок работающего кода

СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ПутьКБазе;
СоединениеСБазой = Новый COMОбъект("ADODB.Connection");

//Соединяемся
СоединениеСБазой.Open(СтрокаПодключения);    

НаборЗаписей = Новый COMОбъект("ADODB.Recordset");  
НаборЗаписей.Open("SELECT * FROM ZAO_UCB;",СоединениеСБазой,0,2);

НаборЗаписей.AddNew();
НаборЗаписей.Fields("FNAME").Value = строка(рез.Фамилия);


НаборЗаписей.update();

СтандартнаяОбработка = Ложь;
   
   Режим = РежимДиалогаВыбораФайла.Открытие;
   Диалог = Новый ДиалогВыбораФайла (Режим);
   Диалог.ПолноеИмяФайла = "";
   Фильтр = "mdb(*.mdb)|*.mdb";
   
   Диалог.Фильтр = Фильтр;
   Диалог.МножественныйВыбор = Ложь;
   Диалог.Заголовок = "Выберите файл";
   
   Если Диалог.Выбрать() Тогда
       ПутьКБазе = Диалог.ПолноеИмяФайла;
   КонецЕсли;

(34) код который я выложил рабочий,
параметры AddNew( FieldList,Values )- необязательные, возможно проблема во внешнем ключе который привязан к другой таблице

(37) Ещё у RecordSet можно проверить состояние и режим редактирования - часто бывает, что система запрещает открывать выборки в режиме редактирования.
Так что, перед AddNew можно глянуть EditMode, чтобы быть уверенным, что кто-то ожидает от нас добавления.
P.S. я на Васике обычно с АДО "знакомлюсь" - там оно поддатливее, да и ошибки реже бывают.