HelpF.pro

Выборка данных из DBF файлов запросом

Код 1C v 8.х
 RS= Новый COMОбъект("ADODB.Recordset");
SSource = "S_elect * FROM nomen.dbf WHERE cost>100";
SConnect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=nomen.dbf;Initial Catalog=D:\";
RS.Open(SSource,SConnect);
Пока RS.EOF() = 0 Цикл
//Сообщить (RS.Fields("Code").Value+" "+RS.Fields("Name").Value+" "+Строка(RS.Fields("Cost").Value)+" "+RS.Fields("Ed").Value);

Сообщить (RS.Fields("Code").Value+" "+Строка(RS.Fields("Cost").Value));
RS.MoveNext();
КонецЦикла;
RS.Close();

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/1001.html