(0) (если нужна типизация то лучше всего odbc и 1с++ )
работающий код через ado
Акцесс = СоздатьОбъект("ADODB.CONNECTION");
Попытка
//Uid=Admin;
СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq="+Имя1 +";Pwd=";
Акцесс.Open(СтрокаПодключения);
Исключение
Сообщить("Все плохо:"+ОписаниеОшибки());
return;
КонецПопытки;
ТекстСелект = "SELECT * FROM TB_Сотрудники WHERE ";
ТекстСелект = ТекстСелект + " Фамилия="+ "'" + СокрЛП(ТекСотруд.Фамилия) + "'" + " ";
ТекстСелект = ТекстСелект + " AND Имя="+ "'" + СокрЛП(ТекСотруд.Имя) + "'" + " ";
ТекстСелект = ТекстСелект + " AND Отчество="+ "'" + СокрЛП(ТекСотруд.Отчество) + "'" + " ";
ТекстСелект = ТекстСелект + " ;";
//Сообщить("ТекстСелект = " + ТекстСелект);
Команда_0 = СоздатьОбъект("ADODB.Command");
Команда_0.ActiveConnection=Акцесс;
Команда_0.CommandText=ТекстСелект;
Попытка
НаборЗаписей_0=Команда_0.Execute;
Исключение
Сообщить("ошибка: "+ОписаниеОшибки());
КонецПопытки;
Попытка
НаборЗаписей_0.MoveFirst();
Исключение //нет записей в рекордсете
НаборЗаписей_0.Close();
Сообщить("Нет записи в базе зарплаты в спр сотрудники сотрудника = " + ТекСотруд);
ФлОшибки = 1;
Возврат ;
КонецПопытки;
Пока НаборЗаписей_0.EOF()=0 Цикл
Код_Сотрудник = НаборЗаписей_0.Fields("Код_Сотрудник").Value;
.............................
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший