Delphi-Help

unit ExportADOTable;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Db, ADODB;

type

  TExportADOTable = class(TADOTable)

  private

    { Private declarations }

    //TADOCommand component used to execute the SQL exporting commands

    FADOCommand: TADOCommand;

  protected

    { Protected declarations }

  public

    { Public declarations }

    constructor Create(AOwner: TComponent); override;

    procedure ExportToExcel(FieldNames: string; FileName: string;

      SheetName: string; IsamFormat: string);

    procedure ExportToHtml(FieldNames: string; FileName: string);

    procedure ExportToParadox(FieldNames: string; FileName: string; IsamFormat:

      string);

    procedure ExportToDbase(FieldNames: string; FileName: string; IsamFormat:

      string);

    procedure ExportToTxt(FieldNames: string; FileName: string);

  published

    { Published declarations }

  end;

procedure Register;

implementation

procedure Register;

begin

  RegisterComponents('Carlo Pasolini', [TExportADOTable]);

end;

constructor TExportADOTable.Create(AOwner: TComponent);

begin

  inherited;

  FADOCommand := TADOCommand.Create(Self);

end;

procedure TExportADOTable.ExportToExcel(FieldNames: string; FileName: string;

  SheetName: string; IsamFormat: string);

begin

  {IsamFormat values

   Excel 3.0

   Excel 4.0

   Excel 5.0

   Excel 8.0

  }

  if not Active then

    Exit;

  FADOCommand.Connection := Connection;

  FADOCommand.CommandText := 'Select ' + FieldNames + ' INTO ' + '[' +

    SheetName + ']' + ' IN ' + '"' + FileName + '"' + '[' + IsamFormat +

    ';]' + ' From ' + TableName;

  if Filtered and (Filter <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' where ' + Filter;

  if (Sort <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' order by ' + Sort;

  FADOCommand.Execute;

end;

procedure TExportADOTable.ExportToHtml(FieldNames: string; FileName: string);

var

  IsamFormat: string;

begin

  if not Active then

    Exit;

  IsamFormat := 'HTML Export';

  FADOCommand.Connection := Connection;

  FADOCommand.CommandText := 'Select ' + FieldNames + ' INTO ' + '[' +

    ExtractFileName(FileName) + ']' +

    ' IN ' + '"' + ExtractFilePath(FileName) + '"' + '[' + IsamFormat +

    ';]' + ' From ' + TableName;

  if Filtered and (Filter <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' where ' + Filter;

  if (Sort <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' order by ' + Sort;

  FADOCommand.Execute;

end;

procedure TExportADOTable.ExportToParadox(FieldNames: string;

  FileName: string; IsamFormat: string);

begin

  {IsamFormat values

  Paradox 3.X

  Paradox 4.X

  Paradox 5.X

  Paradox 7.X

  }

  if not Active then

    Exit;

  FADOCommand.Connection := Connection;

  FADOCommand.CommandText := 'Select ' + FieldNames + ' INTO ' + '[' +

    ExtractFileName(FileName) + ']' +

    ' IN ' + '"' + ExtractFilePath(FileName) + '"' + '[' + IsamFormat +

    ';]' + ' From ' + TableName;

  if Filtered and (Filter <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' where ' + Filter;

  if (Sort <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' order by ' + Sort;

  FADOCommand.Execute;

end;

procedure TExportADOTable.ExportToDbase(FieldNames: string; FileName: string;

  IsamFormat: string);

begin

  {IsamFormat values

  dBase III

  dBase IV

  dBase 5.0

  }

  if not Active then

    Exit;

  FADOCommand.Connection := Connection;

  FADOCommand.CommandText := 'Select ' + FieldNames + ' INTO ' + '[' +

    ExtractFileName(FileName) + ']' +

    ' IN ' + '"' + ExtractFilePath(FileName) + '"' + '[' + IsamFormat +

    ';]' + ' From ' + TableName;

  if Filtered and (Filter <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' where ' + Filter;

  if (Sort <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' order by ' + Sort;

  FADOCommand.Execute;

end;

procedure TExportADOTable.ExportToTxt(FieldNames: string; FileName: string);

var

  IsamFormat: string;

begin

  if not Active then

    Exit;

  IsamFormat := 'Text';

  FADOCommand.Connection := Connection;

  FADOCommand.CommandText := 'Select ' + FieldNames + ' INTO ' + '[' +

    ExtractFileName(FileName) + ']' +

    ' IN ' + '"' + ExtractFilePath(FileName) + '"' + '[' + IsamFormat +

    ';]' + ' From ' + TableName;

  if Filtered and (Filter <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' where ' + Filter;

  if (Sort <> '') then

    FADOCommand.CommandText := FADOCommand.CommandText + ' order by ' + Sort;

  FADOCommand.Execute;

end;

end.