Уже вижу саму базу - таблицы,представления,синонимы и т.д.
Пока непонятно, где я увижу данные, пока их там, наверное, еще нет.
Подключение срабатывает!
    Соединение003 = Новый COMОбъект("ADODB.Connection");
    строкаПодключения = "....";
    Попытка
        Соединение003.Open(строкаПодключения);
    Исключение
        Сообщить( "Не смогли подключиться к sql-базе: " + ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;
    Cmd = Новый COMОбъект("ADODB.Command");
    Cmd.ActiveConnection = Соединение003;
    //Cmd.CommandType = ТипКомандыАДО("adcmdtext"); // это она не понимает    
    Cmd.CommandTimeout = 600;
    Возврат Cmd;

Дальше не работает:
    Соединение = СоединитьсяСSQL();
    
    Контрагенты            = Новый COMОбъект("ADODB.Recordset");
    Контрагенты.CursorType = 1;
    Контрагенты.LockType   = 3;
    ТекстЗапросаAccount = "select * from Account";
    Контрагенты.Open(ТекстЗапросаAccount, Соединение);

Ругается:
Ошибка при вызове метода контекста (Open)
    Контрагенты.Open(ТекстЗапросаAccount, Соединение);
по причине:
Произошла исключительная ситуация (ADODB.Recordset): Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с др

(72) Я не вижу там похожего примера
(73) Ну и будет список из 20 плей, а потом список из 20 значений - они даже на один экран не влезут, это неудобно.
Как-то так нельзя?
    Контрагенты.Fields("ID").Value         = Контрагенты1С.ИдентификаторBPM; //Идентификатор BPM

(74)
    Команда.CommandText =
    "UPDATE
    |    [Session]
    |SET
    |    [STATUS] = ?
    |WHERE
    |    [SessionId] = ?";
    Параметры = Новый COMSafeArray("VT_VARIANT", 2);
    Параметры.SetValue(0, Статус);
    Параметры.SetValue(1, ИД);
    Команда.Execute(, Параметры, мМагияСКЛ.adExecuteNoRecords + мМагияСКЛ.adAsyncExecute);


А это что, извините за выражение? За**па конская???

(74) Серверу нужна строка команды и ваши предпочтения по рисованию текста его совершенно не интересуют. Это запрос. Вы же 1с-освские запросы рисуете на несколько экранов и не переламываетесь? Вот и тут точно так же нарисуйте.

(75) Из этого примера!
Set rs = CreateObject("ADODB.Recordset")

rs.CursorType = 1

rs.LockType = 3

rs.Open "select * from dbo.customers", cn

rs.AddNew

rs.Fields("CompanyName") = "Test rs company"

rs.Fields("Country") = "Germany"

rs.Fields("CustomerId") = "TESTR"

rs.Update

(77) Если Вам нужны тормоза работы только через АДО, то читайте доку по этому самому АДО и не морочьте людям голову.
Нравится вам этот пример? Это пример использования нотации АДО вместо нативного Update. Что в нем непонятно?

Сыр-бор начался с того, что AddNew не сработало.
Так что мне вся эта методика наверное, не подходит.

if exist(select из Account) - прямо так можно в 1С писать?
Или
Для Каждого СтрКонтр из ТабКонтр Цикл
  ОбработкаПрерыванияПользователя();
ТекстЗапроса = "SELECT * FROM account WHERE [UI1C] = ?";
Соединение.Parameters(0).Value = СтрКонтр.UI1C;

Выборка = Соединение.Execute(ТексЗапроса);
Если Выборка.EOF()=0 //- нет такой строки, надо добавить
ТекстЗапроса = "INSERT INTO account SET UI1C= ?, Name=?,AccountOwnerShipId= ?;"
Соединение.Parameters(0).Value = СтрКонтр.UI1C;
Соединение.Parameters(1).Value = СтрКонтр.Name;
Соединение.Parameters(2).Value = СтрКонтр.AccountOwnerShipId;
Соединение.Execute(ТексЗапроса);
Соединение.Close();
...
Иначе // есть строка, надо обновить

ТекстЗапроса = "UPDATE INTO account SET  Name=?,AccountOwnerShipId= ?
WHERE [UI1C] = ?";
Соединение.Parameters(2).Value = СтрКонтр.UI1C;

Соединение.Parameters(0).Value = СтрКонтр.Name;
Соединение.Parameters(1).Value = СтрКонтр.AccountOwnerShipId;
Соединение.Execute(ТексЗапроса);
Соединение.Close();
КонецЕсли;
КонецЦикла

Выловила синтаксические ошибки.
Похоже?

    Для Каждого СтрКонтр из ТабКонтр Цикл
        ОбработкаПрерыванияПользователя();
        ТекстЗапроса = "SELECT * FROM account WHERE [UI1C] = ?";
        Соединение.Parameters(0).Value = СтрКонтр.UI1C;         
        Выборка = Соединение.Execute(ТекстЗапроса);
        Если Выборка.EOF()=0 Тогда //- нет такой строки, надо добавить
            
            ТекстЗапроса = "INSERT INTO account SET UI1C= ?, Name=?,AccountOwnerShipId= ?;";
            Соединение.Parameters(0).Value = СтрКонтр.UI1C;
            Соединение.Parameters(1).Value = СтрКонтр.Name;
            Соединение.Parameters(2).Value = СтрКонтр.AccountOwnerShipId;
            Соединение.Execute(ТекстЗапроса);
            Соединение.Close();
        Иначе // есть строка, надо обновить
            ТекстЗапроса = "UPDATE INTO account SET  Name=?,AccountOwnerShipId= ?    WHERE [UI1C] = ?";
            Соединение.Parameters(2).Value = СтрКонтр.UI1C;             
            Соединение.Parameters(0).Value = СтрКонтр.Name;
            Соединение.Parameters(1).Value = СтрКонтр.AccountOwnerShipId;
            Соединение.Execute(ТекстЗапроса);
            Соединение.Close();
        КонецЕсли;
    КонецЦикла;

(81)
1. Вместо SELECT * напишите SELECT 1, ибо весь набор полей совершенно тут не нужен.
2. Откуда взялось UPDATE INTO ? Точнее INTO после UPDATE?

INTO - выкинуть!
SELECT 1 - логично, поправлю.

{Форма.Форма1.Форма(74)}: Ошибка при вызове метода контекста (Parameters)
        Соединение.Parameters(0).Value = СтрКонтрСКЛ.UI1C;         
по причине:
Произошла исключительная ситуация (ADODB.Command): В коллекции не удается найти элемент, соответствующий требуемому имени или порядковому номеру.
Есть такая таблица, есть такое поле, правда записи нет ни одной пока и перед названием таблицы dbo.
Куды бечь?

(84) Проверять коллекцию параметров. Ибо речь ведь про неё, не так ли? Искать, куда делся Соединение.Parameters(0)

В базе я его вижу, имя совпадает. Как еще искать?

(84)
Каша какая-то.

>> Выборка = Соединение.Execute(ТекстЗапроса);
Так можно в случае, когда в переменной Соединение находится объект типа ADODB.Connection
А судя по ошибке у тебя там ADODB.Command, поэтому надо так:
Соединение.Commandtext = ТекстЗапроса; // только из цикла надо это вынести
Выборка = Соединение.Execute();

(86) А при чем тут база? Речь о самой коллекции параметров, а не о их значениях.

Почему из цикла вынести, если мне нужно найти все строчки в цикле?

Конечно, каша! Я ж куски тащу из разных примеров, мне ж никто не может стройно 4 строчки написать!"!!

(90) Их никто и не напишет.

(89)
Присвоение текста запроса вынести, он ведь не меняется в цикле, только значения параметров.

Cmd = Новый COMОбъект("ADODB.Command");
    Cmd.ActiveConnection = Соединение003;

Так как переписать этот кусок?
Для Каждого СтрКонтр из ТабКонтр Цикл
        ОбработкаПрерыванияПользователя();
        СтрКонтрСКЛ =  Контрагенты1С.Добавить();
        ЗаписатьКонтр(СтрКонтрСКЛ,СтрКонтр);

        ТекстЗапроса = "SELECT 1 FROM account WHERE [UI1C] = ?";
        Соединение.Parameters(0).Value = СтрКонтрСКЛ.UI1C;         
        Выборка = Соединение.Execute(ТекстЗапроса);
        Если Выборка.EOF()=0 Тогда //- нет такой строки, надо добавить
            
            ТекстЗапроса = "INSERT INTO account SET UI1C= ?, Name=?,AccountOwnerShipId= ?;";
            Соединение.Parameters(0).Value = СтрКонтрСКЛ.UI1C;
            Соединение.Parameters(1).Value = СтрКонтрСКЛ.Name;
            Соединение.Parameters(2).Value = СтрКонтрСКЛ.AccountOwnerShipId;
            Соединение.Execute(ТекстЗапроса);
            Соединение.Close();
        Иначе // есть строка, надо обновить
            ТекстЗапроса = "UPDATE  account SET  Name=?,AccountOwnerShipId= ?    WHERE [UI1C] = ?";
            Соединение.Parameters(2).Value = СтрКонтрСКЛ.UI1C;             
            Соединение.Parameters(0).Value = СтрКонтрСКЛ.Name;
            Соединение.Parameters(1).Value = СтрКонтрСКЛ.AccountOwnerShipId;
            Соединение.Execute(ТекстЗапроса);
            Соединение.Close();
        КонецЕсли;
    КонецЦикла;

>Соединение.Parameters(0).Value
вот откуда в этом месте нулевой параметр? может (страшно говорить) MSDN?

(94) Вот отсюда украла.
Команда.CommandText =
    "SELECT TOP 1
    |    [SessionId]
    |FROM [Session]
    |WHERE
    |    [STATUS] = ?";
    Команда.Parameters(0).Value = Статус;

Что не так?

(95) Полное отсутствие понимания что и как в этом куске работает.

Ну так объясните!

(97) как-то так: http://msdn.microsoft.com/ru-ru/library/windows/desktop/ms675101(v=vs.85).aspx

(95) Сравните с этим:
        ТекстЗапроса = "SELECT * FROM account WHERE [UI1C] = ?";
        Соединение.Parameters(0).Value = СтрКонтр.UI1C;        

Даю наводку: Чем отличаются ТекстЗапроса и Команда.CommandText?

100

(93)
Как-то так:
Cmd = Новый COMОбъект("ADODB.Command");
Cmd.ActiveConnection = Соединение003;
Cmd.CommandText = "if exists(select * from account where UI1C = ?) update account set Name = ?, AccountOwnerShipId = ? where UI1C = ?
|else insert into account (UI1C, Name, AccountOwnerShipId) values (?, ?, ?)";
Cmd.Refresh();

Для Каждого СтрКонтр из ТабКонтр Цикл
        
        ОбработкаПрерыванияПользователя();
        СтрКонтрСКЛ =  Контрагенты1С.Добавить();
        ЗаписатьКонтр(СтрКонтрСКЛ,СтрКонтр);

        Cmd.Parameters(0).Value = СтрКонтрСКЛ.UI1C;
        Cmd.Parameters(1).Value = СтрКонтрСКЛ.Name;
        Cmd.Parameters(2).Value = СтрКонтрСКЛ.AccountOwnerShipId;
        Cmd.Parameters(3).Value = СтрКонтрСКЛ.UI1C;
        Cmd.Parameters(4).Value = СтрКонтрСКЛ.UI1C;
        Cmd.Parameters(5).Value = СтрКонтрСКЛ.Name;
        Cmd.Parameters(6).Value = СтрКонтрСКЛ.AccountOwnerShipId;
        
        Cmd.Execute();

КонецЦикла;

(98) Я плохо на иностранном языке понимаю.
(99) Ну как чем? Скорее - вообще ничего общего!
Ну, т.е. Команда.CommandText = ТекстЗапроса

а я так надеялся на (12)...

(102) Ну так и присваивайте текст запроса соответствующему свойству соединения, а не произвольной переменной. Именно поэтому и коллекция параметров пустая и потому в ней невозможно найти параметр с индексом 0.

(101) Форма.Форма1.Форма(67)}: Метод объекта не обнаружен (Refresh)
    Cmd.Refresh();

А! Так у меня там всё нормально.
У меня функция
Соединение = СоединитьсяСSQL(), а там внутри был этот Cmd, который возвращается.
Т.е. это одно и то же.

(105)
Cmd.Parameters.Refresh();

{Форма.Форма1.Форма(67)}: Ошибка при вызове метода контекста (Refresh)
    Cmd.Parameters.Refresh();    
по причине:
Произошла исключительная ситуация (Microsoft OLE DB Provider for SQL Server): Ошибка синтаксиса или нарушение прав доступа

(106) Это кому и о чем?

Cmd = СоединитьсяСSQL(); - теперь у меня так.
(109) - 106 - это к 104

(110) У вас ТекстЗапроса - переменная, никоим образом не связанная с Connttion. Так что совершенно не одно и то же.

Так текст запроса - это строка, как она должна быть связана??

(112) предполагается, что эта строка должна быть в соответствующем свойстве команды, а не в какой-то подозрительной переменной

"Ну так и присваивайте текст запроса соответствующему свойству соединения, а не произвольной переменной. Именно поэтому и коллекция параметров пустая и потому в ней невозможно найти параметр с индексом"
Cmd.CommandText = ТекстЗапроса.
Что не так?

(114) сойдёт. у тебя там код меняется ежеминутно, мы у себя не успеваем обновлять

(108)Проверяй имена таблиц/полей и права доступа в БД

(115) Соединение.CommandText = ТекстЗапроса.
Соединение.Parameters(0).Value = СтрКонтрСКЛ.UI1C;        
    Выборка = Соединение.Execute();
Так?
(116) Имя таблицы - там еще dbo. Может, добавить? Права не знаю, как проверить.

(114)
1. В обсуждаемом коде нет Cmd.CommandText = ТекстЗапроса.
2. В обсуждаемом коде есть
        ТекстЗапроса = "SELECT * FROM account WHERE [UI1C] = ?";
        Соединение.Parameters(0).Value = СтрКонтр.UI1C;        

и тут нет никакой привязки к объекту Соединение. И тут нет генерации коллекции параметров. И потому не находится
        Соединение.Parameters(0)

Для Каждого СтрКонтр из ТабКонтр Цикл
    ОбработкаПрерыванияПользователя();
    СтрКонтрСКЛ =  Контрагенты1С.Добавить();
    ЗаписатьКонтр(СтрКонтрСКЛ,СтрКонтр);
    
    ТекстЗапроса = "SELECT 1 FROM account WHERE [UI1C] = ?";
    Соединение.CommandText = ТекстЗапроса;
    Соединение.Parameters(0).Value = СтрКонтрСКЛ.UI1C;        
    Выборка = Соединение.Execute();
    Если Выборка.EOF()=0 Тогда //- нет такой строки, надо добавить              
        ТекстЗапроса = "INSERT INTO account SET UI1C= ?, Name=?,AccountOwnerShipId= ?;";
        Соединение.CommandText = ТекстЗапроса;
        Соединение.Parameters(0).Value = СтрКонтрСКЛ.UI1C;
        Соединение.Parameters(1).Value = СтрКонтрСКЛ.Name;
        Соединение.Parameters(2).Value = СтрКонтрСКЛ.AccountOwnerShipId;
        Соединение.Execute();
        Соединение.Close();
    Иначе // есть строка, надо обновить  
        ТекстЗапроса = "UPDATE  account SET  Name=?,AccountOwnerShipId= ?    WHERE [UI1C] = ?";
        Соединение.CommandText = ТекстЗапроса;
        Соединение.Parameters(2).Value = СтрКонтрСКЛ.UI1C;            
        Соединение.Parameters(0).Value = СтрКонтрСКЛ.Name;
        Соединение.Parameters(1).Value = СтрКонтрСКЛ.AccountOwnerShipId;
        Соединение.Execute();
        Соединение.Close();
    КонецЕсли;
КонецЦикла;

(119) ВЫ издеваетесь?

про ЕОФ ещё не сказали, что это енд оф файл

{Форма.Форма1.Форма(87)}: Ошибка при установке значения атрибута контекста (Value)
    Соединение.Parameters(0).Value = СтрКонтрСКЛ.UI1C;        
по причине:
Произошла исключительная ситуация (ADODB.Parameter): Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом.

(119) В каком месте опять не так?

(122) акценитрую внимание только на полезной информации: Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом.

(121) и что из этого следует?

Так дело именно в аргументах, или опять всё не так?

(123) В нескольких. Особенно в вашей голове.

(125) вроде он булев и сообщает в твоём случае, что результат запроса пуст

(126) Не в аргументах, а в вашей с ними работе.

(126) истина

Ошибки в вашей логике

644b3da3-5f49-4c38-bd54-6a0dc68df32f, тип уникальный идентификатор, а мне нужен строка, так что ли?

Вы так и не поняли откуда и как появляются и заполняются параметры.

весёлый, конечно, отладчик в текстовом режиме здесь. но, может, шайтан вьюер и покончим с этой вакханалией?

Если Выборка.EOF()=0 Тогда - вот это теперь вранье.
А! Или про это уже было в 121?

(119) Вам написали готовый код. Который вы не смогли запустить только из-за ошибки выскакивающей на Refresh(). Может таки довести этот код до ума или будете метаться со своим г-кодом?

(136) Так а я не знаю, как ту ошибку исправить!

(137) это ты мало читала (107). нужно не менее трёх раз

(138) В смысле, что там грамматическая ошибка?

Нет, нет ошибки.

(138) сторно. ну да. там дальше ошибка синтаксиса

Cmd.Parameters.Refresh();
Я думала, может Parametres, но нет.
Какая ошибка?

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

Спасибо большое кой-кому!
Осталась еще проблема.
Если строки нет, то
ТекстЗапроса = "INSERT INTO gtw_AccountExport VALUES
        |(NULL,
- и т.д., работает
А если строка есть, то
ТекстЗапроса = "UPDATE  gtw_AccountExport VALUES
        |(NULL,
Не работает!
Там надо по-другому писать?

Какая жаль, что а) у меня нет пулемёта, и б) ты не в прямой видимости...

(144) упдейт несколько не похож на инсерт
http://www.w3schools.com/sql/sql_update.asp

+(146) -> (101)

ТекстЗапроса = "INSERT INTO gtw_AccountExport VALUES

        |(NULL,  - вот это было написано без перечисления столбцов, в предположении, что они все задаются по порядку, для UPDATE - тоже ведь так можно?

(145) А дети-сИроты?

(149) Я поставлю свечку в цервки за их процветание.

(148) нет. нельзя.
Я давал ссылку на простейший учебник. Мой племянник в 14 лет его понял.

UPDATE  gtw_AccountExport SET  Name = ?, AccountOwnerShipId = ?    WHERE [UI1C] = ?
ну или что там меняется

(152) Вот благодаря таким, как ты, она никогда не сможет сама писать код....

(153) я жажду прекращения ветки ;)

(153) Мне первый и последний раз потребовался скл!
Я закончу и через 2 недели забуду абсолютно - читала я учебник, не читала...
Зато у меня дочка толковая - красный диплом, во все аспирантуры берут, а она выбирает.

Будет новая завтра, обещаю!

НЕТ!!!!! Я этого не переживу!!!

А ничего нельзя поделать с тем, что UI1C в 1 случае - первый параметр, а во втором - последний? Это ж 2 раза писать все списки! или отдельную процедуру для их заполнения писать! ( у меня еще таблиц штук 10 должно быть)

INSERT INTO Customers (CustomerName, ContactName, Address, City, PostalCode, Country)
VALUES ('Cardinal','Tom B. Erichsen','Skagen 21','Stavanger','4006','Norway');

UPDATE Customers
SET ContactName='Alfred Schmidt', City='Hamburg'
WHERE CustomerName='Alfreds Futterkiste';

Перечислять все столбцы явно?
Ладно, обойдусь!

ТекстЗапроса = "update account set DoDelete = ?, Name = ?, FullName = ?, ParentAccountId = ?,PhoneNumber = ?,RegionUI1C = ?,CityUi1C = ?,ZIP = ?,Address = ?,  WHERE [UI1C] = ?";
        Cmd.CommandText = ТекстЗапроса;
        Cmd.Parameters(0).Value = СтрКонтрСКЛ.DoDelete;

Не работает!
Говорит - Cmd.Parameters(0) - нет там никаких параметров.

(161) у тебе этот код (установка параметра после установки текста) уже тыщу раз здесь работал. всё верно

А что ж тогда не так?

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

пароль 1292

выдайте дочь за богатого и забудте 1С как кошмарный сон.

Кстати, фото дочки в студию...
Может, тогда сниму ээээ ... санкции....

(155)
врете

вот ваша ветка 4 летней давности

v8: Из 8 работать с базой SQL не 1с - как?

В крайнем случае можно выдать дочь за Одинесника. На форуме полно неженатых.

+(168)
вот еще про запись в базу

v8: Запись в базу SQL

так что врете

(168) Я не вру! Я абсолютно об этом забыла, и даже почитав ветку не вспомнила - доделала ли я это и зачем это было.

Очевидно, что (170) - это то же, что и (168), но, похоже, что я без этого обошлась в конце-концов.

(167) Это будет на крайний случай. Она еще и красавица.