Код

Перем ADO, MDW;


Функция GetThis(Конт)

Возврат Конт;

КонецФункции // GetThis()		  



Функция ВыбратьЭлементы(РеквизитПоиска, Знач ПодСтрокаПоиска) Экспорт
//#if _DEBUG
НачТаймер = _GetPerformanceCounter();  
//#endif
				    
ПодСтрокаПоиска = СтрЗаменить(ПодСтрокаПоиска, "*", "%");
ТекВид = GetThis(Context).Вид("");
Сообщить(ТекВид);
ИмяТаблицы = MDW.ИмяТаблицыСправочника(ТекВид);

ПодСтрокаПоиска = СокрЛП(ПодСтрокаПоиска);
Пока Найти(ПодСтрокаПоиска, "  ")>0 Цикл
 ПодСтрокаПоиска = СтрЗаменить(ПодСтрокаПоиска, "  ", " ");    
КонецЦикла;					  
ПодСтрокаПоиска = ВРег(СтрЗаменить(ПодСтрокаПоиска, " ", "%"));
ПолеБД = "";
Если РеквизитПоиска = "Код" Тогда
 ПолеБД = "CODE";    
ИначеЕсли РеквизитПоиска = "Наименование" Тогда
    ПолеБД = "DESCR";
Иначе
 ПолеБД = "SP"+MDW.ИДРеквизитаСправочника(ТекВид, РеквизитПоиска);
КонецЕсли;										  

СтрокаЗапроса = "select ID from [ИмяТаблицы] where UPPER([ПолеБД]) like '[ПодСтрокаПоиска]'";

СтрокаЗапроса = Шаблон(СтрокаЗапроса);

Результаты = СоздатьОбъект("СписокЗначений");
//Попытка
 rs = ADO.Execute(СтрокаЗапроса);
 Если Rs.EOF() = 0 Тогда
  Rs.MoveFirst();		    
  Пока Rs.EOF() = 0 do  
   Зн = Rs.Fields("ID").Value;  
   Результаты.ДобавитьЗначение(MDW.ЗначениеИзСтрокиБД("Справочник."+ТекВид, Зн));
   Rs.MoveNext();
  КонецЦикла;    
 КонецЕсли;
 rs.close();
//Исключение  
// Сообщить(ОписаниеОшибки());
//КонецПопытки;

//#if _DEBUG
КонТаймер = _GetPerformanceCounter();  
Сообщить(Шаблон("Поиск по подстроке [Результаты.РазмерСписка()] элементов [(КонТаймер-НачТаймер)] мс."));
//#endif
Возврат Результаты;
КонецФункции // ВыбратьЭлементы()


Процедура Конструктор()

MDW = СоздатьОбъект("MetaDataWork");
ADO = СоздатьОбъект("ADODB.Connection");    
ADO.Open("Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""Driver={Microsoft Visual FoxPro h=Yes;Collate=Machine;Null=Yes;Deleted=Yes;""");
 

Код

ADO = СоздатьОбъект("ADODB.Connection");
	ADO.Open("
	|Provider=VFPOLEDB.1;
	|Deleted=Yes;
	|Null = Yes;
	|Exclusive = No;
	|SourceType = DBF;
	|Data Source=" + КаталогИБ() + ";
	|Mode=ReadWrite;
	|Extended Properties="""";
	|User ID="""";
	|Password="""";
	|Mask Password=False;
	|Collating Sequence=MACHINE;
	|DSN=""""");