VBスレッド内のOracleからのデータセットの入力

Question

VBアプリケーション内からいくつかのPL/SQLプロシージャを実行しようとしています。

' Function getDataSet 
' builds a data set from given information 
' Parameters: 
' aCommand - the PL/SQL procedure to call 
' aParamCollection - an oraParameterCollection object containing all the parameters 
' aDataSet - a data set to hold the results 
' Returns: 
' number of rows retrieved 

Public Function getDataSet(_ 
    ByVal aCommand As String, _ 
    ByVal aParamCollection As oraParameterCollection, _ 
    ByRef aDataSet As DataSet _ 
    ) As Integer 

    Dim result As Integer = 0 

    ' define commands etc 
    Dim cmd As OracleCommand = New OracleCommand(aCommand, dbConn) 
    cmd.CommandType = CommandType.StoredProcedure 

    ' add parameters for the query 
    For i As Integer = 0 To aParamCollection.getParameterCount() - 1 
     cmd.Parameters.Add(New OracleParameter(_ 
           aParamCollection.getParameterByIndex(i).ParameterName, _ 
           aParamCollection.getParameterByIndex(i).ParameterType)).Value = _ 
           aParamCollection.getParameterByIndex(i).ParameterValue 
    Next 

    Dim param As OracleParameter = New OracleParameter("io_cursor", OracleDbType.RefCursor) 
    cmd.Parameters.Add(param).Direction = ParameterDirection.Output 
    CheckConnection() 
    cmd.ExecuteNonQuery() 

    Dim cur As OracleRefCursor 
    cur = param.Value 
    cmd.Dispose() 

    Dim theAdaptr As New OracleDataAdapter 

    If aDataSet IsNot Nothing Then 
     theAdaptr.Fill(aDataSet, cur) 
     result = aDataSet.Tables(0).Rows.Count 
    End If 

    Return result 

End Function 

：手順は

現在、各スレッドは順番に次のコードを呼び出す関数を呼び出すので、私は別のスレッドに（私はに新しいですその対象を）それらを置くつもり実行に時間がかかります

：
aCommandはは
aParamCollectionを実行するPL/SQLのPROCを=パラメータ、型を保持し、値カスタムクラスを=
aDataSet =得られたデータを保持するデータセット

しかし、私はアプリを実行したとき、私はこの時点でアクセス違反を取得：

theAdaptr.Fill(aDataSet, cur) 

私は別のスレッドが同時に記入する電話をかけることができないと仮定し、これは正しいでしょうか？私は現在ように、各スレッドをキックオフしています：アクセス違反が起こっを避けるために

Dim th_Mean As New Thread(AddressOf getMeanData) 
    Dim th_Stdev As New Thread(AddressOf getStdevData) 

    th_Mean.Name = "th_Mean" 
    th_Stdev.Name = "th_Stdev" 

    th_Mean.Start() 
    th_Stdev.Start()  

    Do While th_Mean.IsAlive Or th_Stdev.IsAlive 
    Loop 

は最終的に、私の質問は、私は何をやるべきですか？ BBZ

Answer 1

を読み取るための

おかげで、データベース内の並列処理を追加することを検討していますか？宣言型SQLでは並列性が（比較的）簡単です。手順は、あなたが見る必要があるかもしれクエリよりも、行ごとの処理の詳細である場合

select /*+ parallel(my_table) */ * from my_table; 

：あなたのストアドプロシージャによっては、それは、何かスロークエリを見つけ、ヒントを追加するのと同じくらい簡単かもしれ並列パイプライン関数に変換します。