モバイルチュートリアル：dbExpress と SQLite を使用する（iOS および Android）

モバイルチュートリアル：モバイルアプリケーション開発（iOS および Android）への移動

1 dbExpress を使用してデータベースに接続する
2 Windows 環境で開発用にデータベースを作成する
- 2.1 ［データエクスプローラ］でデータベースを作成する
- 2.2 ［データエクスプローラ］でテーブルを作成する
3 ユーザーインターフェイスの設計とセットアップ
4 データに接続する
5 ユーザーがリストの項目を選択したときに削除ボタンを表示するためのイベントハンドラを作成する
6 リストにエントリを追加するための追加ボタン用のイベントハンドラを作成する
7 リストからエントリを削除するための削除ボタン用のイベントハンドラを作成する
8 モバイルプラットフォーム用にデータベースの配置をセットアップする
- 8.1 データベースファイルを配置マネージャに追加し構成する
9 モバイルプラットフォーム上のローカルデータベースファイルに接続するようコードを変更する
- 9.1 モバイルデバイス上での SQLite データベースの場所を指定する
- 9.2 テーブルが存在しなければ作成する
10 モバイルデバイスでのアプリケーションの実行
11 関連項目

注意： このチュートリアルで解説されている dbExpress は、廃止予定です。これはつまり、今後のリリースにおいて、dbExpress が RAD Studio から削除されることを意味します。

dbExpress の代わりに、当社の新しいデータベースソリューションである FireDAC を使用することをお勧めします。FireDAC については、類似のチュートリアル「
モバイルチュートリアル：FireDAC と SQLite を使用する（iOS および Android）」で説明しています。

このチュートリアルを開始する前に、次のチュートリアルを読んで実行してください。

モバイルチュートリアル：リストボックスコンポーネントを使用してテーブルビューを表示する（iOS および Android）

このチュートリアルでは、dbExpress フレームワークによりモバイルデバイス上のローカルデータストレージとして SQLite を使用する基本手順を説明します。

iOS	Android

dbExpress を使用してデータベースに接続する

dbExpress は、Delphi で書かれた非常に高速なデータベースアクセスフレームワークです。RAD Studio では、InterBase、Oracle、DB2、SQL Server、MySQL、Firebird、SQLite、ODBC など、ほとんどの主要データベース用にドライバを用意しています。データベースは違っても、ここで説明するものと同様の手順でこれらのデータベースにアクセスすることができます。

モバイルプラットフォームの場合、dbExpress では InterBase ToGo および SQLite をサポートしています。これらのデータベース製品は iOS および Android デバイス上で動かすことができます。

それ以外の Oracle などのデータベースでは、少なくともクライアントライブラリが必要です。Windows プラットフォームでは、クライアントライブラリは DLL として提供されていて、それに対して接続します。そのため、モバイルデバイスからこれらのデータベース製品に接続するには、DataSnap などの中間層技術を使ってアプリケーションを開発する必要があります。

モバイルデバイス上でクライアントライブラリを使用せずにエンタープライズデータベースに接続する方法は、別のチュートリアルで説明しています。「モバイルチュートリアル：モバイルクライアントからエンタープライズデータベースに接続する（iOS および Android）」を参照してください。

Windows 環境で開発用にデータベースを作成する

まず、開発用の Windows プラットフォームで SQLite データベースファイルを作成します。フォームデザイナを使ってアプリケーションのユーザーインターフェイスを設計できるよう、以下の手順を実施します。

［データエクスプローラ］でデータベースを作成する

［データエクスプローラ］で［SQLite］ノードを右クリックし、［新規接続を追加］を選択します。
接続の名前を定義します。たとえば「ShoppingList」とします。
データベースファイルの場所を指定します。
［詳細］ボタンをクリックして［拡張プロパティ］ダイアログボックスを開きます。
FailIfMissing プロパティを「False」に変更します。［OK］をクリックして［拡張プロパティ］ダイアログボックスを閉じます。

メモ： FailIfMissing を「False」に設定すると、ファイルが存在しない場合に［データエクスプローラ］によって新しいデータベースファイルが作成されます。
［接続の変更］ダイアログボックスに戻り、［接続テスト］ボタンをクリックします。この操作を行うと、ファイルが存在しない場合に新しいデータベースファイルが作成されます。

メモ： 開発用システムに sqlite3.dll が存在することを確認してください。このファイルが存在しない場合は、http://www.sqlite.org/download.html から sqlite3.dll をダウンロードし、システムパス（64 ビット版 Windows であれば C:\Windows\SysWOW64 など）に配置します。

［データエクスプローラ］でテーブルを作成する

［データエクスプローラ］で、［SQLite］セクションの ShoppingList ノードをダブルクリックし、［テーブル］を右クリックします。コンテキストメニューから［テーブルを新規作成］を選択します。
ShopItem 列の［データ型］を「TEXT」に設定します。
［保存］ボタンをクリックし、テーブル名を指定します（「Item」など）。

ユーザーインターフェイスの設計とセットアップ

ビジュアルな UI コンポーネントをデザイナ上に読み込んだ状態

このチュートリアルでは、1 つの TListBox コンポーネントを UI 要素として使用します。

以下の手順でリストボックスコンポーネントなどの UI 要素をセットアップします。

［ファイル｜新規作成｜マルチデバイスアプリケーション - Delphi］ または ［ファイル｜新規作成｜マルチデバイスアプリケーション - C++Builder］を使用して、マルチデバイスアプリケーションを作成します。
フォームに TToolBar をドロップします。
ツールバーコンポーネント上に TButton をドロップし、［オブジェクトインスペクタ］で次のプロパティを設定します。
- Align を Right に設定します。
- Name プロパティを ButtonAdd に設定します。
- StyleLookup を addtoolbutton に設定します。
ツールバーコンポーネント上に TButton をドロップし、［オブジェクトインスペクタ］で次のプロパティを設定します。
- Align を Left に設定します。
- Name プロパティを ButtonDelete に設定します。
- StyleLookup を deletetoolbutton に設定します。
- Text を「Delete」に設定します。
- Visible を False に設定します。
ツールバーコンポーネント上に TLabel をドロップし、［オブジェクトインスペクタ］で次のプロパティを設定します。
- Align を Client に設定します。
- StyleLookup を toollabel に設定します。
- Text を「Shopping List」に設定します。
- TextSettings.HorzAlign を Center に設定します。
TListBox コンポーネントをフォームにドロップし、［オブジェクトインスペクタ］で次のプロパティを設定します。
- Align プロパティを Client に設定して、リストボックスコンポーネントがフォーム全体を占めるようにします。

データに接続する

［データエクスプローラ］で既に定義したデータベース内のデータに接続する基本手順は以下のとおりです。

［データエクスプローラ］の Item テーブルを選択し、フォームデザイナへとドラッグします。

メモ： これによって、2 つのコンポーネント（ShoppinglistConnection: TSQLConnection および ItemTable: TSQLDataSet）がフォーム上に作成されます。
フォームで ShoppinglistConnection コンポーネントを選択し、Connected プロパティを True に変更します。
フォームで ItemTable コンポーネントを選択し、Active プロパティを True に変更します。
［表示｜LiveBinding デザイナ］を選択して［LiveBinding デザイナ］を開きます。
ItemTable コンポーネントの ShopItem を選択し、ShopItem を ListBox1 の Item.Text にドラッグします。

この手順を実施すると、アプリケーションのユーザーインターフェイスが SQLite データベースのデータに接続されます。データが既に含まれたテーブルをこのチュートリアルで使用している場合には、これでフォームデザイナに実際のデータが表示されるはずです。

ユーザーがリストの項目を選択したときに削除ボタンを表示するためのイベントハンドラを作成する

［Delete］ボタンの Visible プロパティは False に設定されています。そのため、このボタンはデフォルトでエンドユーザーから見えなくなっています。次のようにすると、ユーザーがリストの項目を選択したときにこのボタンを表示することができます。

ListBox1 を選択し、OnItemClick イベント用に以下のイベントハンドラを定義します。

Delphi の場合：

procedure TForm1.ListBox1ItemClick(const Sender: TCustomListBox;
  const Item: TListBoxItem);
begin
  if ListBox1.Selected <> nil then
    ButtonDelete.Visible := True
  else
    ButtonDelete.Visible := False;
end;

C++Builder の場合：

void __fastcall TForm1::ListBox1ItemClick(const TCustomListBox *Sender,const TListBoxItem *Item)
{
        if (ListBox1->Selected)
                ButtonDelete->Visible = True;
        else
                ButtonDelete->Visible = False;
}

リストにエントリを追加するための追加ボタン用のイベントハンドラを作成する

データベース接続も構成した状態

次のステップでは、項目をショッピングリストに追加する機能をアプリケーションに追加します。

フォームに TSQLQuery コンポーネントをドロップします。
［オブジェクトインスペクタ］で次のプロパティを設定します。
- Name プロパティを「SQLQueryInsert」に設定します。
- SQLConnection プロパティを ShoppinglistConnection に設定します。
- SQL プロパティを次のように設定します。
  INSERT INTO ITEM (ShopItem) VALUES (:ShopItem)
- Params プロパティの拡張（［...］）ボタンを選択します。
- ShopItem パラメータを選択し、DataType を ftString に設定します。
フォームデザイナで ButtonAdd コンポーネントをダブルクリックします。このイベントハンドラに次のコードを追加します。

Delphi の場合：

procedure TForm1.ButtonAddClick(Sender: TObject);
begin
  TDialogServiceAsync.InputQuery('Enter New Item', ['Name'], [''], Self.OnInputQuery_Close);
end;

procedure TForm1.OnInputQuery_Close(const AResult: TModalResult; const AValues: array of string);
var
  TaskName: string;
begin
  TaskName := string.Empty;
  if AResult <> mrOk then
    Exit;
  TaskName := AValues[0];
  try
    if not (TaskName.Trim = string.Empty) then
    begin
      SQLQueryInsert.ParamByName('ShopItem').AsString := TaskName;
      SQLQueryInsert.ExecSQL();
      ItemTable.Refresh;
      LinkFillControlToField1.BindList.FillList;
      if ListBox1.Selected <> nil then
        ButtonDelete.Visible := True
      else
        ButtonDelete.Visible := False;
    end;
  except
    on Ex: Exception do
      ShowMessage('Error: ' + Ex.Message);
  end;
end;

Form クラスの private セクション下に次の手続きプロトタイプを宣言します。

private
    procedure OnInputQuery_Close(const AResult: TModalResult; const AValues: array of string);

C++Builder の場合：

C++ で同じ機能を複製するには、追加手順が必要です。

1. TForm1 定義の後に次の型定義を追加します。

typedef void __fastcall (__closure *TInputCloseQueryProcEvent)(const System::Uitypes::TModalResult AResult,
        System::UnicodeString const *AValues, const int AValues_High);

2. 次のクラス定義を追加します。

class InputQueryMethod : public TCppInterfacedObject<TInputCloseQueryProc>
{
private:
    TInputCloseQueryProcEvent Event;

public:
    InputQueryMethod(TInputCloseQueryProcEvent _Event) {
        Event = _Event;
    }

    void __fastcall Invoke(const System::Uitypes::TModalResult AResult,
        System::UnicodeString const *AValues, const int AValues_High) {
        Event(AResult, AValues, AValues_High);
    }
};

3. フォームの private セクション下に次の宣言を追加します。

void __fastcall OnInputQuery_Close(const System::Uitypes::TModalResult AResult,    
    System::UnicodeString const *AValues, const int AValues_High);

4. 実際の関数を追加します。

void __fastcall TForm1::ButtonAddClick(TObject *Sender) {
    String caption = "Caption";
    String Prompts[1];
    Prompts[0] = "Prompt 0";
    String Defaults[1];
    Defaults[0] = "Default 0";
    _di_TInputCloseQueryProc Met = new InputQueryMethod(&OnInputQuery_Close);
    TDialogServiceAsync::InputQuery(
        "caption", Prompts, 0, Defaults, 0, (TInputCloseQueryProc *)Met);
}
void __fastcall TForm1::OnInputQuery_Close(const System::Uitypes::TModalResult AResult,
        System::UnicodeString const *AValues, const int AValues_High) {
    String TaskName;
    TaskName = "";
    if (AResult != mrOk)
        return;
    TaskName = AValues[0];
    try {
        if (TaskName.Trim() != "")
            SQLQueryInsert->ParamByName("ShopItem")->AsString = TaskName;
        SQLQueryInsert->ExecSQL();
        ItemTable->Refresh();
        LinkFillControlToField1->BindList->FillList();
        if (ListBox1->Selected != NULL)
            ButtonDelete->Visible = True;
        else
            ButtonDelete->Visible = False;
    }
    catch (Exception& Ex) {
        ShowMessage("Error: " + Ex.Message);
    }
}

InputQuery 関数は、エンドユーザーにテキストの入力を求めるダイアログボックスを表示します。この関数は、ユーザーが OK を選択した際に True を返すため、データベースでデータを追加できるのは、ユーザーが OK を選択し、かつテキストにデータが含まれているときのみです。

iOS	Android

リストからエントリを削除するための削除ボタン用のイベントハンドラを作成する

次のステップでは、項目をショッピングリストから削除する機能をアプリケーションに追加します。

フォームに TSQLQuery コンポーネントをドロップします。
［オブジェクトインスペクタ］で次のプロパティを設定します。
- Name プロパティを「SQLQueryDelete」に設定します。
- SQLConnection プロパティを ShoppinglistConnection に設定します。
- SQL プロパティを次のように設定します。
  delete from Item where ShopItem = :ShopItem
- Params プロパティの拡張（［...］）ボタンを選択します。
- ShopItem パラメータを選択し、DataType を ftString に設定します。
［構造］ビューで、ButtonDelete コンポーネントを選択します。このイベントハンドラに次のコードを追加します。

Delphi の場合：

procedure TForm1.ButtonDeleteClick(Sender: TObject);
var
  TaskName: String;
begin
  TaskName := ListBox1.Selected.Text;

  try
    SQLQueryDelete.ParamByName('ShopItem').AsString := TaskName;
    SQLQueryDelete.ExecSQL();
    ItemTable.Refresh;
    LinkFillControlToField1.BindList.FillList;
    if ListBox1.Selected <> nil then
      ButtonDelete.Visible := True
    else
      ButtonDelete.Visible := False;
  except
    on e: Exception do
    begin
      SHowMessage(e.Message);
    end;
  end;
end;

C++Builder の場合：

void __fastcall TForm1::ButtonDeleteClick(TObject *Sender) {
        String TaskName = ListBox1->Selected->Text;
        try {
                SQLQueryDelete->ParamByName("ShopItem")->AsString = TaskName;
                SQLQueryDelete->ExecSQL();
                ItemTable->Refresh();
                LinkFillControlToField1->BindList->FillList();
                if (ListBox1->Selected)
                        ButtonDelete->Visible = True;
                else
                        ButtonDelete->Visible = False;
        }
        catch (Exception &e) {
                ShowMessage(e.Message);
        }
}

モバイルプラットフォーム用にデータベースの配置をセットアップする

ここまでは、デスクトップで SQLite を使用してきました。つまり、実際のデータベースは、ローカルのハードディスクドライブ上（C:\Users\Public\Documents\Embarcadero\Studio\23.0\Samples\Data\shoplist.s3db など）。モバイルデバイスでは、アプリケーションはサンドボックス化されるため、通常はアプリケーションフォルダ下の Documents フォルダ（iOS デバイスの場合）および internal 記憶域（Android デバイスの場合）にあるデータしか読み書きできません。

モバイル上でローカルデータベースに接続するには、以下の作業を実施する必要があります。

データベースをモバイルデバイスに配置する。
（データベースファイルに接続するための）構成を、Documents フォルダ（iOS デバイスの場合）または internal 記憶域（Android デバイスの場合）のローカルファイルにチェックする。

データベースファイルを配置マネージャに追加し構成する

モバイル上でアプリケーションを実行するには、データベースファイル（shoplist.s3db）の配置情報をセットアップする必要があります。

データベースは、次の 2 つの方法のいずれかでプロジェクトに追加することができます。
- プロジェクトマネージャ でプロジェクト名を右クリックし、そのコンテキストメニューから［追加...］を選択して（または［プロジェクト｜プロジェクトに追加...］）、［プロジェクトに追加］ダイアログボックスに表示させます。データベースの場所 C:\Users\Public\Documents\Embarcadero\Studio\23.0\Samples\Data まで移動し、データベースの shoplist.s3db を選択し、［開く］をクリックします。
- データベースの場所 C:\Users\Public\Documents\Embarcadero\Studio\23.0\Samples\Data まで移動し、データベースの shoplist.s3db をプロジェクトマネージャ内のプロジェクトまでドラック＆ドロップします。［はい］をクリックして、プロジェクトへのファイル追加を確定します。
データベースファイルを追加したら、［機能ファイル］ウィンドウが表示されるので、［キャンセル］をクリックして閉じます。
配置マネージャを、［プロジェクト｜配置］を選択して開きます。
配置マネージャ上部のターゲットプラットフォームのドロップダウンリストで、［Debug 構成 - iOS デバイス - 32 ビットプラットフォーム］、［Debug 構成 - iOS デバイス - 64 ビットプラットフォーム］、または、［Debug 構成 - Android プラットフォーム］を選択し、データベース shoplist.s3db がプラットフォームに追加されていることを確認します。
shoplist.s3db のリモートパスが、iOS プラットフォームおよび Android プラットフォーム用にどのように設定されたか確認してください。
- iOS デバイスプラットフォームの［リモートパス］： StartUp\Documents\
- Android プラットフォームの［リモートパス］： assets\internal\

このように構成すると、モバイルデバイス上でアプリケーションを実行したときに、マルチデバイスアプリケーションのサンドボックス領域の Documents フォルダ（iOS プラットフォームの場合）または internal 記憶域（Android プラットフォームの場合）にデータベースファイル（shoplist.s3db）を配置するよう、設定されます。

モバイルプラットフォーム上のローカルデータベースファイルに接続するようコードを変更する

このアプリケーションの基本的な機能の実装はこれで終わりです。［データエクスプローラ］で作業をしたときに、Windows 上にデータベースファイルを作成しました。このデータベースファイルは、モバイルデバイスにコピーするかその場で作成しなければ、モバイルデバイス上で使用できません。

SQLite のデータベースおよびテーブルは次の手順で作成することができます。

モバイルデバイス上での SQLite データベースの場所を指定する

フォームデザイナで ShoppinglistConnection コンポーネントを選択します。
［オブジェクトインスペクタ］で BeforeConnect イベントをダブルクリックします。
このイベントハンドラに次のコードを追加します。

Delphi の場合：

procedure TForm1.ShoppinglistConnectionBeforeConnect(Sender: TObject);
begin
  {$IF DEFINED(iOS) or DEFINED(ANDROID)}
  ShoppinglistConnection.Params.Values['ColumnMetadataSupported'] := 'False';
  ShoppinglistConnection.Params.Values['Database'] :=
      TPath.Combine(TPath.GetDocumentsPath, 'shoplist.s3db');
  {$ENDIF}
end;

TPath レコードは System.IOUtils ユニットで宣言されているため、ユニットの uses 句に System.IOUtils を追加する必要があります。

C++Builder の場合：

void __fastcall TForm1::ShoppinglistConnectionBeforeConnect(TObject *Sender) {
        #if defined(_PLAT_IOS) || defined(_PLAT_ANDROID)
        ShoppinglistConnection->Params->Values["ColumnMetadataSupported"] = "False";
        ShoppinglistConnection->Params->Values["Database"] = System::Ioutils::TPath::Combine(System::Ioutils::TPath::GetDocumentsPath(), "shoplist.s3db");
        #endif
}

TPath レコードは、System.IOUtils ライブラリで宣言されているため、ヘッダーユニットに #include <System.IOUtils.hpp> を追加する必要があります。

テーブルが存在しなければ作成する

SQLite では、CREATE TABLE IF NOT EXISTS 文を使用すると、テーブルが存在しない場合に作成することができます。テーブルの作成は、TSQLConnection コンポーネントがデータベースに接続した後、TSQLDataSet コンポーネントがテーブルに接続する前に行うことができます。手順は以下のとおりです。

フォームデザイナで ShoppinglistConnection コンポーネントを選択します。
［オブジェクトインスペクタ］で AfterConnect イベントをダブルクリックします。
このイベントハンドラに次のコードを追加します。

Delphi の場合：

procedure TForm1.ShoppinglistConnectionAfterConnect(Sender: TObject);
begin
  ShoppinglistConnection.ExecuteDirect('CREATE TABLE IF NOT EXISTS Item (ShopItem  TEXT NOT NULL)');
end;

C++Builder の場合：

void __fastcall TForm1::ShoppinglistConnectionAfterConnect(TObject *Sender){
        ShoppinglistConnection->ExecuteDirect("CREATE TABLE IF NOT EXISTS Item (ShopItem  TEXT NOT NULL)");
}

モバイルデバイスでのアプリケーションの実行

これで、シミュレータまたは接続したモバイルデバイスの上でアプリケーションを実行する準備ができました。
アプリケーションを実行するには：

［プロジェクトマネージャ］でターゲットプラットフォームを選択します。
次のいずれかのコマンドを選択します。
- ［実行｜実行］
- ［実行｜デバッガを使わずに実行］

iOS	Android

メモ： アプリケーション実行時に問題が発生した場合には、「トラブルシューティング」で説明している手順を実施してください。

モバイルチュートリアル：dbExpress と SQLite を使用する（iOS および Android）

目次

dbExpress を使用してデータベースに接続する

Windows 環境で開発用にデータベースを作成する

［データエクスプローラ］でデータベースを作成する

［データエクスプローラ］でテーブルを作成する

ユーザーインターフェイスの設計とセットアップ

データに接続する

ユーザーがリストの項目を選択したときに削除ボタンを表示するためのイベントハンドラを作成する

リストにエントリを追加するための追加ボタン用のイベントハンドラを作成する

リストからエントリを削除するための削除ボタン用のイベントハンドラを作成する

モバイルプラットフォーム用にデータベースの配置をセットアップする

データベースファイルを配置マネージャに追加し構成する

モバイルプラットフォーム上のローカルデータベースファイルに接続するようコードを変更する

モバイルデバイス上での SQLite データベースの場所を指定する

テーブルが存在しなければ作成する

モバイルデバイスでのアプリケーションの実行

関連項目

案内メニュー

個人用ツール

名前空間

変種

表示

その他

検索

RAD Studio 12 Athens

RAD Studio 12 トピック

他言語版

以前のバージョン

Assistance

ツール

モバイル チュートリアル：dbExpress と SQLite を使用する（iOS および Android）

目次

dbExpress を使用してデータベースに接続する

Windows 環境で開発用にデータベースを作成する

［データ エクスプローラ］でデータベースを作成する

［データ エクスプローラ］でテーブルを作成する

ユーザー インターフェイスの設計とセットアップ

データに接続する

ユーザーがリストの項目を選択したときに削除ボタンを表示するためのイベント ハンドラを作成する

リストにエントリを追加するための追加ボタン用のイベント ハンドラを作成する

リストからエントリを削除するための削除ボタン用のイベント ハンドラを作成する

モバイル プラットフォーム用にデータベースの配置をセットアップする

データベース ファイルを配置マネージャに追加し構成する

モバイル プラットフォーム上のローカル データベース ファイルに接続するようコードを変更する

モバイル デバイス上での SQLite データベースの場所を指定する

テーブルが存在しなければ作成する

モバイル デバイスでのアプリケーションの実行

関連項目

案内メニュー

検索

モバイルチュートリアル：dbExpress と SQLite を使用する（iOS および Android）

［データエクスプローラ］でデータベースを作成する

［データエクスプローラ］でテーブルを作成する

ユーザーインターフェイスの設計とセットアップ

ユーザーがリストの項目を選択したときに削除ボタンを表示するためのイベントハンドラを作成する

リストにエントリを追加するための追加ボタン用のイベントハンドラを作成する

リストからエントリを削除するための削除ボタン用のイベントハンドラを作成する

モバイルプラットフォーム用にデータベースの配置をセットアップする

データベースファイルを配置マネージャに追加し構成する

モバイルプラットフォーム上のローカルデータベースファイルに接続するようコードを変更する

モバイルデバイス上での SQLite データベースの場所を指定する

モバイルデバイスでのアプリケーションの実行