突然发现：rst.open打开带like*的记录集是空的

tz-chf

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

如果先吧查询做好,再rst.open是不是就可以了呢?

tmtony

* 改成 % 即可

红尘如烟

rst.Open "SELECT 检验项目表.* FROM 检验项目表 WHERE (((检验项目表.单项判定) Like '*不*'));",
引号使用有问题，不能使用单引号，要在字符串中再引用字符串就要使用双引号，改成这样就可以了：
rst.Open "SELECT *  FROM 检验项目表 WHERE  单项判定  Like ""*不*"""