SetParam Method

Microsoft Excel Visual Basic

expression.SetParam(Type, Value)

expression    Required. An expression that returns one of the objects in the Applies To list.

Type   Required XlParameterType.

XlParameterType can be one of these XlParameterType constants.
xlConstant. Uses the value specified by the Value argument.
xlPrompt. Displays a dialog box that prompts the user for the value. The Value argument specifies the text shown in the dialog box.
xlRange. Uses the value of the cell in the upper-left corner of the range. The Value argument specifies a Range object

Value   Required Variant. The value of the specified parameter, as shown in the description of the Type argument.

Example

This example changes the SQL statement for query table one. The clause “(city=?)” indicates that the query is a parameter query, and the example sets the value of city to the constant “Oakland.”

Set qt = Sheets("sheet1").QueryTables(1)
qt.Sql = "SELECT * FROM authors  WHERE (city=?)"
Set param1 = qt.Parameters.Add("City Parameter", _
    xlParamTypeVarChar)
param1.SetParam xlConstant, "Oakland"
qt.Refresh
		

This example sets the value of city to the value of cell A2 on worksheet two.

Set qt = Sheets("sheet1").QueryTables(1)
qt.Sql = "SELECT * FROM authors  WHERE (city=?)"
Set param1 = qt.Parameters.Add("City Parameter", _
    xlParamTypeVarChar)
param1.SetParam xlRange, Range("sheet2!a1")
qt.Refresh