создание dbf файла

[13eksa_kate]

Доброго дня суток! Стоит задача выгрузить в dbf данные, получаемые sql-запросом.
Изначальная идея такая: Данные выбираются с помощью FIBDataSet,
c помощью TDBF пишутся в файл.
Разъясните пожалуйста как конкретно рабоать с TDBF или может быть как правильнее реализовать поставленное задание

[Аватар]

В огнептице есть возможность експортировать в dbf селектом

[Rik]

Сообщение от Аватар

В огнептице есть возможность експортировать в dbf селектом

Нет там такой возможности.
Такая возможность есть либо в средствах администрирования FireBird типа IBExpert либо в специальных программах типа IBPump.

Если писать самому, то примерно так:

procedure TForm1.ExprotDBF(FlName: string);
var
  DBF: TDBF;
  FD: TDBFFieldDefs;
  F: TDBFFieldDef;
  I: Integer;
  FIBField: TField;
begin
  FIBDataSet.Open;
  DBF := TDBF.Create(Self);
  FD := TDBFFieldDefs.Create(DBF);
  try
    Dbf.TableName := FlName;
    //создаем таблицу DBF с теми -же полями что и набор данных
    for I := 0 to FIBDataSet.Fields.Count - 1 do
    begin
       FIBField := FIBDataSet.Fields.Fields[I];
       F := FD.AddFieldDef;
       F.FieldName := FIBField.FieldName;
       case FIBField.DataType of
         ftString:
         begin
             F.NativeFieldType := 'C';
             F.Size := FIBField.Size;
          end;
          ftInteger:
          begin
             F.NativeFieldType := 'N';
             F.Size := 14;
             F.Precision := 0;
          end;
          //И так далее для каждого типа данных
        end; 
    end;  
     
    DBFGlobals.DefaultCreateLangId := 101;//Если 101 то 866; Если 201 то WIN1251
    Dbf.CreateTableEx(FD);
    
    if FileExists(FlName) then
    begin
      DBF.Open;
      try
        while not FIBDataSet.Eof do
        begin
           Dbf.Append;
           //Здесь копируем данные полей из FIB в DBF
           DBF.Post;
           FIBDataSet.Next;
        end;
      finally
        DBF.Close;
      end;

  finally
    FD.Free;
    DBF.Free;
    FIBDataSet.Close;
  end;
end;

примерно как-то так....

[Аватар]

Сделать script.ibb примерно с таким содержимым (за правильность не ручаюсь):

execute ibeblock
as
begin
  SELECT * FROM genre EXPORT AS DBF INTO 'd:\Test.dbf' OPTIONS 'ConvertToDOS; LongStringsToMemo; DateTimeAsDate'
end

Сделать примерно так script.bat:

IBEScript.exe "script.ibb" -Dd:\Test.fdb -USYSDBA -Pmypass
Pause

И вызов с делфи ShellExecute батника