из DBGRID В dbf файл.

← →
muzzzy (2003-09-16 10:14) [0]

Вот подскажите пожалуста как грамотнее сделать чтобы данные полученные с помощью запросов(разных) перенести в локальные dbf файлы. Соответсвенно структуру я зарание незнаю, так как запрос может быть каким угодно.

← →
Anatoly Podgoretsky © (2003-09-16 10:20) [1]

А зачем из DBGRID их эе там нет?
Далай запрос сразу с занесением в локальный файл.

← →
muzzzy (2003-09-16 10:28) [2]

Это как?

← →
muzzzy (2003-09-16 10:29) [3]

Это как?
я данные получаю при помощи DOA 3.4

← →
Sergey13 © (2003-09-16 10:38) [4]

2muzzzy (16.09.03 10:14)
>Вот подскажите пожалуста как грамотнее сделать
Т.е. у тебя есть и свои варианты? Расскажи, а мы покритикуем.

Расскажи поподробнее про задачу. Зачем из Оракла "любые" запросы в DBF перегонять? Может и не надо ничего вовсе? 8-)

← →
Наталия © (2003-09-16 10:42) [5]

TBatchMove попробуй

← →
muzzzy (2003-09-16 10:59) [6]

>Sergey13
Задача такая вот и перегоняю...
насчет идей могу тупо из Dbgrid.Columns.Items[X].Field.AsYYYYY
Только беда в том что я незнаю как узнать структуру, конечно можно делать анализ запроса и на оснавании его создовать свою структуру, но намой взгляд это неправельно.

>Наталия
TBatchMove"y необходимо таблички исходник и приемник, исходника у меня в принципе быть неможет, а приемник я немогу создать так как назнаю как получить структуру.

← →
Sergey13 © (2003-09-16 11:08) [7]

muzzzy (16.09.03 10:59) [6]
>Задача такая вот и перегоняю...
Сами гоним сами пьем... 8-) Ню-ню.

>насчет идей могу тупо из Dbgrid.Columns.Items[X].Field.AsYYYYY
А нафига через грид то, а не прямо из датасета?

>Только беда в том что я незнаю как узнать структуру

select * from sys.user_tab_columns
where TABLE_NAME="твоя_TABLE_NAME"

← →
muzzzy (2003-09-16 11:17) [8]

чего за твоя_TABLE_NAME ???

вот делаю я запрос скажем такой:

select v.xkey,pricecode,lpu,rgn1,sprint,startdate,
max(enddate) enddate,sum(subpay) prinsum
from (select distinct n.xkey,n.smo from nucleus n,service s
where n.xkey=s.xkey and n.smo=s.smo
group by n.xkey,n.smo
having max(enddate) between "01.01.2002" and "31.12.2002") v,
service s,nucleus n,hospital h
where test=1 and skind=1
and v.xkey=s.xkey and v.smo=s.smo
and v.xkey=n.xkey and v.smo=n.smo
and v.xkey=h.xkey
group by v.xkey,pricecode,lpu,rgn1,sprint,startdate;

это к примеру... чего мне это все валить в отдельную таблицу на сервер?

← →
Jeer © (2003-09-16 11:25) [9]

Ну если очень хочется, то пробегись по полям FieldDefs[i[ и создай новую таблицу в соответствии с их описаниями.
Далее стандартно из DataSet

2muzzzy (16.09.03 11:17) [8]
>чего за твоя_TABLE_NAME ???
Имя твоей таблицы. Если их много - делай много запросов. Или не делай. 8-) Можно попробовать c DataType поиграться.

>это к примеру... чего мне это все валить в отдельную таблицу на сервер?
Задача то твоя - вот ты и решай.

← →
muzzzy (2003-09-16 11:43) [11]

Вот человеки придумал весч одну, точнее в хелпе подобное нашел, правда и здесь беда все ОК только с db файлами пример:

var
TDest: TTable;
begin
TDest := TTable.create(self);
with TDest do begin
TableName := "MyNewTbl.db";
FieldDefs.Assign(dbgrid1.DataSource.DataSet.FieldDefs);
IndexDefs.Assign(dbgrid1.DataSource.DataSet.IndexDefs);
CreateTable;
end;
Здесь все гут, только почемуто если написать
TableName := "MyNewTbl.dbf"; то созданый файл нигде неоткрываеться, говорит что это вовсе не dbf, но уже и не db.
Может кто знает чего делать.

Учиться по книжкам.
Ну и по хелпу:)

← →
muzzzy (2003-09-16 12:32) [13]

вОТ ВСЕ ВАМ ШУТКИ ШУТИТЬ...

из DBGRID В dbf файл. Найти похожие ветки