Столкнулся с необходимостью читать данные из Аксесс. Можно ли такое сделать в 1С? Киньте парой строчек примера, плиз

(0) Можно. Через ADO.

(0) MyCon = Новый COMОбъект ("ADODB.Connection");
           MyCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\1c_common\Реальный_сектор\TEL_BASE2006.MDB");
           MyRst = Новый COMОбъект ("ADODB.Recordset");
           MyStr = "select * from zdania where NOM_REG_VI=1 and id_predpr=1 and id_ik=1 and id_zdan=1";
           MyRst.Open (MyStr, MyCon, 2, 3);//adOpenDynamic, adLockOptimistic
           Сообщить("До->"+Строка(MyRst.Fields("Resultat").Value));
           MyRst.Fields("Resultat").Value="Киргуду"; // Присвоение
           MyRst.Update(); //Запись
           Сообщить("После->"+Строка(MyRst.Fields("Resultat").Value));
           MyRst.Close();
           MyCon.Close();

(2) Нужно ли иметь Acess на компе? Или достаточно драйвера ODBC?

http://infostart.ru/public/57426/

//
// Функция получает таблицу из базы аксесса
//
Функция ПолучитьТаблицуАкцесса (Подключение, ИмяТаблици)
   Результат = СоздатьОбъект("ТаблицаЗначений");
   Результат.Очистить();

   Команда = СоздатьОбъект("ADODB.Command");
   Команда.ActiveConnection=Подключение;
   ТекстСелект = "SELECT * FROM " +  ИмяТаблици;
   НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");
   Команда.CommandText=ТекстСелект;
   Попытка
       НаборЗаписей=Команда.Execute();
   Исключение
       Сообщить(ОписаниеОшибки());
       Возврат -1;
   КонецПопытки;
   
   // надо создать колонки
   Для е = 0 по (НаборЗаписей.Fields.Count - 1) Цикл
       Результат.НоваяКолонка(СокрЛП(НаборЗаписей.Fields(е).Name));
   КонецЦикла;
   
   Попытка
       НаборЗаписей.MoveFirst();
   Исключение //нет записей в рекордсете
       НаборЗаписей.Close();
       Возврат Результат;
   КонецПопытки;
   
   НаборЗаписей.MoveFirst();
   Пока НаборЗаписей.EOF() = 0 Цикл
       // тут имеем строку записи
       //ОбработкаПрерыванияПользователя();  
       Состояние("Идет чтение таблицы <" + ИмяТаблици + "> - " + Обмен_Индикатор(Счетчик, МаксСчетчик));

       Результат.НоваяСтрока();
       Стр = "";
       Для е = 0 по (НаборЗаписей.Fields.Count - 1) Цикл
           Результат.УстановитьЗначение(Результат.КоличествоСтрок(), СокрЛП(НаборЗаписей.Fields(е).Name), НаборЗаписей.Fields(е).Value);
           Если ВыводитьДанныеВСтрокуСообщений=1 Тогда
               Стр = Стр + "; " + НаборЗаписей.Fields(е).Name + "=" + НаборЗаписей.Fields(е).Value;
           КонецЕсли;
       КонецЦикла;
       
       Если ВыводитьДанныеВСтрокуСообщений=1 Тогда
           Сообщить (Стр);
       КонецЕсли;
               
       НаборЗаписей.MoveNext();
   КонецЦикла;
           
   НаборЗаписей.Close();
   
   Возврат Результат;
КонецФункции

// *******************************
// пример вызова
//


//
// подключаемся
//
СтрокаПод="Driver={Microsoft Access Driver (*.mdb)};Dbq=" + ИмяФайла + ";";
Акцесс = СоздатьОбъект("ADODB.CONNECTION");
Попытка
   Акцесс.Open(СтрокаПод);
Исключение
   Сообщить(ОписаниеОшибки());
   Возврат;
КонецПопытки;

//
// получем таблицу с именем "Номенклатура"
//
ТабСпр = ПолучитьТаблицуАкцесса (Акцесс, """Номенклатура""");

(3) не путай ODBC и OLEDB
Access не обязательно

(4) код часом не от 7.7 ?

(6) 7.7 а какая разница? переделка 2-3 минуты

Спасибо, буду лопатить

(8) лапать, MDAC свежий не забудь

(9) MDAC -- was ist das?

(10) das ist wunderschone SDK

(11) Без SDK не взлетит?

(12) в нем драйвера, для аксесса можно установить DAO 3.5 (3.6)

(12) MDAC качается и ставиться автономно,если в лом ставить офис.
можешь последовать совету vde и юзать DAO

(14) DAO - маленький, примерно 500к, а мкдак - здоровенный :)

можно просто чисто драйвер аксесовский юзать, а можно вообще универсальным драйвером АДО (там вообще ничего доставлять не надо)...

(15)[DAO - маленький, примерно 500к]
это так, но многое, что есть в ADOX, через DAO делается "сложнее" через  TableDef

Не совсем по теме, но очень близко: как мне посмотреть в MS Access ключи таблиц и связи между ними? Спрашиваю, т.к. это мой первый опыт с MS Access

^

2(17) только если в файле нарисована схема...

(19) А ключи же должны храниться? Схемка-то Бог с ней -- сам накидаю. Мне бы в связи таблиц разобраться

так ключи это поля, сервис - схема данных

(21) нет, ключи это индексы.
кто прав?)))

(21)[нет, ключи это индексы]
ты про внешние или про внутренние ?

(0) на

http://infostart.ru/public/19590/

(23) допустим внутренний праймари.

да пофигу, поля они и есть поля, хоть задницей назови

(25) [допустим внутренний праймари]
а челу нужно внешние

(27) а... ну тогда понятно.

http://alibek09.narod.ru/vb/articles/dba/

Коллекция Relations определяет отношения между объектами БД

Спасибо, добрые люди