Сохранение запроса tadoquery

[dinaria]

Здравствуйте, уважаемые профи!
подскажите как сохранить запрос TADOQuery в dbf таблицу, предварительно создав ее
//делаю запрос
aq.Active:=false;
aq.SQL.Clear;
aq.SQL.Add('select Adres from ab_trg');
aq.SQL.Add('where Adres like "Кувшиново,%"');
aq.Active:=true;
//проверяю запрос на пустоту, если не пустой, то создаю папку с именем города и сохраняю в нее dbf файл с именем ab_trg
if aq.Recordset.RecordCount<>0 then
begin
aq.Open;
//здесь нужно сделать создание папки и сохранить в нее файл
end;

подскажите, пожалуйста, как это сделать!!!!

[Serge_Bliznykov]

А через что Вы собираетесь обращаться к DBF ?!

можно, например, воспользоваться маленьким бесплатным компонентом TDBF...

[dinaria]

а можно без установки дополнительных компонентов? просто создать dbf файл и сохранить в него весь запрос)

[Serge_Bliznykov]

а можно без установки дополнительных компонентов?

а чем Вам дополнительные компоненты не угодили?!

просто создать dbf файл

DBF файл можно создавать или с помощью каких-то компонентов..
(ну, например, если уж так критично нельзя дополнительные - тогда попробуйте через BDE... это это зло, антиквариат, отстой и мастдай! К тому же этих компонентов нет в новых версиях Delphi (что правильно!))


либо можно создавать руками как двоичный файл. Но это предполагает знание структуры DBF, да и дополнительной работы программисту будет весьма ощутимый объём...

и сохранить в него весь запрос)

Вы хотели сказать - РЕЗУЛЬТАТЫ запроса..

[dinaria]

спасибо, попробую установить компонент)

[Serge_Bliznykov]

спасибо, попробую установить компонент)

не за что!
Желаю удачи.

если что - обращайтесь! помогу, чем смогу...

p.s. ВАЖНО!
А какая у Вас версия Delphi ?
Если Delphi версия >=2009 - тогда поищите TDBF с поддержкой UNICODE. на офф.сайте такого нет - это уже умельцы доводили исходники до нужной кондиции самостоятельно...

[Аватар]

Сообщение от dinaria

а можно без установки дополнительных компонентов? просто создать dbf файл и сохранить в него весь запрос)

Если структура нового dbf заранее известна - хранить в ресурсе или каталоге exe пустой dbf нужной структуры и при необходимости копировать его в нужное место (дубово, но надежно и ни каких сторонних компонент). Далее читать в цикле исходный ADOQuery1 и загонять в ADOQuery2 нацеленный на новую таблицу Insert-ы и в конце ADOQuery2.ExecSQL

[Serge_Bliznykov]

и загонять в ADOQuery2 нацеленный на новую таблицу Insert-ы и в конце ADOQuery2.ExecSQL

А ADOQuery2 через какого провайдера подключать? (ну в ConnectionString что должно быть прописано?)

Я работал с DBF через ADO с помощью Microsoft OLE DB Provider for FoxPro. Он бесплатный, взять его можно прямо на сайте MS, но его нужно устанавливать в систему.

А что, через JET тоже можно работать с DBF ? Или через что?...

[Аватар]

Через JET не тестировал. Подключал через VFPOLEDB. И через MSDASQL (через ODBC), но только из процедур MS SQL. Я думаю можно MSDASQL и в ADO засунуть

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Tables\;Mode=ReadWrite;Extended Properties=DBASE III;Persist Security Info=False
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Tables\;Mode=ReadWrite;Extended Properties=DBASE IV;Persist Security Info=False
Provider=MSDASQL.1;Persist Security Info=False;Data Source=Файлы dBASE;Mode=ReadWrite;Initial Catalog=E:\Tables
Provider=VFPOLEDB.1;Data Source=E:\Tables\;Mode=ReadWrite;Password="";Collating Sequence=MACHINE;DELETED=False;CODEPAGE=866

Получилось и с JET. Везде есть соединение с DBF, везде возможны проблемы с кодировкой текстовых полей
Без ADO еще и BDE остается

[betirsolt]

значит я закинул на форму адоконекш и построил строку соединения MS OLE DB PROVIDER FOR ODBC DRIVERS. ВОТ МОЯ СТРОКА СОЕДИНЕНИЯ
Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Mode=ReadWrite;Initial Catalog=E:\Мои документы\Документы\По работе\;
дальше закинул adoquery и указал ему на адоконекшн и забил sql запрос и ве поставил active, но в результате в dbgrid пусто хотя запрос у меня такой
select *
from xxx