Объект Parameter в рабочем пространстве ODBCDirect аналогичен объекту Parameter в рабочем пространстве Microsoft Jet, но имеет несколько отличий. В рабочем пространстве ODBCDirect можно изменять значение его свойства Type, которое в рабочем пространстве Microsoft Jet предназначено -только для чтения. Свойство Direction позволяет указывать, является ли параметр входным, выходным, тем и другим или возвращаемым из процедуры значением. В следующем примере указываются параметры запроса в рабочем пространстве ODBCDirect:

Function RunStoredProc() As Boolean
═════Dim wrk As Workspace
═════Dim qdf As QueryDef, rst As Recordset, fld As Field
═════Dim cnn As Connection, strConnect As String, strSQL As String

═════Set wrk = CreateWorkspace("ODBCDirect", "sa", "", dbUseODBC)
═════strConnect = "ODBC; DSN=Pubs;UID=sa;PWD=;DATABASE=Pubs"
═════Set cnn = wrk.OpenConnection("", dbDriverNoPrompt, False, strConnect)

═════strSQL = "CREATE PROCEDURE tamram @lolimit money AS " _
══════════& "SELECT pub_id, type, title_id, price "
══════════& "FROM titles WHERE price >@lolimit"
═════cnn. Execute strSQL

═════Set qdt = cnn.CreateQueryDef("RunStoredProc")
═════qdf.SQL = "{ call tamram (?) }"
═════qdf.Parameters(0).Value = CCur(10)
═════Set rst = qdt.OpenRecordset()
═════Do Until rst. EOF
══════════For Each fld In rst. Fields
═══════════════Debug. Print fld. Name, fid.Value
══════════Next fld
══════════rst. MoveNext
═════Loop
End Function

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997