ストアドプロシージャの呼び出し
public bool CallSP(string queryString, object paramNames, object paramValues)
CallSP は、ストアドプロシージャを呼び出します。成功した場合はtrue を返し、そうでない場合はfalse を返します。各パラメータの名前と値のペアを2つの配列としてCallSP に渡すことができます。これは、多くのパラメータとXML 集計の操作で役立ちます。この場合、CallSP のクエリ文字列引数は、パラメータの名前でなければなりません。以下に例を示します。
CallSP("DownloadFile",nameArray,valueArray)次の例は、ストアドプロシージャ呼び出しに入力を渡し、任意の出力パラメータを反復処理する方法を示しています。
Dim nameArray
nameArray = Array("Permission", "Type")
Dim valueArray
valueArray = Array("Jon Doe", "FILE")
Dim module As New ExcelComModule
module.SetProviderName ("ADLS")
module.SetConnectionString ("Schema=ADLSGen2;Account=MyStorageAccount;FileSystem=MyBlobContainer;AccessKey=myAccessKey;")
Query = "INSERT INTO Resources (Permission, Type) VALUES (@Permission, @Type)"
If module.Insert(Query, nameArray, valueArray) Then
MsgBox "The insertion was successful."
Else
MsgBox "The insertion failed."
End If
module.Close
Dim module As New ExcelComModule
module.SetProviderName ("ADLS")
module.SetConnectionString ("Schema=ADLSGen2;Account=MyStorageAccount;FileSystem=MyBlobContainer;AccessKey=myAccessKey;")
Dim nameArray
nameArray = Array("Path")
Dim valueArray
valueArray = Array("test/onePiece.txt")
StoredProc = "DownloadFile"
Cursor = Application.Cursor
Application.Cursor = xlWait
If module.CallSP(StoredProc, nameArray, valueArray) Then
MsgBox "Execution was successful."
Dim ColumnCount As Integer
ColumnCount = module.GetColumnCount
For Count = 0 To ColumnCount - 1
Application.ActiveSheet.Cells(1, Count + 1).Value = module.GetColumnName(Count)
Next
Dim RowIndex As Integer
RowIndex = 10
While (Not module.EOF)
For columnIndex = 0 To ColumnCount - 1
If Conversion.CInt(module.GetColumnType(columnIndex)) = Conversion.CInt(vbDate) And Not IsNull(module.GetValue(columnIndex)) Then
Application.ActiveSheet.Cells(RowIndex, columnIndex + 1).Value = Conversion.CDate(module.GetValue(columnIndex))
Else
Application.ActiveSheet.Cells(RowIndex, columnIndex + 1).Value = module.GetValue(columnIndex)
End If
Next
module.MoveNext
RowIndex = RowIndex + 1
Wend
Else
MsgBox "Execution failed."
End If
Application.Cursor = Cursor
module.Close