PowerBuilder からau PAY Market のデータに接続してみた

CData ADO.NET providers は、PowerBuilder を含むMicrosoft .NET をサポートするあらゆるプラットフォームまたは開発テクノロジーから使用できる、使いやすい標準準拠のデータプロバイダーです。 この記事では、CData ADO.NET Provider for auPAYMarket をPowerBuilder で使う方法について説明します。

CData ADO.NET Provider for auPAYMarket を使ってデータを取得し読み書きを実行する基本的なPowerBuilder アプリケーションを作成する方法について説明します。

1. 新規WPF Window Application ソリューションで、接続プロパティに必要なすべてのビジュアルコントロールを追加します。一般的な接続文字列は次のとおりです：

   ApiKey=MyApiKey;ShopId=MyShopId

   au PAY マーケットに接続するには、ShopId およびApiKey が必要です。

   au PAY マーケットへのアクセスの設定

   ShopId およびApiKey を取得するには、以下の手順に従ってください。

   • Wow! manager サイトにログインして、「各種お申し込み」メニューの「API利用申請」に移動します。
   • API利用規約に同意します。
   • 「APIキーの発行はこちら」をクリックします。
   • 「発行」ボタンをクリックして、API キーを生成します。
   • 「接続元IPアドレスを登録」に、対象とするIP アドレスを入力します。
   • 「登録」ボタンをクリックして、設定を保存します。

   au PAY マーケットアカウントの認証

   次の接続プロパティを設定して接続します。

   • ShopId：接続先のau PAY マーケットShop ID を設定。
   • ApiKey：API キーを設定。au PAY マーケットストアアカウントから取得したAPI キーです。
   • UseSandbox：Sandbox 環境に接続する場合はTrue を設定。
2. .NET コントロールからDataGrid コントロールを追加します。
3. DataGrid コントロールのカラムを設定します。Account テーブルからいくつかのカラムを以下に示します：

   
   <DataGrid AutoGenerateColumns="False" Margin="13,249,12,14" Name="datagrid1" TabIndex="70" ItemsSource="{Binding}">
   <DataGrid.Columns>
       <DataGridTextColumn x:Name="idColumn" Binding="{Binding Path=Id}" Header="Id" Width="SizeToHeader" />
       <DataGridTextColumn x:Name="nameColumn" Binding="{Binding Path=ItemCode}" Header="ItemCode" Width="SizeToHeader" />
   		...
   	</DataGrid.Columns>
   </DataGrid>
   

4. CData ADO.NET Provider for auPAYMarket アセンブリへの参照を追加します。

DataGrid 接続

ビジュアルエレメントが設定されたら、Connection、Command、およびDataAdapter のような標準のADO.NET オブジェクトを使ってSQL クエリの結果をDataTable に表示することができます：

System.Data.CData.auPAYMarket.auPAYMarketConnection conn
conn = create System.Data.CData.auPAYMarket.auPAYMarketConnection(connectionString)

System.Data.CData.auPAYMarket.auPAYMarketCommand comm
comm = create System.Data.CData.auPAYMarket.auPAYMarketCommand(command, conn)

System.Data.DataTable table
table = create System.Data.DataTable

System.Data.CData.auPAYMarket.auPAYMarketDataAdapter dataAdapter
dataAdapter = create System.Data.CData.auPAYMarket.auPAYMarketDataAdapter(comm)
dataAdapter.Fill(table)
datagrid1.ItemsSource=table.DefaultView

上のコードは、指定したクエリからDataGrid にデータをバインドできます。