ノーコードでクラウド上のデータとの連携を実現。
詳細はこちら →無償トライアル:
無償トライアルへ製品の情報と無償トライアルへ:
Money Forward Expense ODBC Driver
MF クラウド経費ODBC ドライバーは、ODBC 接続をサポートする任意のアプリケーションからライブなMoney Forward データに直接接続できる強力なツールです。標準のODBC ドライバーインタフェースを使用して、データベースのようにMoney Forward クラウド経費にアクセスし、申請、トランザクション（明細）、事業所などの読み出し、書き込み、および更新を実行できます。
CData ODBC Driver for MFExpense は、ODBC 標準をサポートし、ライブMoney Forward Expense データとビジュアルフォームデザイナおよびDelphi の他のラピッド開発ツールとの統合を可能にします。ODBC ドライバーは、データベース開発用のシングルAPI を提供することにより、Delphi のような単一のコードベースを共有するアプリケーションのデータアクセス戦略を簡素化します。この記事では、Money Forward Expense に接続してシンプルなVisual Component Library (VCL) アプリケーションおよびDelphi コードからデータをクエリする方法を説明します。
未指定の場合は、初めにODBC DSN (data source name) で接続プロパティを指定します。ドライバーのインストールの最後にアドミニストレーターが開きます。Microsoft ODBC Data Source Administrator を使用して、ODBC DSN を作成および構成できます。
MoneyForward Expense はOAuth 2 認証標準を利用しています。MoneyForward Expense にアプリケーションを登録し、OAuthClientId およびOAuthClientSecret を取得する必要があります。認証方法については、ヘルプドキュメントの「MoneyForward Expense への接続」を参照してください。
また、ほとんどのテーブルを操作するためにOfficeId プロパティを指定する必要があります。
以下のステップに従ってData Explorer を使用し、Money Forward Expense へのFireDAC 接続を作成できます。
以下のステップに従って、クエリの結果をグリッドに表示するシンプルなVCL アプリケーションからMoney Forward Expense のクエリの実行を開始します。
TFDConnection コンポーネントフォームにドロップし、以下のプロパティを設定します。
TFDQuery コンポーネントをフォームにドロップし、以下のプロパティを設定します。
SQL：［SQL］プロパティ内のボタンをクリックし、クエリを入力します。例：
SELECT Id, Name FROM Offices
TDataSource コンポーネントをフォームにドロップし、以下のプロパティを設定します。
TDBGrid コントロールをフォームにドロップし、以下のプロパティを設定します。
TFDConnection およびTFQuery コンポーネントを使用してMoney Forward Expense へのクエリを実行できます。このセクションでは、TFQuery コンポーネントを使用してクエリを実行するMoney Forward Expense 固有の例を示します。
データソースに接続するには、TFDConnection コンポーネントの［Connected］プロパティをtrue に設定します。コードでも同じプロパティを設定できます。
FDConnection1.ConnectionDefName := 'mymoneyforwardexpense';
FDConnection1.Connected := true;
パラメータ化されたリソースはパフォーマンスを向上させることができます。ステートメントの準備は、システムリソースと時間の面でコストがかかります。ステートメントの準備中、接続がアクティブで開いている必要があるためです。FireDACはデフォルトで、同じクエリが何度もリコンパイルされないようにクエリを準備します。ステートメントの準備を無効にするには、ResourceOptions.DirectExecute を［True］に設定します。クエリを一回だけ実行する必要がある場合などに設定します。
select クエリなど、結果セットを返すクエリを実行するには、Open メソッドを使用します。Open メソッドは、クエリを実行して結果セットを返し、それを開きます。クエリが結果セットを生成しない場合、Open メソッドはエラーを返します。
FDQuery1.Open('select * from Offices where Id = :Id',['1668776136772254']);
delete のような結果セットを返さないクエリを実行するには、ExecSQL メソッドを使用します。クエリが結果セットを返す場合、ExecSQL メソッドはエラーを返します。影響を受ける行の数を取得するには、［TFD.RowsAffected］プロパティを使用します。
FDQuery1.ExecSQL('delete from Offices where Id= :myId',['x12345']);
i := FDQuery1.RowsAffected;