База = СоздатьОбъект("OLEDBData");
Соединение = "Provider=VFPOLEDB.1;Deleted=Yes;Data Source=" + КаталогИБ()+ ";Mode=ReadWrite;Mask Password=False;Collating Sequence=RUSSIAN;";
   Рез = База.Соединение(Соединение);
   Запрос = База.СоздатьКоманду();  
   
   ТекстЗапроса = "
   |SELECT
   |    Спр.Code as Код,
   |    Спр.Descr as Наименование
   |FROM
   |    $Справочник.Новый1 as Спр";

   ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   ТЗ.ВыбратьСтроку();

Выдает ошибку
Cannot open file sc12.dbf

Я так понимаю он занят самой одноэской. Как поправить, чтобы выполнялся запрос???

что прямо "Cannot" ?

(1) Да

странное очень уж словечко..

(3) Флудим??? :))). Помоги плиз.

Апим, ветку

(5) Ясно.

у меня говорит:

Рез = База.Соединение(Соединение);
{Отчет.новый1.Форма.Модуль(4)}: FAILED! IDataInitialize::GetDataSource(): Класс не зарегистрирован

...

драйвер надо видимо..

(7) Зарегистрируй vpfoledb.dll Если нету, то скачай у мелкософтов.

База = СоздатьОбъект("OLEDBData");
   Соединение = "DSN=test1;";
   Рез = База.Соединение(Соединение);
   Запрос = База.СоздатьКоманду();  
   
   ТекстЗапроса = "
   |SELECT
   |    Спр.Code as Код,
   |    Спр.Descr as Наименование
   |FROM
   |    $Справочник.Новый1 as Спр";

   ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   ТЗ.ВыбратьСтроку();

=====

ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{Отчет.новый1.Форма.Модуль(16)}: Meta name parser error: объект не найден "$Справочник.Новый1"

Т.е. вроде твоя проблема обойдена.. ???

а нафига фокспрошный ? чте без негото никак чтоли ?

(11) Я не в курсах. Я только учусь . Делаю учебный пример.

(10) Когда он найдет этот справочник, он тебе сообщит о том, что он не может открыть таблицу.

(13) имеется ввиду:

ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{Отчет.новый1.Форма.Модуль(16)}: FAILED! ICommandText::Execute(): [Microsoft][Драйвер ODBC dBase] Непредвиденная ошибка драйвера внешней базы данных (15877).

???

это если
$Справочник.Номенклатура as Спр

а, да, и Делфи тоже говорит, мол таблица занята. угу значит, самой 1С

(15) + в монопольном режиме...
а в НЕМОНОПОЛЬНОМ - таблица открывается нормально..
(В Делфи, паралельно с 1С)

Зато из 1С - один фиг - не открывается. значит косяк в запросе (который у меня)

   База = СоздатьОбъект("OLEDBData");
   Соединение = "DSN=test1;";
   Рез = База.Соединение(Соединение);
   Запрос = База.СоздатьКоманду();  
   
   ТекстЗапроса = "
   |SELECT
   |    Спр.Code as Код,
   |    Спр.Descr as Наименование
   |FROM
   |    $Справочник.Номенклатура as Спр";

   ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   ТЗ.ВыбратьСтроку();

Боян
Либо использовать пропатченный драйвер, либо заходить немонопольно

(18) Спасибо родной

(18) мот сцылко подаришь на пропатченный драйвер??