Как узнать размер поля в физической базе через произвольный запрос TQuery для баз *.db и *.dbf ?
Давно есть идея написать процедуру, которая бы создавала динамически бузу и сохраняла бы результат запроса Query (*.db или *.dbf) в новую базу.
Имя поля и тип узнать легко:

Размер текстового поля известен Query1.Fields [ i ].Size, а вот как узнать размер числовых и вещественных полей ?
Может кто уже решал подобную задачу ?

Можно конечно делать тип просто NUMERIC без указания размерности, но тогда будут создаваться поля NUMERIC(20,4) что будет довольно таки избыточно и не всегда допустимо по формату использования в программах жестко настроенных на формат полей.

У меня Делфи5 и доступ к базам *.db и *.dbf через стандартные TTable и TQuery.

create table test1 as select * from test2.DBF

Ни в Делфийском TQuery ни в SQLExplorer не работает, кричит:
Invalid use keyword.
Token: as

Может это работает через ADOQuery ?
Тогда может кто подскажет "чайнику ADO" что нужно прописать для соединения с dbf через ADO в ConnectionString для dbase IV ?
Пишу
Provider=Microsoft.Jet.OLEDB.4.0;User ID=1;Data Source=c:\;Mode=ReadWrite|Share Deny None;Extended Properties=dBase IV;Persist Security Info=False

С такой строчкой при conected:=true в дизайнере он кричит: Не удается запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем.
В чем причина ?
-----
А ADO хоть с DBF пропустит(create table test1 as select * from test2.DBF) ?
А может все же есть еще другой способ без ADO ?

Компонент называется tbaTchmove, да действительно он упрощает жизнь, ненужно писать самому процедуру создания базы анализируя типы полей, но он имеет тот же недостаток что и та процедура которую я написал:
вещественные значения он делает Numeric (20,4) и целые больше чем в базе были.
Похоже это все же так просто победить нельзя.

Люди у кого работает связка create table test1 as select * from test2.DBF на DBF-ах или на других базах, а у Вас как с размерностью числовых полей после create table as ?
Т.е. они идентичны источнику или как и при TBatchMove размерность у числовых полей увеличивается ?