my 1C. Полезная информация.

Акцесс = СоздатьОбъект("ADODB.CONNECTION");
Попытка
     СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";
     Акцесс.Open(СтрокаПодключения);
Исключение
     Сообщить("Все плохо:"+ОписаниеОшибки());
     Возврат;
КонецПопытки;
Команда = СоздатьОбъект("ADODB.Command");
Команда.ActiveConnection=Акцесс;
ТекстСелект = "SELECT * FROM tblCustoms";
НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");
Команда.CommandText=ТекстСелект;
Попытка
     НаборЗаписей=Команда.Execute;
Исключение
     Сообщить("Обломись:"+ОписаниеОшибки());
КонецПопытки;
Попытка
     НаборЗаписей.MoveFirst();
Исключение //нет записей в рекордсете
     НаборЗаписей.Close();
     Возврат;
КонецПопытки;
Пока НаборЗаписей.EOF()=0 Цикл
     ИНН = НаборЗаписей.Fields("INN").Value;
     //ну и т.д.
     НаборЗаписей.MoveNext();
КонецЦикла;
НаборЗаписей.Close();
<сообщил SO>

Для тех, у кого в базе Акцесс создана рабочая группа (есть файлик mdw), строка подключения будет такая:
СтрокаПодключения="Driver= Microsoft Access Driver (*.mdb)};systemDB=C:\wg.mdw;Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";
<сообщил Anton Fesenko>

- Наверх -


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки