////////////////////////////////////////////////////////////////////////////////
// ПРЕДОПРЕДЕЛЕННАЯ ПРОЦЕДУРА
//******************************************************************************
Процедура ПриНачалеРаботыСистемы()   
  Акцесс = СоздатьОбъект("ADODB.CONNECTION");
  
  Попытка
    СтрокаПодключения = "Driver={Microsoft Access Driver (*.mdb)};Dbq=D:\MyDocs\test.mdb;Uid=Admin;Pwd=";
    Акцесс.Open(СтрокаПодключения);
  Исключение
    Сообщить("Болт! " + ОписаниеОшибки());
    Возврат;
  КонецПопытки;
  
  Команда = СоздатьОбъект("ADODB.Command");
  Команда.ActiveConnection = Акцесс;
  ТекстСелект = "SELECT * FROM Friends";
  НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");
  Команда.CommandText = ТекстСелект;
  
  Попытка
    НаборЗаписей = Команда.Execute;
  Исключение
    Сообщить("Снова Болт!" + ОписаниеОшибки());
  КонецПопытки;
  
  Попытка
    НаборЗаписей.MoveFirst();
  Исключение  // Нет записей в рекордсете
    НаборЗаписей.Close();
    Возврат;
  КонецПопытки;
  
  Пока НаборЗаписей.EOF() =  0  Цикл
    Name = НаборЗаписей.Fields("Name").Value;
    Email = НаборЗаписей.Fields("Email").Value;
    // Ну и т.д.
   
    Сообщить(Name + " : " + Email);
   
    НаборЗаписей.MoveNext();
  КонецЦикла;
  
  НаборЗаписей.Close();
КонецПроцедуры  // ПриНачалеРаботыСистемы()

////////////////////////////////////////////////////////////////////////////////
// ПРЕДОПРЕДЕЛЕННАЯ ПРОЦЕДУРА
//******************************************************************************
Процедура ПриНачалеРаботыСистемы()   
  Попытка
    vfp = СоздатьОбъект("VisualFoxPro.Application");
  Исключение
    Попытка
      CmdStr = "C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe /regserver";
      ЗапуститьПриложение(CmdStr);
      Сообщить("It's Ok!");
    Исключение
      Предупреждение("Не могу выполнить команду: '" + CmdStr + "'!");
    КонецПопытки;
    
    Попытка
      vfp = СоздатьОбъект("VisualFoxPro.Application");
    Исключение
      Предупреждение("Не могу создать объект: 'VisualFoxPro.Application'!");
      Возврат;
    КонецПопытки;
  КонецПопытки;

  vfp.DoCmd("SET SAFETY OFF");
  vfp.DoCmd("select * from D:\1C\VFP8\friends order by no into table D:\MyDocs\zzz.dbf");
  vfp.DoCmd("MESSAGEBOX('Привет, Emery! Файл '+chr(13)+chr(10)+'D:\MyDocs\zzz.dbf создан!')");  

  vfp.DoCmd("use D:\MyDocs\zzz.dbf");
  КолЭлем = vfp.Eval("reccount()");
  КолРекв = vfp.Eval("fcount()");
  Сообщить("КолЭлем = " + Строка(КолЭлем));
  Сообщить("КолРекв = " + Строка(КолРекв));
    
  // Копирование содержимого таблицы в буфер обмена
  vfp.DataToClip("zzz", ,  3 );   // Извлечь данные в в тексте или таблице 1С77 можно по Ctrl+V

  // Автоматическое извлечение данных
  Таб = СоздатьОбъект("Таблица");
  
  Для i =  1  По КолЭлем Цикл
    ii = СокрЛП(Строка(i));
    vfp.DoCmd("go " + ii);
    
    Для j =  1  По КолРекв Цикл
      jj = СокрЛП(Строка(j));
      Рекв = vfp.Eval("eval(field(" + jj + "))");
      
      Обл = Таб.Область(i, j);
      Обл.Текст = СокрЛП(Строка(Рекв));
      Обл.ЦветФона( 250 ,  200 ,  175 );
      Обл.ЦветРамки( 255 ,  0 ,  255 );
      Обл.РамкаОбвести( 5 ,  5 ,  5 ,  5 );
    КонецЦикла;
  КонецЦикла;
  
  Таб.Показать("Таблица1");
КонецПроцедуры  // ПриНачалеРаботыСистемы()

Если ЗагрузитьВнешнююКомпоненту("D:\MyDocs\vfpoledb.dll") =  0  Тогда
  Предупреждение("Неудачная попытка загрузить 'vfpoledb.dll'!");
  СтатусВозврата( 0 );
  Возврат;
КонецЕсли;