unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  FormCreate時に各種初期設定
//  ADOConnecton1,ADOQuery1はFormに配置しデフォルトの状態で使用
//  それ以外の設定はこのサンプルコード内で行っている
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.Connected        := False;
  ADOConnection1.KeepConnection   := False;
  ADOConnection1.LoginPrompt      := False;
  ADOConnection1.Mode             := cmReadWrite;
  ADOConnection1.Provider         := 'Microsoft.Jet.OLEDB.4.0';
  ADOConnection1.ConnectionString := 'Data Source=../DB_Pdx;'
                                   + 'Extended Properties="Paradox 5.x;"';

  ADOQuery1.Connection := ADOConnection1;

  //Windows VisataとWindows 7では接続した後に接続文字列を設定しないと正常動作不可
  ADOConnection1.Connected   := True;
  ADOQuery1.ConnectionString := ADOConnection1.ConnectionString;
end;

//=============================================================================
//  フォームを閉じたら接続を切断
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOConnection1.Connected := False;
end;

//=============================================================================
//  [表の全データ削除]ボタン
//  対象となるParadoxの該当テーブルのデータを全て削除
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;

  //mdbの該当テーブルのデータを全て削除
  //テーブル(表)を削除するわけではない
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('DELETE FROM TestPdx ');
  ADOQuery1.ExecSQL;

  Screen.Cursor := crDefault;
end;

//=============================================================================
//  [インポート]ボタン
//  Excel(シート)からParadoxのデータベースの表にインポート
//
//  ADOTest.xlsのSheet1の指定項目を，Paradoxの表に新規追加
//  Paradoxの表には追加する項目があらかじめ用意されていなければならない
//  表のデータを全て削除して行っているのは重複データを避けるため
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LExcelPath : String;
  LstrInto   : String;
  LstrSelect : String;
  LstrFrom   : String;
begin
  //該当テーブルのデータを全て削除
  //テーブル(表)を削除するわけではない
  Button1Click(nil);

  Screen.Cursor := crHourGlass;

  //対象のExcelのブック
  //xlsx形式のブックのトートは扱えないので注意
  LExcelPath := '../Data/ADOTest.Xls';

  //SQL文の作成
  LstrInto   := 'INSERT INTO TestPdx (番号, 食品群, 食品名, キロカロリ) ';

  LstrSelect := 'SELECT [Sheet1$].番号,'
              + '        [Sheet1$].食品群,'
              + '        [Sheet1$].食品名,'
              + '        [Sheet1$].キロカロリ ';
  LstrFrom := 'FROM [Sheet1$] IN ' + AnsiQuotedStr(LExcelPath, '"') + ' '
                                   + AnsiQuotedStr('Excel 8.0;', '"');

  try
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(LstrInto);
    ADOQuery1.SQL.Add(LstrSelect);
    ADOQuery1.SQL.Add(LstrFrom);
    ADOQuery1.ExecSQL;
  except
    raise;
  end;
  Screen.Cursor := crDefault;
end;

//=============================================================================
//  [確認表示]ボタン
//  Paradoxのテーブルを開いてDBGridに表示
//  インポートする前は，現在の表のデータが表示される
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  ADOQuery1.DisableControls;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM TestPdx ');
  ADOQuery1.Open;

  ADOQuery1.EnableControls;
  Screen.Cursor := crDefault;
end;

end.

//=============================================================================
//  [インポート]ボタン
//  CSVテキストファイルからParadoxのデータベースの表にインポート
//
//  ADOCsv1.csvのテキストデータを，Paradoxの表に新規追加していく
//  Paradoxの表には追加する項目があらかじめ用意されていなければならない
//  表のデータを全て削除して行っているのは重複データを避けるため
//
//  ADOCsv1.csvにはスキーマの定義を用意していないので，1行目はタイトル行と解釈
//  されるため，取込まない
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LDataDir   : String;
  LstrInto   : String;
  LstrSelect : String;
  LstrFrom   : String;
begin
  Screen.Cursor := crHourGlass;

  //該当テーブルのデータを全て削除
  //テーブル(表)を削除するわけではない
  Button1Click(nil);

  //対象のCSVファイルがあるフォルダ
  //テキストデータはフォルダがデータベース扱い
  LDataDir := '../Data';

  //SQL文の作成
  //テキストファイル名(表名)の.は#に置換える
  LstrInto   := 'INSERT INTO TestPdx (番号, 食品群, 食品名, キロカロリ) ';
  LstrSelect := 'SELECT [ADOCsv1#csv].番号,'
              + '       [ADOCsv1#csv].食品群,'
              + '       [ADOCsv1#csv].食品名,'
              + '       [ADOCsv1#csv].キロカロリ ';
  LstrFrom  := 'FROM ADOCsv1#csv IN ' + AnsiQuotedStr(LDataDir, '"') + ' '
                                      + AnsiQuotedStr('Text;', '"');

  try
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(LstrInto);
    ADOQuery1.SQL.Add(LstrSelect);
    ADOQuery1.SQL.Add(LstrFrom);
    ADOQuery1.ExecSQL;
  except
    raise;
  end;
  Screen.Cursor := crDefault;
end;

//=============================================================================
//  [インポート]ボタン
//  CSVテキストファイルからParadoxのデータベースの表にインポート
//  CSVの第1行目からデータの場合
//
//  ADOCsv2.csvのテキストデータを，Paradoxの表に新規追加していく
//  Paradoxの表には追加する項目があらかじめ用意されていなければならない
//  表のデータを全て削除して行っているのは重複データを避けるため
//
//  スキーマファイル(schema.ini)の定義は，
//  インポートの場合Widthや表示形式の指定は無効．取込む側の表の設定による
//  ただし，固定長テキストの場合は必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LDataDir   : String;
  LstrInto   : String;
  LstrSelect : String;
  LstrFrom   : String;
begin
  Screen.Cursor := crHourGlass;

  //該当テーブルのデータを全て削除
  //テーブル(表)を削除するわけではない
  Button1Click(nil);

  //対象のCSVファイルがあるフォルダ
  //テキストデータはフォルダがデータベース扱い
  LDataDir := '../Data';
  LDataDir := ExtractFilePath(ExtractFileDir(Application.ExeName)) + 'Data';//   '../Data';

  //SQL文の作成
  //テキストファイル名(表名)の.は#に置換える
  LstrInto   := 'INSERT INTO TestPdx (番号, 食品群, 食品名, キロカロリ) ';
  LstrSelect := 'SELECT [ADOCsv2#csv].AAA,'
              + '       [ADOCsv2#csv].BBB,'
              + '       [ADOCsv2#csv].CCC,'
              + '       [ADOCsv2#csv].DDD ';
  LstrFrom := 'FROM ADOCsv2#csv IN ' + AnsiQuotedStr(LDataDir, '"') + ' '
                                     + AnsiQuotedStr('Text;', '"');

  try
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(LstrInto);
    ADOQuery1.SQL.Add(LstrSelect);
    ADOQuery1.SQL.Add(LstrFrom);
    ADOQuery1.ExecSQL;
  except
    raise;
  end;
  Screen.Cursor := crDefault;
end;

//=============================================================================
//  [インポート]ボタン
//  タブ区切りテキストファイルからParadoxのデータベースの表にインポート
//
//  ADOTab.txtのテキストデータを，Paradoxの表に新規追加していく
//  Paradoxの表には追加する項目があらかじめ用意されていなければならない
//  表のデータを全て削除して行っているのは重複データを避けるため
//
//  スキーマファイル(schema.ini)の定義は，
//  インポートの場合Widthや表示形式の指定は無効．取込む側の表の設定による
//  ただし，固定長テキストの場合は必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LDataDir   : String;
  LstrInto   : String;
  LstrSelect : String;
  LstrFrom   : String;
begin
  Screen.Cursor := crHourGlass;

  //該当テーブルのデータを全て削除
  //テーブル(表)を削除するわけではない
  Button1Click(nil);

  //対象のテキストファイルがあるフォルダ
  //テキストデータはフォルダがデータベース扱い
  LDataDir := '../Data';

  //SQL文の作成
  //テキストファイル名(表名)の.は#に置換える
  LstrInto   := 'INSERT INTO TestPdx (番号, 食品群, 食品名, キロカロリ) ';
  LstrSelect := 'SELECT [ADOTab#txt].食品番号,'
              + '       [ADOTab#txt].食品群,'
              + '       [ADOTab#txt].食品名,'
              + '       [ADOTab#txt].キロカロリ ';
  LstrFrom := 'FROM ADOTab#txt IN ' + AnsiQuotedStr(LDataDir, '"') + ' '
                                    + AnsiQuotedStr('Text;', '"');

  try
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(LstrInto);
    ADOQuery1.SQL.Add(LstrSelect);
    ADOQuery1.SQL.Add(LstrFrom);
    ADOQuery1.ExecSQL;
  except
    raise;
  end;
  Screen.Cursor := crDefault;
end;

//=============================================================================
//  [インポート]ボタン
//  固定長テキストファイルからParadoxのデータベースの表にインポート
//
//  ADOFix.txtのテキストデータを，Paradoxの表に新規追加していく
//  Paradoxの表には追加する項目があらかじめ用意されていなければならない
//  表のデータを全て削除して行っているのは重複データを避けるため
//
//  スキーマファイル(schema.ini)の定義は，
//  インポートの場合Widthや表示形式の指定は無効．取込む側の表の設定による
//  ただし，固定長テキストの場合は必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LDataDir   : String;
  LstrInto   : String;
  LstrSelect : String;
  LstrFrom   : String;
begin
  Screen.Cursor := crHourGlass;

  //該当テーブルのデータを全て削除
  //テーブル(表)を削除するわけではない
  Button1Click(nil);

  //対象のテキストファイルがあるフォルダ
  //テキストデータはフォルダがデータベース扱い
  LDataDir := '../Data';

  //SQL文の作成
  //テキストファイル名(表名)の.は#に置換える
  LstrInto   := 'INSERT INTO TestPdx (番号, 食品群, 食品名, キロカロリ) ';
  LstrSelect := 'SELECT [ADOFix#txt].食品番号,'
              + '       [ADOFix#txt].食品群,'
              + '       [ADOFix#txt].食品名,'
              + '       [ADOFix#txt].キロカロリ ';
  LstrFrom := 'FROM ADOFix#txt IN ' + AnsiQuotedStr(LDataDir, '"') + ' '
                                    + AnsiQuotedStr('Text;', '"');

  try
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(LstrInto);
    ADOQuery1.SQL.Add(LstrSelect);
    ADOQuery1.SQL.Add(LstrFrom);
    ADOQuery1.ExecSQL;
  except
    raise;
  end;
  Screen.Cursor := crDefault;
end;

//=============================================================================
//  [インポート]ボタン
//  Paradoxの表に，JETデータベースの表からデータをインポート
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LJETDBName : String;
  LSQLText   : string;
begin
  Screen.Cursor := crHourGlass;

  //Paradoxの該当テーブルのデータを全て削除
  //テーブル(表)を削除するわけではない
  Button1Click(nil);

  //JETデータベース名
  //このデータベース内の食品カロリ表という表から取り出す
  LJETDBName := '../Data/TestMDB.mdb';

  //SQL文の作成
  LSQLText := 'INSERT INTO TestPdx (番号, 食品群, 食品名, キロカロリ) '
            + 'SELECT 番号, 食品群, 食品名, キロカロリ '
            + 'FROM 食品カロリ表 IN ' + AnsiQuotedStr(LJETDBName, '"');

  try
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text := LSQLText;
    ADOQuery1.ExecSQL;
  except
    raise;
  end;
  Screen.Cursor := crDefault;
end;