1С и SDF

Сегодня поговорим о способах чтения и записи SDF-файлов в 1С. SDF-файл — это файл базы данных Microsoft SQL Server Compact Edition.

Для работы с этой базой данных потребуется становить сам SQL Server CE (ссылка) — последней на данный момент является версия 4.0, но я рекомендую версию 3.5 (по ссылке именно она).

К сожалению SDF-файл нельзя подключить к конфигурации как внешний источник данных — в открытых источниках не существует нужного ODBC драйвера, поэтому работа осуществляется через ADO.

Чтение из SDF

&НаКлиенте
Процедура Чтение(Команда)
   тАДО = Новый COMОбъект("ADODB.Connection");
 
   тАДО.Open("Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=D:\base.sdf;SSCE:Database Password=");
 
   тАДОРекордСет = Новый COMОбъект("ADODB.RecordSet"); 
   тАДОРекордСет.Open("SELECT * FROM material", тАДО);
 
   //Можно использовать другой, чуть более длинный вариант 
   //тАДОКомманд = Новый COMОбъект("ADODB.Command");
   //тАДОКомманд.ActiveConnection = тАДО;
   //тАДОКомманд.CommandText = "SELECT * FROM material"; 
   //тАДОРекордСет = тАДОКомманд.Execute();
 
   Если НЕ тАДОРекордСет.EOF() Тогда
      тАДОРекордСет.MoveFirst();
 
      Пока тАДОРекордСет.EOF() = 0 Цикл
         Сообщить(""+тАДОРекордСет.Fields.Item(0).value);
 
         тАДОРекордСет.MoveNext();
      КонецЦикла;
   КонецЕсли;
 
   тАДОРекордСет.Close();
КонецПроцедуры

&НаКлиенте

Процедура Чтение(Команда)

тАДО = Новый COMОбъект("ADODB.Connection");

тАДО.Open("Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=D:\base.sdf;SSCE:Database Password=");

тАДОРекордСет = Новый COMОбъект("ADODB.RecordSet");

тАДОРекордСет.Open("SELECT * FROM material", тАДО);

//Можно использовать другой, чуть более длинный вариант

//тАДОКомманд = Новый COMОбъект("ADODB.Command");

//тАДОКомманд.ActiveConnection = тАДО;

//тАДОКомманд.CommandText = "SELECT * FROM material";

//тАДОРекордСет = тАДОКомманд.Execute();

Если НЕ тАДОРекордСет.EOF() Тогда

тАДОРекордСет.MoveFirst();

Пока тАДОРекордСет.EOF() = 0 Цикл

Сообщить(""+тАДОРекордСет.Fields.Item(0).value);

тАДОРекордСет.MoveNext();

КонецЦикла;

КонецЕсли;

тАДОРекордСет.Close();

КонецПроцедуры

Запись в SDF

Судя по всевозможным мануалам для добавления новых строк в таблицы sdf-файла должен работать вот такой код:

&НаКлиенте
Процедура Запись(Команда)
   тАДО = Новый COMОбъект("ADODB.Connection");
 
   тАДО.Open("Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=D:\base.sdf;SSCE:Database Password=");
 
   тАДОРекордСет = Новый COMОбъект("ADODB.RecordSet"); 
   тАДОРекордСет.CursorLocation = 3;
   тАДОРекордСет.Open("SELECT * FROM material", тАДО, 2, 3);
 
   тАДОРекордСет.AddNew();
   тАДОРекордСет.Fields("code").value="1"; 
   тАДОРекордСет.Update();
 
   тАДОРекордСет.Close();
КонецПроцедуры

&НаКлиенте

Процедура Запись(Команда)

тАДО = Новый COMОбъект("ADODB.Connection");

тАДО.Open("Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=D:\base.sdf;SSCE:Database Password=");

тАДОРекордСет = Новый COMОбъект("ADODB.RecordSet");

тАДОРекордСет.CursorLocation = 3;

тАДОРекордСет.Open("SELECT * FROM material", тАДО, 2, 3);

тАДОРекордСет.AddNew();

тАДОРекордСет.Fields("code").value="1";

тАДОРекордСет.Update();

тАДОРекордСет.Close();

КонецПроцедуры

Но по неизвестным мне причинам (скорее всего дело в поставщике) это код не работает (буду признателен за помощь в этом вопросе). Поэтому приходиться использовать sql-ную команду insert.

Выглядит это примерно так:

&НаКлиенте
Процедура Запись(Команда)
   тАДО = Новый COMОбъект("ADODB.Connection");
 
   тАДО.Open("Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=D:\base.sdf;SSCE:Database Password=");
 
   тАДОКомманд = Новый COMОбъект("ADODB.Command");
   тАДОКомманд.ActiveConnection = тАДО;
   тАДОКомманд.CommandText = "INSERT INTO material (code) VALUES ('1')"; 
   тАДОКомманд.Execute();
КонецПроцедуры