Так работает:
===============
Где-то в глобальном модуле:
. . .
/////////////////// Работаем с VFP OLEDB Provider /////////////////
Перем Соединение;
Перем cmdOLEDB  Экспорт;
Перем mdw           Экспорт;   //-- Работаем с MetaDataWork
. . .
Процедура ПриНачалеРаботыСистемы()
. . .
//пытаемся загрузить компоненту в формате штатной ВК
  Если ЗагрузитьВнешнююКомпоненту("1cpp.dll") = 0 Тогда
    Предупреждение("Неудачная попытка загрузить 1cpp.dll");
    СтатусВозврата(0);
    //Возврат;
  КонецЕсли;
  Соединение="
    |Provider=VFPOLEDB.1;
//    |Deleted=Yes; 
    |Null = Yes;
    |Exclusive = No;
    |SourceType = DBF;
    |Data Source=" + КаталогИБ() + ";
    |Mode=Share Deny None;
//    |Mode=ReadWrite;
    |Extended Properties="""";
    |User ID="""";
    |Password="""";
    |Mask Password=False;
    |Collating Sequence=MACHINE;
    |DSN=""""";

  //-- Попытка открыть базу данных через OLEDB
  Попытка
     OLEDB=СоздатьОбъект("OLEDBData");
     Рез=OLEDB.Соединение(Соединение);
     cmdOLEDB=OLEDB.СоздатьКоманду();
     cmdOLEDB.Выполнить("SET ANSI OFF");
     mdw=CreateObject("MetaDataWork");
    Исключение
     Предупреждение("Неудачная попытка открыть базу данных через VFP OLFEDB");
//      СтатусВозврата(0);
//      //Возврат;
  КонецПопытки;
. . .
==== Обработка:====
Форма - рисуешь кнопку Номенклатура "кнпНоменклатура"
Модуль:
. . .
Перем итНоменклатура;      //-- Индексированная таблица Номенклатура
Перем тпНоменклатура;      //-- Табличное поле Номенклатура
. . .

Процедура ПослеОткрытия()
. . .
  итНоменклатура=СоздатьОбъект("ИндексированнаяТаблица");
  оиНоменклатураИТ = СоздатьОбъект("VTExtProvider");
  //-- Создадим необходимые табличные поля
  оФорма = СоздатьОбъект("Форма");
  оФорма.УстановитьФорму(Форма);
   тпНоменклатура = оФорма.СоздатьЭлементУправления("ТабличноеПоле", "кнпНоменклатура");

  глФабрика = СоздатьОбъект("ФабрикаОбъектов");
  ШрифтАриал10Жирный = глФабрика.Шрифт("Arial", 10, 1);

  //==================================================
  //-- Построим колонки в табличном поле Номенклатура
  //==================================================
  ИмяКолонки="Номенклатура";
  Колонка                   = тпНоменклатура.Колонки.Добавить(ИмяКолонки);
  Колонка.Заголовок         = ИмяКолонки;
  Колонка.ШрифтЗаголовка    = ШрифтАриал10Жирный;
  Колонка.Данные            = ИмяКолонки; //-- Колонка таблицы значений
  Колонка.ИзменятьВидимость = 0;
  тпНоменклатура.VScroller=1;

  //-- Подключим индексную таблицу к табличному полю
  оиНоменклатураИТ.ИндексированнаяТаблица=итНоменклатура;
  тпНоменклатура.ПоставщикДанных       = оиНоменклатураИТ;
  тпНоменклатура.ТаймаутБыстрогоПоиска = 100;
. . .
КонецПроцедуры
. . .

//******* Обработка нажатия кнопки ВыборНоменклатуры ********
Процедура кнпВыборНоменклатуры()
   итНоменклатура.УдалитьСтроки();

////************************************************
//  //-- Тест скорострельности
//  ВремяНачалоЗапроса=_GetPerformanceCounter();
////************************************************

  //-- Построим таблицу значений для выбора номенклатуры
  Select = "
    |SELECT DISTINCT
    |  Номенклатура.Id as Код,
    |  Номенклатура.Descr as Номенклатура";
  From = "
    | FROM FORCE
    |  $ДокументСтроки.ЗаказНаВыпуск as t_ЗаказНаВыпуск,
    |  1SJourn as Жур,
    |  $Справочник.Номенклатура as Номенклатура";
   Where = "
    | WHERE
    |  t_ЗаказНаВыпуск.IDDoc = Жур.IDDoc AND
    |  Жур.Date BETWEEN :НачДата~~ AND :КонДата~~  AND
    |  Номенклатура.Id=$t_ЗаказНаВыпуск.Номенклатура";

//  From = "
//    | FROM FORCE
//    |  1SJourn as Жур
//    |  INNER JOIN
//    |   $ДокументСтроки.ЗаказНаВыпуск as t_ЗаказНаВыпуск
//    |  ON
//    |   BETWEEN(
//    |    Жур.IDDOCDEF+DTOS(Жур.date)+Жур.time+Жур.iddoc,
//    |    $ВидДокумента.ЗаказНаВыпуск+DTOS(:НачДата~~)+'               ',
//    |    $ВидДокумента.ЗаказНаВыпуск+DTOS(:КонДата~~)+'ZZZZZZZZZZZZZZZ'
//    |   ) AND
//    |    t_ЗаказНаВыпуск.IDDoc = Жур.IDDoc
//    |    INNER JOIN
//    |     $Справочник.Номенклатура as Номенклатура
//    |    ON
//    |     Номенклатура.Id=$t_ЗаказНаВыпуск.Номенклатура";
//   Where = "";

  //-- Текстовый фрагмент идентификатора номенклатуры определён ?
  пвНоменклатура=СокрЛП(пвНоменклатура);
  Если  пвНоменклатура<>"" Тогда
    where=where+" AND UPPER(Номенклатура.Descr) LIKE """+ Врег(пвНоменклатура)+"%""";
  КонецЕсли;

ТекстЗапроса =select+from+where+" ORDER BY Номенклатура";
  Попытка
    cmdOLEDB.УстановитьТекстовыйПараметр("НачДата", НачДата);
    cmdOLEDB.УстановитьТекстовыйПараметр("КонДата", КонДата);
    cmdOLEDB.ВыполнитьИнструкцию(ТекстЗапроса,итНоменклатура);
  Исключение
    Предупреждение("Ошибка построения таблицы для Выбора номенклатуры");
    Возврат;
  КонецПопытки;
  Если итНоменклатура.КоличествоСтрок()=0 Тогда
    Предупреждение("Ошибка построения таблицы для Выбора номенклатуры*");
    Возврат;
  КонецЕсли;
////***********************************************************
//  //-- Завершение теста скорострельности
//  ВремяКонецЗапроса=_GetPerformanceCounter();
//  ВремяЗапроса=ВремяКонецЗапроса-ВремяНачалоЗапроса;
//  Сообщить("Формирование длилось "+(ВремяЗапроса/1000)+"с");
////*************************************************************
  тпНоменклатура.StartView=0;
  тпНоменклатура.ОбновитьСтроки();
  тпНоменклатура.ТекущаяСтрока=1;
КонецПроцедуры

>blindvic
>Правильно ли я понимаю, ...
Правильно.
Это один из вариантов. Я пришёл в мир 1С из мира C# (.Net), там принято работать с локальным DataSet. Какие данные нужны приложению и их объем регулируются запросом (SELECT по хорошему должен иметь TOP) с разумными фильтрами.
Это то, что есть под рукой, могущие сделают больше.

Динамического поставщика данных VFP OLEDB для ТП нет. Поэтому люди сразу дёргают все данные.
Для ДБФ есть ещё один вариант - использовать 1sqlite, но там пока(?) не реализована возможность быстрого поиска...  Но мы надеемся, что Александр Орефков всё-таки добьёт это дело.

Burlak писал(а) 17. Ноября 2008 :: 05:21:

Спасибо за объяснение, я новичок в SQL.

JohnyDeath писал(а) 16. Ноября 2008 :: 20:04:

Я в документации читал, что ТП поддерживает поставщики данных торлько ODBC. И драйвер вроде есть у Microsoft.
???

Ладно, с обращением с ДБФ без ИТЗ ждем пока 1sqlite будет проверена.

А вот связать MySql и ТП не получается - не могу найти простой пример.
Есть база. Хочу, чтобы ТП отобразил выборк - без использования ТЗ.
Начал делать по моему разумению:

Перем ТП;

//*******************************************
Процедура Сформировать()
	id_server = "localhost";
	id_database = "inf1188";
	id_user = "root";
	id_password = "";


	DataBase = СоздатьОбъект("ODBCDatabase");
	Если DataBase.Соединение("DRIVER={MySQL ODBC 3.51 Driver}; SERVER="+id_server+"; DATABASE="+id_database+"; USER="+id_user+"; PASSWORD="+id_password+"; OPTION=3;") = 0 Тогда
		Сообщить("Неудалось подключиться к базе данных, проверьте наличие драйвера, адрес сервера и наличие связи!!!", "!!!");
		Возврат;
	КонецЕсли;

	рс = СоздатьОбъект("ODBCRecordSet");
	рс.SetDatabase(DataBase);

	тз = рс.ВыполнитьИнструкцию("SELECT * FROM company WHERE CompanyName LIKE '%invest%' LIMIT 10");
	тз.ВыбратьСТроку();


	оПоставщикДанных = СоздатьОбъект("ODBCDataProvider.MySQL");
	оПоставщикДанных.БазаДанных = DataBase;

	рс = 0;
	DataBase.Закрыть();

КонецПроцедуры

*
Процедура ПослеОткрытия()
	_Форма = СоздатьОбъект("Форма");
	_Форма.УстановитьФорму(Форма);
	ТП =_Форма.СоздатьЭлементУправления("ТабличноеПоле", "ТП");
КонецПроцедуры 

Что дальше делать - не знаю...
Помогите, люди добрые 

Вот что у меня пока что получилось:

Перем ТП, DataBase;

//*******************************************
Процедура Сформировать()

	оПоставщикДанных = СоздатьОбъект("ODBCDataProvider.MySQL");
	оПоставщикДанных.БазаДанных = DataBase;

	оПоставщикДанных.УстТекстЗапроса("SELECT `ID` AS ID, `CompanyName` AS CoName, `StreetID` AS  Street FROM company WHERE CompanyName LIKE '%invest%'");
	оПоставщикДанных.УстКлючПорядка("CoName ASC");
	оПоставщикДанных.УстИдПоле("ID");
	ТП.ПоставщикДанных = оПоставщикДанных;
	ТП.ОбновитьСтроки();

КонецПроцедуры

*
Процедура ПослеОткрытия()
	_Форма = СоздатьОбъект("Форма");
	_Форма.УстановитьФорму(Форма);
	ТП =_Форма.СоздатьЭлементУправления("ТабличноеПоле", "ТП");

	id_server = "localhost";
	id_database = "inf1188";
	id_user = "root";
	id_password = "";

	DataBase = СоздатьОбъект("ODBCDatabase");
	Если DataBase.Соединение("DRIVER={MySQL ODBC 3.51 Driver}; SERVER="+id_server+"; DATABASE="+id_database+"; USER="+id_user+"; PASSWORD="+id_password+"; OPTION=3;") = 0 Тогда
		Сообщить("Неудалось подключиться к базе данных, проверьте наличие драйвера, адрес сервера и наличие связи!!!", "!!!");
		Возврат;
	КонецЕсли;

КонецПроцедуры

*
Процедура ПослеЗакрытия()
	DataBase.Закрыть();
КонецПроцедуры 

На ТП появляется одна колонка без заголовка с пустыми ячейками.
Что делать дальше?