SetParam 方法

定义指定查询表的参数。

expression.SetParam(Type, Value)

expression 必需。该表达式返回“应用于”列表中的一个对象。

Type XlParameterType 类型，必需。

XlParameterType 可为以下 XlParameterType 常量之一。

xlConstant 使用 Value 参数指定的值。

xlPrompt 显示提示用户输入值的对话框。Value 参数指定的是对话框中显示的文字。

xlRange 使用区域左上角单元格的值。Value 参数指定的是一个 Range 对象。

Value Variant 类型，必需。指定参数的值，如 Type 参数的说明所示。

示例

本示例更改第一张查询表的 SQL 语句。语句“(city=?)”表明此查询为参数查询，本示例将城市常量值设置为“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

本示例将 city 的值设为第二张工作表中 A2 单元格的值。

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