チュートリアル:TSQLMonitor での SQLite データベースのサポート

提供: RAD Studio
移動先: 案内検索

データベースおよび LiveBinding のチュートリアル への移動


RAD Studio XE3 では、TSQLMonitor は SQLite データベースをサポートしています。

以下のチュートリアルでは、TSQLMonitor を SQLite データベースで使用する方法を示します。ここで紹介する例は、TSQLConnectionTSQLMonitorTButton の 3 つのコントロールで構成される VCL フォーム アプリケーションです。ボタンがクリックされると、テーブルが作成され、その中にデータが入力されたあと、簡単な SELECT クエリが実行されます。最後に、TSQLMonitorTraceList がディスク上のファイルに保存されます。

手順

  1. [ファイル|新規作成|VCL フォーム アプリケーション - Delphi]を選択します。
  2. フォームに TSQLConnectionTSQLMonitorTButton の各コントロールを追加します。
  3. [オブジェクト インスペクタ]で以下を行います。
    • TSQLConnection コントロールの Driver プロパティを Sqlite に設定します。
    • SQLConnection プロパティを SQLConnection1 に設定します。
    • TButton コントロールの Caption プロパティを Execute に設定します。
  4. TButton コントロールの OnClick イベントのハンドラに以下のコードを追加します。
procedure TForm1.Button1Click(Sender: TObject);
var
  Results: TDataSet;
begin
  // Set the database.
  SQLConnection1.Params.Add('Database=full_path_of_your_sqlite_database');
  try
    // Connect to the database.
    SQLConnection1.Connected := true;
    // Activate the monitor.
    SQLMonitor1.Active := true;
    // Create and populate a table.
    PopulateTable(SQLConnection1);
    SQLConnection1.Execute('SELECT * FROM ExampleTable', nil, Results);
    // Save the trace list to a file on disk.
    SQLMonitor1.SaveToFile('D:\\Log.txt');
  except
    on E: EDatabaseError do
      ShowMessage('Exception raised with message' + E.Message);
  end;
end;

PopulateTable 手続きのコードを以下に示します。

procedure PopulateTable(Connection: TSQLConnection);
var
  Query: String;
begin
  Query := 'CREATE TABLE ExampleTable(id INT, name VARCHAR2(50))';
  try
    Connection.Execute(Query, nil);
    Query := 'INSERT INTO ExampleTable VALUES(1,"test1")';
    Connection.Execute(Query, nil);
    Query := 'INSERT INTO ExampleTable VALUES(2,"test2")';
    Connection.Execute(Query, nil);
    Query := 'INSERT INTO ExampleTable VALUES(3,"test3")';
    Connection.Execute(Query, nil);
  except
    on E: Exception do
      ShowMessage('Exception raised with message: ' + E.Message);
  end;
end;

関連項目