Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 сен 2024, 18:27

работа с sql загрузка данных с sql Сервера нужна помощь

Автор Weidermail, 09 апр 2019, 13:55

0 Пользователей и 1 гость просматривают эту тему.

Weidermail

Создаю форму добавляю данные из sql сервера как отдельно выделить идентификатор поля ?????

Weidermail

Цитата: Weidermail от 09 апр 2019, 13:55
Создаю форму добавляю данные из sql сервера как отдельно выделить идентификатор поля ?????

      // Вставить содержимое обработчика.
    ИмяСервераSQL = "SP";
    ПользовательSQL = "pavel";
    ПарольSQL = "010713";
    БазаДанныхSQL = "Emoloko";
    ТаблицаSQL = "VDOCUMENTS_1S";
   
     /////////////////////////////////////////
    //Подключение к SQL-серверу
    Попытка
        Соединение  = Новый COMОбъект("ADODB.Connection");
        Команда     = Новый COMОбъект("ADODB.Command");
        Выборка     = Новый COMОбъект("ADODB.RecordSet");
        Соединение.ConnectionString =
            "driver={SQL Server};" +
            "server="+ИмяСервераSQL+";"+
            "uid="+ПользовательSQL+";"+
            "pwd="+ПарольSQL+";"+
            "database="+БазаДанныхSQL+";";
        Соединение.ConnectionTimeout = 30;
        Соединение.CommandTimeout = 600;
        //Открытие соединение
        Соединение.Open();
        Команда.ActiveConnection   = Соединение;
        Сообщить("Успешное подключение!");
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;

      //чтение записей   
       НомерНаклад = 0;
    ТекстИнструкции =
        "SELECT * FROM " +ТаблицаSQL;
  Попытка
        Команда.CommandText = ТекстИнструкции;
        Выборка = Команда.Execute();
        Если Выборка.BOF = Ложь Тогда
            Выборка.MoveFirst();
            Пока Выборка.EOF = Ложь Цикл
         
       НомерНакладной=(СокрЛП(Выборка.Fields("rec_id").Value));
       НаименованиеКонтрагента=(СокрЛП(Выборка.Fields("name_kontr").Value));
       ПунктВыгрузки=(СокрЛП(Выборка.Fields("name_depart").Value));
       ДатаПогрузки = (Дата(Выборка.Fields("docdate").Value));
       ИннКонтрагента= (Число(Выборка.Fields("inn").Value));
               
            Выборка.MoveNext();
            
            Документыsql.Добавить((НомерНакладной) + "    " + (ДатаПогрузки) + "    " + (ИннКонтрагента) + "    " + (НаименованиеКонтрагента));
            Докиsql.Добавить(Номернакладной);
            Докиsql.Добавить(ИннКонтрагента);

КонецЦикла;

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск