vb编程搜索access数据为什么显示空白，程序调试没有发生错误

[wangjt1981]

vb编程搜索access数据为什么显示空白，程序调试没有发生错误
程序内容如下：

Private Sub Command1_Click()
Dim strSql As String
If Text1.Text <> "" Then
Adodc1.Recordset.Close
If Val(Text1.Text) > 0 Then
strSql = "select * from table1 where num=" & Trim(Text1.Text)
Else
strSql = "select * from table1 where name='" & Trim(Text1.Text) & "'"
End If
Adodc1.CommandType = adCmdText
Adodc1.Recordset.Open strSql
Set DataGrid1.DataSource = Adodc1
Else
Set DataGrid1.DataSource = Nothing
End If
End Sub

问题出在哪里？为什么搜索后插件里显示的是空白的

[of123]

Private Sub Command1_Click()

    Dim strSql As String
    If Text1.Text <> "" Then
        If Val(Text1.Text) > 0 Then
            strSql = "select * from table1 where num=" & Trim(Text1.Text)
        Else
            strSql = "select * from table1 where [name]='" & Trim(Text1.Text) & "'"
        End If
        
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = strSql
        Set DataGrid1.DataSource = Adodc1
        Adodc1.Refresh
    Else
        Set DataGrid1.DataSource = Nothing
    End If

End Sub

Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[你的数据库文件路径和文件名];Persist Security Info=False"
End Sub

[Tiger_Zhao]

这是体育老师教的编程？
不要直接操作 Adodc1.Recordset，会影响正常的功能！！！

[舉杯邀明月]

一个问题发N多个帖子，这种人是不是有点心理变态？ 这个版块根本就没什么人气，难道还担心帖子“被淹没”吗！！！

[赵4老师]

愤青从来不缺存在感！