标题: 突然发现：rst.open打开带like*的记录集是空的 [打印本页] 作者: tz-chf 时间: 2008-5-7 11:38 标题: 突然发现：rst.open打开带like*的记录集是空的 Private Sub Command2_Click()
Dim rst As New ADODB.Recordset
'记录集是空的
rst.Open "SELECT 检验项目表.* FROM 检验项目表 WHERE (((检验项目表.单项判定) Like '*不*'));", CurrentProject.Connection
If rst.EOF Then
Me.Text0 = "不行"
Else
Me.Text0 = "行"
End If
End Sub
Private Sub Command3_Click()
Dim rst As New ADODB.Recordset
'不用*是可以的
rst.Open "SELECT 检验项目表.* FROM 检验项目表 WHERE (((检验项目表.单项判定)='不合格'));", CurrentProject.Connection
If rst.EOF Then
Me.Text0 = "不行"
Else
Me.Text0 = "行"
End If
End Sub作者: suve 时间: 2008-5-7 11:44 标题: 是通常都这样吗? 如果先吧查询做好,再rst.open是不是就可以了呢?作者: tmtony 时间: 2008-5-7 12:23
* 改成 % 即可作者: 红尘如烟 时间: 2008-5-7 14:21
rst.Open "SELECT 检验项目表.* FROM 检验项目表 WHERE (((检验项目表.单项判定) Like '*不*'));",
引号使用有问题，不能使用单引号，要在字符串中再引用字符串就要使用双引号，改成这样就可以了：
rst.Open "SELECT * FROM 检验项目表 WHERE 单项判定 Like ""*不*"""