select 语法问题

lxg315

用下面的语句筛选出一条记录，显示在子窗体里面：
Dim conn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim sql As String
    Dim i As String
   
    i = GetDbSetting("参数值", "")    '读取值
    sql = "select * from 物料资讯表 where 物料编号 = '" & i & "'"
    Rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    '让子窗体应用窗体查询
    Me.物料子窗体.Form.Filter = sql
    Me.物料子窗体.Form.FilterOn = True
    Rs.Update
    Rs.Close: Set Rs = Nothing

假如I存储的是个文本值ABC,运行时报以下的错:
运行错误 3075
语法错误 在查询表达式'select * from where 物料编号 = 'ABC''中
请问一下，文本型的要表示成 '" & 变量 & "'，上面程序中的物料编号=这里已经是这样的了啊，所以不知道错在哪里？

请帮忙看看，谢谢

marco

过滤条件这样写即可，前面的一大堆没什么意义：
Me.物料子窗体.Form.Filter ="物料编号 = '" & i & "'"

lxg315

marco 发表于 2019-10-12 17:41
过滤条件这样写即可，前面的一大堆没什么意义：
Me.物料子窗体.Form.Filter ="物料编号 = '" & i & "'"

好的，谢谢