Появилась сложность:
Процедура Сформировать()  
   Папка    = КаталогИБ() + "Обмен\SEB\";    
   DBConn = CreateObject("ADODB.Connection");
   DBConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" +
   "Data Source=" + Папка + ";" +
   "Extended Properties=""DBASE IV;"";");          
   Результат = DBConn.Execute("Select * from [gsfact.DBF] a, [gsrest.DBF] b where a.code = b.code and ((a.DBF.quantity > b.DBF.out_qty) or (a.DBF.quantity > b.DBF.in_qty))");
 
   Пока Результат.EOF=0 Цикл //Цикл по записям  
           ТЗ.НоваяСтрока();
           ТЗ.код    = Результат.Fields("Code").Value;
           Возврат;
     Результат.MoveNext(); //Переходим к след. записи DBF
   КонецЦикла;
 DBConn.Close(); //Закрываем соединение
КонецПроцедуры

Сложность в правильности синтаксиса запроса!
Подскажите синтаксис...если так вообще можно обращаться, как в примере?
Заранее благодарен за ответ!

вообще, лучше не использовать старый формат записи, а явно указывать что это Иннер Джоиин

ну и.. проще в тексте запроса писать полный путь к табличкам

(1) а по подробнее ?

(1) типа
SELECT MyFile.*, MyFile1.SUMMA FROM MyFile INNER JOIN MyFile1 ON MyFile.ID = MyFile1.ParentID IN 'C:\DBF' [dbase 5.0;];

(3)

select *
from D:\вася.dbf as a
inner join E:\федя.dbf as b on a.code = b.code and ((a.DBF.quantity > b.DBF.out_qty) or (a.DBF.quantity > b.DBF.in_qty))

(5) ТЗ.код    = Результат.Fields("Code").Value;
{D:\СЕРГЕЙ\ПРОВЕРКАDBF.ERT(12)}: ADODB.Recordset: Item cannot be found in the collection corresponding to the requested name or ordinal.

(6) у тебя нет Code в результате

(6) ну нету у тя code в табличке.. или запрос пустой.

Вообще, делай через оледб и 1cpp, если религия позволяет:

   ОлеДБ = СоздатьОбъект("OLEDBData");
   Соединение = "Provider=VFPOLEDB.1;Data Source=" + СокрЛП(Путь)+ ";Mode=ReadWrite;Collating Sequence=MACHINE";

   Рез = ОлеДБ.Соединение(Соединение);
   Запрос = ОлеДБ.СоздатьКоманду();
   Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");  
   Запрос.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");
   Запрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");

   Запрос = ОлеДБ.СоздатьКоманду();

   //сюда воткнешь свой текст запроса
       ТекстЗапроса = "
   |Select *
   |From "+СокрЛП(ИмяФайла);
   
   ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   ТЗ.ВыбратьСтроку();

(7) это я перевел )

(8) Соединение = "Provider=VFPOLEDB.1;Data Source=" + СокрЛП(Путь)+ ";Mode=ReadWrite;Collating Sequence=MACHINE";

Путь - это путь куда?

(8) орет
Рез = ОлеДБ.Соединение(Соединение);
{D:\СЕРГЕЙ\ПРОВЕРКАDBF.ERT(7)}: FAILED! IDataInitialize::GetDataSource(): Class not registered

(8) видимо религия

(10) можешь КаталогИБ() заместо путь воткнуть..
(11) нужно vfpoledb провайдер установить

http://www.microsoft.com/downloads/details.aspx?FamilyId=E1A87D8F-2D58-491F-A0FA-95A3289C5FD4&displaylang=en