Код

select
Value1
from (select Value1 as  Value1 from Tab)  

Код

Процедура Сформировать()
	глТекущаяБаза = СоздатьОбъект ("OLEDBData");
	глСтрокаПрямогоПодключенияКБД = Шаблон ("Provider=VFPOLEDB.1; Mode=ReadWrite;
	|Data Source=[КаталогИБ ()];");

	глТекущаяБаза.Соединение (глСтрокаПрямогоПодключенияКБД);

	ДатаТА = ПолучитьДатуТА ();
	Если ДатаОстатков > ДатаТА Тогда
		ДатаОстатков = ДатаТА;
	КонецЕсли;

	Если ДатаОстатков = ДатаТА Тогда
		ДатаВыборкиОстатков = НачМесяца (ДатаОстатков);
		ОтчетНаТА = 1;
	Иначе
		ОтчетНаТА = 0;
		ДатаНачалаВременногоРасчета = НачМесяца (ДатаОстатков);
		ДатаВыборкиОстатков = ДобавитьМесяц (ДатаНачалаВременногоРасчета, -1);
	КонецЕсли;

	ТекстЗапроса = "
		|SELECT
		|	Взаиморасчеты.Клиент AS [Клиент $Справочник.Клиенты],
		|	SUM (Взаиморасчеты.Сумма) AS Сумма
		|FROM (
		|	SELECT
		|		$ВзаиморасчетыОстатки.Клиент AS Клиент,
		|		$ВзаиморасчетыОстатки.СуммаБазовая AS Сумма
		|	FROM
		|		$РегистрИтоги.Взаиморасчеты AS ВзаиморасчетыОстатки
		|	INNER JOIN $Справочник.Клиенты AS Клиенты ON $ВзаиморасчетыОстатки.Клиент = Клиенты.ID
		|	WHERE
		|		ВзаиморасчетыОстатки.Period = :ДатаВыборкиОстатков~~
		|		AND $ВзаиморасчетыОстатки.СуммаБазовая <> 0
		|";

	Если ОтчетНаТА = 0 Тогда
		ТекстЗапроса = ТекстЗапроса + "
			|	UNION ALL
			|	SELECT
			|		$ВзаиморасчетыДвижения.Клиент AS Клиент,
			|		SUM ($ВзаиморасчетыДвижения.СуммаБазовая) AS Сумма
			|	FROM
			|		$Регистр.Взаиморасчеты AS ВзаиморасчетыДвижения
			|	INNER JOIN $Справочник.Клиенты AS Клиенты ON $ВзаиморасчетыДвижения.Клиент = Клиенты.ID
			|	WHERE
			|		ВзаиморасчетыДвижения.Date BETWEEN :ДатаНачалаВременногоРасчета~~
			|		AND :ДатаОстатков~~
			|		AND $ВзаиморасчетыДвижения.СуммаБазовая <> 0
			|	GROUP BY
			|		$ВзаиморасчетыДвижения.Клиент
			|";
	КонецЕсли;

	ТекстЗапроса = ТекстЗапроса + "
		|) AS Взаиморасчеты
		|GROUP BY
		|	Взаиморасчеты.Клиент
		|";

	Запрос = глТекущаяБаза.СоздатьКоманду ();
	Запрос.УстановитьТекстовыйПараметр ("ДатаВыборкиОстатков", ДатаВыборкиОстатков);
	Если ОтчетНаТА = 0 Тогда
		Запрос.УстановитьТекстовыйПараметр ("ДатаОстатков", ДатаОстатков);
		Запрос.УстановитьТекстовыйПараметр ("ДатаВыборкиОстатков", ДатаВыборкиОстатков);
		Запрос.УстановитьТекстовыйПараметр ("ДатаНачалаВременногоРасчета", ДатаНачалаВременногоРасчета);
	КонецЕсли;

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

Код

СтрокаСоединения="Provider=vfpoledb.1;Data Source="+КаталогБух+";Collating Sequence=RUSSIAN"; 

Код

СтрокаСоединения="Driver={Microsoft Visual FoxPro =NO;DELETED=NO;BACKGROUNDFETCH=NO"; 

Код

	OLEDB = СоздатьОбъект("OLEDBData");
	OLEDB.Connect("Provider=VFPOLEDB.1;Deleted=Yes;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Extended Properties="";User ID="";Password="";Mask Password=False;Collating Sequence=RUSSIAN;DSN=""");
	Command = OLEDB.CreateCommand();
	ТЗПроверка = СоздатьОбъект("ТаблицаЗначений");
	ТЗПроверка = Command.ExecuteStatement("SELECT * FROM 1SJOURN");
	ТЗПроверка.ВыбратьСтроку();
	Command.Close();
	OLEDB.Close();