helpf.pro
Регистрация
 0 
Распечатать

Получение данных из текстового файла используя COMОбъект ADODB.Connection

Файл schema.ini содержит описание типов данных. читаем его так:
Код 1C v 8.х
 	ПутьПодключения = "c:\";
СтрокаПодключения = "Driver={Microsoft Text Driver (*.txt; *.csv)};";
СтрокаПодключения = СтрокаПодключения + "Dbq=" + ПутьПодключения + ";";
СтрокаПодключения = СтрокаПодключения + "Uid=" + "Extensions=txt" + ";";

Conn = Новый COMОбъект("ADODB.Connection");
Conn.ConnectionString = СтрокаПодключения;
Conn.Open();


rst = Новый COMОбъект("ADODB.Recordset");

Попытка
rst.Open("S_elect * from file#txt", Conn);


Пока rst.EOF() = 0 Цикл

textstr="";

Для iCount = 0 По rst.Fields.Count-1 Цикл

textstr = textstr + "|" + rst.Fields(iCount).Value;

КонецЦикла;
Сообщить(textstr);
rst.MoveNext();
КонецЦикла;
Исключение
rst.Close();
Conn.Close();

Предупреждение(ОписаниеОшибки());
КонецПопытки;
Разместил:   Версии: | 8.x | 8.2 УП |  Дата:   Прочитано: 7280
 0 
Распечатать
Возможно, вас также заинтересует
10060 (0x0000274C): Попытка установить соединение была безуспешной 0
Установили новый терминальный сервер, на нем подняли 1С, терминальные пользователе неописуемо довольны, все просто летает :) И вот же надо было такому случиться, главному бухгалтеру не понравилось работать через...
1C медленно работает по сети с базой на SQL Server 8
Данное обстоятельство может быть обусловлено многими причинами. Одна из них - неоптимальная настройка MS SQL . Перечислим неоптимальности в настройке: 1) Неправильно указанный сетевой протокол, используемый для...
1C: Enterprise Development Tools 35
И вот случилось долгожданное: Вышел 1C: Enterprise Development Tools - это среда для разработки конфигурации в IDE Eclipse. С сайта 1С: « 1C:Enterprise Development Tools » – это инструмент нового поколения для разработчиков бизнес-приложений систем
1Cv8.1CD - Файл данных достиг максимального размера! 3
1С выдает предупреждение " Файл данных достиг максимального размера" . Подскажите из - за чего это и как можно решить ? Превышен размер файла, обычно это сообщение возникает, когда размер файла 1Cv8.1CD приближается к 10...
1С 7.x : Как получить курсы валют с сайта НБУ http://www.bank.gov.ua/ за любую дату ? 2
Функция ПолучитьТаблицуКурсовНБУ(ДатаКурса, Ежедневно = 1) // если в качестве второго параметра указать число отличное от 1 - получем валюты, которые котируются на ежемесячной основе Перем Reader, Url, Точки, HtmlTab, Строк, Р,...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.