чтение БД из MSSQL Server и сохранения в DBF (Foxpro)

[Irehon]

Весь ваш форум перерыл и не мог найти не чего толкового по этому вопросу так что создаю новую тему.
Начну с начало у меня на работе есть сервер MS SQL на нем лежит БД. Я через делфи создаю форму подключаюсь к SQL серверу нормально, вытаскиваю таблицу с данными которые мне нужны и делаю фильтр. Как мне эту таблицу уже отфильтрованную сохранить БД в dbf (FoxPro) формат?
Уже голову слома как это можно сделать программно не как не догоняю, может что посоветуете или в какую сторону копать, а если может у кого есть схожие исходники буду благодарен.

[vovk]

можно просто в цикле перенести все записив таблицу с анологичной структурой

ado(TABLE Query Datasetили какой там у вас датасет пусть будет ADODataSet)
а фокспрошная таблица пусть будет подключена к Table

var
i:integer;
begin
ADODataSet.first;
While not ADODataSet.EOF do
begin
for i := 0 to ADODataSet.FieldCount-1 do
  table.FieldByName(ADODataSet.Fields[i].FieldName).Assign(ADODataSet.Fields[i]);
ADODataSet.Next;
end;
end;

естественно таблица фокспрошная должна быть с тем же набором полей, и поля должны иметь теже имена,
только нужно проверить набивал тут прямо

[Serge_Bliznykov]

в целом согласен с Vovk

а фокспрошная таблица пусть будет подключена к Table

ну, тут я бы поспорил.. TTable - это использование устаревшей (и не очень надёжной) технологии доступа к данным - BDE

я бы рекомендовал писать в DBF либо через ADO
либо используя компоненты прямого доступа к DBF (например, маленький и бесплатный TDBF, ссылки и примеры использования были тут на форуме)...

[Irehon]

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

в целом согласен с Vovk

я бы рекомендовал писать в DBF либо через ADO
либо используя компоненты прямого доступа к DBF (например, маленький и бесплатный TDBF, ссылки и примеры использования были тут на форуме)...

Я с этим компонентом не знаком, можешь набросать как через него делать?

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

можно просто в цикле перенести все записив таблицу с анологичной структурой

ado(TABLE Query Datasetили какой там у вас датасет пусть будет ADODataSet)
а фокспрошная таблица пусть будет подключена к Table

естественно таблица фокспрошная должна быть с тем же набором полей, и поля должны иметь теже имена,
только нужно проверить набивал тут прямо

А если dbf нету,а надо создать как в таком случаи измениться код?

Блогодарю, а то этот вопрос чето меня в тупик поставил.
Завтра на работе попробую потом отпишусь.
А не знаешь как работать с компонентами SQL, а не ADO. Вроде они идентичны но многие говорят что лучше ADO использовать за чего.

[Serge_Bliznykov]

А если dbf нету,а надо создать как в таком случаи измениться код?

DBF можно создать программно. только структуру надо задать. У Вас есть структура файла, куда Вы собираетесь выгружать данные?

По поводу примеров - а Вы на форуме примеры смотрели? прямо по ключевому слову TDBF и поищите...

А не знаешь как работать с компонентами SQL, а не ADO. Вроде они идентичны но многие говорят что лучше ADO использовать за чего.

Вы путаете понятия. SQL - язык запросов (выборки). ADO - технология получения данных.
запросы SQL можно выполнять и через старую BDE и через новую ADO и используя компоненты прямого доступа к СУБД... в конце концов, задача этих компонентов, передать запрос к ядру СУБД (тот самый SQL/DDL) и получив от СУБД данные (или ответ), вернуть его в программу. Вам стоит почитать книжки...

[Irehon]

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

DBF можно создать программно. только структуру надо задать. У Вас есть структура файла, куда Вы собираетесь выгружать данные?

Вроде в первом посту написал что надо сохранить в этом формате а не переписать этот фаил. Какая может быть там структура если его нет?

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

Вы путаете понятия. SQL - язык запросов (выборки). ADO - технология получения данных.
запросы SQL можно выполнять и через старую BDE и через новую ADO и используя компоненты прямого доступа к СУБД... в конце концов, задача этих компонентов, передать запрос к ядру СУБД (тот самый SQL/DDL) и получив от СУБД данные (или ответ), вернуть его в программу. Вам стоит почитать книжки...

Посмотри внимательно в delphi там есть SQLConnection1(dbExpress) и ADOConnection1(ADO) если ты там не заметил похожих компонентов то я тут не причем.

[Serge_Bliznykov]

Вроде в первом посту написал что надо сохранить в этом формате а не переписать этот фаил. Какая может быть там структура если его нет?

структуру Вы должны знать. Чтобы создать файл, нужно задать структуру: имена и типы полей, с которыми Вы его создаёте.

впрочем, мне кажется, что Вы прекрасно справитесь с этим и без моей помощи...
я уже всё сказал.


p.s. Кстати, если что, то не стесняйтесь, ко мне можно смело обращаться на Вы.

[Irehon]

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

p.s. Кстати, если что, то не стесняйтесь, ко мне можно смело обращаться на Вы.

Хорошо, буду знать. Если что буду в личку писать.

[Irehon]

Парни вот еще один вопрос возник при создания и сохранения файла с расширением dbf немогу скопировать структуру бд из sql, не кто не знает как это делаеть?
я вот так пытался но не чего толкового не происходит

Query1.Close;
Query1.DBSession.PrivateDir;
Query1.SQL.Text := 'create table "test.dbf" (ADODataSet1.FieldDefs)';   --как тут правельно перекинуть структура
Query1.ExecSQL;

или вот такой способ

with dbf1 do begin
    Dbf1.Close;
    Dbf1.TableName := 'test.dbf';
    DbfGlobals.DefaultCreateCodePage := 866;
    TempFieldDefs := TDbfFieldDefs.Create(Self);
    try
      for i:=0 to ADODataSet1.FieldCount-1 do
      begin
        Application.ProcessMessages;
        with TempFieldDefs.AddFieldDef do
        begin
             FieldName := ADODataSet1.FieldDefs[i].Name;
             //FieldType := ADODataSet1.FieldDefs[i].DataType;         // тут
             //NativeFieldType := ADODataSet1.FieldDefs[i].ParentDef;     // и тут не получаеть
             Size := ADODataSet1.FieldDefs[i].Size;
             Precision := ADODataSet1.FieldDefs[i].Precision;
        end;
      end;
      Dbf1.CreateTableEx(TempFieldDefs);
      Application.MessageBox('Таблица успешно сохранена', 'Сообщение', MB_OK);
    finally
      FreeAndNil(TempFieldDefs);
    end;
  end;

Может кто знает как это можно сделать?