使用ADO方式得到记录集时，对应的sql语句不能使用模糊查询吗？

逍遥小子　发表于：2015-01-13 23:05:42 　

比如我想将ss表中字段【姓名】中包含“王”字的姓名更新为ll，使用下面的代码：

Private Sub Command5_Click()
Dim strsql As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
strsql = "select * from ss where 姓名 like '*王*'"
Debug.Print strsql
Set rst = getrstx(strsql)
DoCmd.SetWarnings False
rst.MoveFirst
Do Until rst.EOF
rst!姓名 = "ll"
rst.Update
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
MsgBox "OK"

End Sub

在运行时总是出错，错误提示的意思是说得到的记录集是空的，不知道什么情况？难道ADO方式返回记录集，对应的SQL语句不能使用模糊查询？
其中用于返回记录集的 getrstx函数代码如下：

Public Function getrstx(ByVal strsql As String) As ADODB.Recordset

On Error GoTo err_getrs
Dim rs As ADODB.Recordset
Dim cnn As New ADODB.Connection
Set rs = New ADODB.Recordset
Set cnn = CurrentProject.Connection
rs.Open strsql, cnn, adOpenKeyset, adLockOptimistic
Set getrstx = rs
exit_err_getrs:
Set rs = Nothing
Set cnn = Nothing
Exit Function
err_getrs:
MsgBox (Err.Description)
Resume exit_err_getrs
End Function

Top

先知发表于：2015-01-13 23:11:39

我看到你上面的代码“Dim strsql As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
strsql = "select * from ss where 姓名 like '*王*'"
Debug.Print strsql
Set rst = getrstx(strsql)
DoCmd.SetWarnings False
rst.MoveFirst” 一直到这里结束都没有用ado 打开记录集，当然rst没有被赋值就空集了。你缺少 rst.open strsql，，，（自己填充下参数）这句代码,

额，没看到你下面还有函数引用，如果不能用where 可以用 rst.filter 嘛

Top

cspa 发表于：2015-01-14 12:18:53

strsql = "select * from ss where 姓名 like '*王*'"
改为：

strsql = "select * from ss where 姓名 like '王*'"

Top

benhum 发表于：2015-01-15 16:27:05

把这一句：

strsql = "select * from ss where 姓名 like '*王*'"

改为：

strsql = "select * from ss where 姓名 like '%王%'"

试试吧。