バッチ処理

CData ADO.NET Provider for QuickBooks Time では、TSheetsDataAdapters を通じて、QuickBooks Time の一括ロードサポートを活用することができます。Batch API を使用して、関連するSQL データ操作ステートメントを同時に実行できます。本製品はバッチ内のすべてのSQL クエリを単一のリクエストに変換します。

ADO.NET Batch API の使用

バッチ更新を実行するには、次の基本的な手順を実行します。

TSheetsCommand オブジェクトで、パラメータ化されたカスタムSQL ステートメントを定義します。
TSheetsCommand オブジェクトのUpdatedRowSource プロパティを"UpdateRowSource.None" に設定します。
TSheetsCommand オブジェクトをTSheetsDataAdapter に割り当てます。
パラメータをコマンドに追加します。
TSheetsDataAdapter のUpdate メソッドを呼び出します。変更を含むDataSet またはDataTable を渡します。

バッチサイズの制御

要求のサイズ、ネットワークリソース、サーバーのパフォーマンスなどの要因に応じて、より小さなバッチ要求をいくつか実行することでパフォーマンスを向上させることができます。各バッチのサイズは、TSheetsDataAdapter のUpdateBatchSize プロパティを正の整数に設定することで制御できます。

一括INSERT

次のコードはレコードを一括で挿入する単一のバッチを準備します。。この例では、"Added" 状態の新しいDataRows の一括INSERT を実行します。

TSheetsDataAdapter adapter = new TSheetsDataAdapter();

using (TSheetsConnection conn = new TSheetsConnection("OAuthClientId=myclientid;OAuthClientSecret=myclientsecret;InitiateOAuth=GETANDREFRESH;CallbackUrl=http://localhost:33333;")) {
  conn.Open();
  adapter.InsertCommand = conn.CreateCommand();
  adapter.InsertCommand.CommandText = "INSERT INTO Timesheets (JobcodeId) VALUES (@JobcodeId)";
  adapter.InsertCommand.UpdatedRowSource = UpdateRowSource.None;
  adapter.InsertCommand.Parameters.Add("@JobcodeId", "JobcodeId");

  DataTable batchDataTable = new DataTable();
  batchDataTable.Columns.Add("JobcodeId", typeof(string));
  batchDataTable.Rows.Add("Jon Doe");
  batchDataTable.Rows.Add("John");
  adapter.UpdateBatchSize = 2;
  adapter.Update(batchDataTable);
}

VB.NET

 
Dim adapter As New TSheetsDataAdapter()

Using conn As New TSheetsConnection("OAuthClientId=myclientid;OAuthClientSecret=myclientsecret;InitiateOAuth=GETANDREFRESH;CallbackUrl=http://localhost:33333;")
  conn.Open()
  adapter.InsertCommand = conn.CreateCommand()
  adapter.InsertCommand.CommandText = "INSERT INTO Timesheets (Id) VALUES (@JobcodeId)"
  adapter.InsertCommand.UpdatedRowSource = UpdateRowSource.None
  adapter.InsertCommand.Parameters.Add("@JobcodeId", "JobcodeId")

  Dim batchDataTable As New DataTable()
  batchDataTable.Columns.Add("JobcodeId", GetType(String))
  batchDataTable.Rows.Add("John")
  batchDataTable.Rows.Add("Jon Doe")
  adapter.UpdateBatchSize = 2
  adapter.Update(batchDataTable)
End Using

一括更新

バッチ更新では、さらに、更新する各行の主キーが必要です。次の例では、"Modified" 状態のすべてのDataRow レコードに対してバッチを実行します。

TSheetsDataAdapter adapter = new TSheetsDataAdapter();

using (TSheetsConnection conn = new TSheetsConnection("OAuthClientId=myclientid;OAuthClientSecret=myclientsecret;InitiateOAuth=GETANDREFRESH;CallbackUrl=http://localhost:33333;")) { 
  conn.Open();
  adapter.UpdateCommand = conn.CreateCommand();
  adapter.UpdateCommand.CommandText = "UPDATE Timesheets SET JobcodeId=@JobcodeId WHERE Id=@Id";
  adapter.UpdateCommand.Parameters.Add("@JobcodeId", "JobcodeId");
  adapter.UpdateCommand.Parameters.Add("@Id", "Id");
  adapter.UpdateCommand.UpdatedRowSource = UpdateRowSource.None; 
  DataTable batchDataTable = new DataTable();
  batchDataTable.Columns.Add("JobcodeId", typeof(string));
  batchDataTable.Rows.Add("Jon Doe");
  batchDataTable.Rows.Add("John");
  adapter.UpdateBatchSize = 2;
  adapter.Update(dataTable);
}

VB.NET

 
Dim adapter As New TSheetsDataAdapter()

Using conn As New TSheetsConnection("OAuthClientId=myclientid;OAuthClientSecret=myclientsecret;InitiateOAuth=GETANDREFRESH;CallbackUrl=http://localhost:33333;")
  conn.Open()
  adapter.UpdateCommand = conn.CreateCommand()
  adapter.UpdateCommand.CommandText = "UPDATE Timesheets SET JobcodeId=@JobcodeId WHERE Id=@Id"
  adapter.UpdateCommand.Parameters.Add("@JobcodeId", "JobcodeId")
  adapter.UpdateCommand.Parameters.Add("@Id", "Id")
  adapter.UpdateCommand.UpdatedRowSource = UpdateRowSource.None
  Dim batchDataTable As New DataTable()
  batchDataTable.Columns.Add("JobcodeId", GetType(String))
  batchDataTable.Rows.Add("John")
  batchDataTable.Rows.Add("Jon Doe")
  adapter.UpdateBatchSize = 2
  adapter.Update(dataTable)
End Using

一括削除

次のコードは、レコードを一括で削除する単一のバッチを準備します。各行の主キーが必要です。次の例では、"Deleted" 状態のすべてのDataRow レコードに対してバッチを実行します。

TSheetsDataAdapter adapter = new TSheetsDataAdapter();

using (TSheetsConnection conn = new TSheetsConnection("OAuthClientId=myclientid;OAuthClientSecret=myclientsecret;InitiateOAuth=GETANDREFRESH;CallbackUrl=http://localhost:33333;")) {
  conn.Open();
  adapter.DeleteCommand = conn.CreateCommand();
  adapter.DeleteCommand.CommandText = "DELETE FROM Timesheets WHERE Id=@Id";
  adapter.DeleteCommand.Parameters.Add("@Id", "Id");
  adapter.DeleteCommand.UpdatedRowSource = UpdateRowSource.None; 
  adapter.UpdateBatchSize = 2;
  adpater.Update(table);
}

VB.NET

Dim adapter As New TSheetsDataAdapter()

Using conn As New TSheetsConnection("OAuthClientId=myclientid;OAuthClientSecret=myclientsecret;InitiateOAuth=GETANDREFRESH;CallbackUrl=http://localhost:33333;")
  conn.Open()
  adapter.DeleteCommand = conn.CreateCommand()
  adapter.DeleteCommand.CommandText = "DELETE FROM Timesheets WHERE Id=@Id"
  adapter.DeleteCommand.Parameters.Add("@Id", "Id")
  adapter.DeleteCommand.UpdatedRowSource = UpdateRowSource.None 
  adapter.UpdateBatchSize = 2
  adpater.Update(table)
End Using