チュートリアル:TSQLMonitor での SQLite データベースのサポート
データベースおよび LiveBinding のチュートリアル への移動
RAD Studio XE3 では、TSQLMonitor は SQLite データベースをサポートしています。
以下のチュートリアルでは、TSQLMonitor を SQLite データベースで使用する方法を示します。ここで紹介する例は、TSQLConnection、TSQLMonitor、TButton の 3 つのコントロールで構成される VCL フォーム アプリケーションです。ボタンがクリックされると、テーブルが作成され、その中にデータが入力されたあと、簡単な SELECT クエリが実行されます。最後に、TSQLMonitor の TraceList がディスク上のファイルに保存されます。
手順
- [ファイル|新規作成|VCL フォーム アプリケーション - Delphi]を選択します。
- フォームに TSQLConnection、TSQLMonitor、TButton の各コントロールを追加します。
- [オブジェクト インスペクタ]で以下を行います。
- TSQLConnection コントロールの Driver プロパティを Sqlite に設定します。
- SQLConnection プロパティを
SQLConnection1
に設定します。 - TButton コントロールの Caption プロパティを Execute に設定します。
- 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;
関連項目
- RAD Studio での SQLite のサポート
- チュートリアル:VCL アプリケーションから SQLite データベースに接続する
- チュートリアル:TSQLMonitor を ODBC 接続で使用する
- Data.SqlExpr.TSQLMonitor
- Data.SqlExpr.TSQLConnection
- FMX.Controls.TButton
- Data.SqlExpr.TSQLMonitor.TraceList
- [オブジェクト インスペクタ]
- Data.SqlExpr.TSQLConnection.DriverName
- Data.SqlExpr.TSQLMonitor.SQLConnection
- Vcl.Controls.TControl.Caption
- Vcl.StdCtrls.TButton.OnClick
- Data.SqlExpr.TSQLConnection.Execute
- Data.SqlExpr.TSQLConnection.Connected
- Data.SqlExpr.TSQLMonitor.Active
- Data.SqlExpr.TSQLMonitor.SaveToFile