![ContractedBlock.gif](https://www.cnblogs.com/Images/OutliningIndicators/ContractedBlock.gif)
![ExpandedBlockStart.gif](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
Global Const GC_str_DBOPEN As String = "ODBC;DSN=TestHigh;UID=SKYMAN;PWD=help;DATABASE=SkyHigh"
'WeeklyのFrom dateとTo Dateをパラメータとしてストアドプロシージャpr_rpt_itm_salesを実行する。
'データをテーブルにセットする。
Function CallSQLProcedure(dateFrom As String, dateTo As String) As Boolean
Dim skyHighWorkspace As Workspace
Dim skyHighDB As Database
Dim conn As Connection
On Error GoTo errorline
' ODBCDirect Workspace オブジェクトを作成します。
Set skyHighWorkspace = CreateWorkspace("skyHighWorkspace", _
"SKYMAN", "help", dbUseODBC)
Set conn = skyHighWorkspace.OpenConnection("Connection1", , , _
GC_str_DBOPEN)
'ストアドプロシージャのパラメータを設定する
conn.CreateQueryDef "pr_rpt_itm_sales", "exec dbo.pr_rpt_itm_sales @fromdate ='" & dateFrom & "', @todate ='" & dateTo & "'"
'ストアドプロシージャを実行する
conn.QueryDefs("pr_rpt_itm_sales").Execute
conn.Close
CallSQLProcedure = True
Exit Function
errorline:
CallSQLProcedure = False
End Function