树控件的数据来源经过筛选后不能用吗?

好学

树控件的数据来源经过筛选后不能用吗?为何总是出错呢?

fan0217

不能使用带参数的查询。

Dim Rec As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim Item As Integer
Dim i As Integer
Dim nodindex As Node
Dim strSQL As String

    strSQL = "SELECT * FROM 资料录入 "
    strSQL = strSQL & "Where 工厂名称='" & Me.工厂名称 & "';"

    Set conn = CurrentProject.Connection
    '设置第二级"父"
    Rec.Open strSQL, conn, adOpenKeyset, adLockOptimistic

        ......

[此贴子已经被作者于2006-8-1 18:58:08编辑过]

fan0217

Open的最后个参数，指定解释命令参数的方法CommandTypeEnum，要注意使用。

好学

fan0217按照您的方法还是不成啊!请指教!

fan0217

少了一句代码：Set conn = CurrentProject.Connection，添加至open之前。

[此贴子已经被作者于2006-8-1 18:59:24编辑过]

好学

还是出错!说关键字不是唯一!

好学

关键字不是唯一,我试过几个办法都不得啊?

好学

为何说语法错误呢?前一层还可以的!奇怪?[em06][em06][em06]

kevindeng

有个地方写错.

....

    astrSQL = "SELECT * FROM 资料录入 "
    astrSQL = astrSQL & "Where 工厂名称='" & Me.工厂名称 & "';"
...

kevindeng