本例使用recordset过滤filter属性,在打开recordset时,不知道adcmdtable与adcmdtext参数的区别.
见下面的代码,如果把 rs.open....语句的最后一个参数adcmdtext改为adcmdtable,则代码不能运行,请指教:这两个参数有什么区别:
Private Sub rs_filter_Click()
Dim rs As ADODB.Recordset
Dim strFilter As String
Set rs = New ADODB.Recordset
'建立联接,也可以用:rs.activeconnection=currentproject.connection
rs.ActiveConnection = "provider = microsoft.jet.oledb.4.0;" & _
"data source = C:\WORKHARD\northwind.mdb"
'总是就是这句语句,请指教:如果最后一个参数改adcndtable .则不能运行
rs.Open "select * from 产品", , adOpenForwardOnly, adLockReadOnly, adCmdText
'设置 过滤
strFilter = "产品名称 = '苹果汁'"
'应用 过滤
rs.Filter = strFilter
'在立即窗口显示结果
Debug.Print rs.GetString
'删除过滤
rs.Filter = adFilterNone
'关闭recordset
rs.Close
End Sub
环境:winxp+office2K
[此贴子已经被作者于2003-7-25 0:53:43编辑过]
|