大家帮个忙呀瞧下这样行不行

Question

我的COMBO1.TEXT=姓名 text1输入的'张强'
form1.Adodc1.RecordSource = "SELECT * FROM CTS_读者信息 WHERE '" & Trim(form11.Combo1.Text) & "'='" & Trim(form1.Text1.Text) & "'"
If form1.Adodc1.Recordset.EOF = True Then
MsgBox ("设有此人.......")
form1.text1.SetFocus
Else
form1.Adodc1.Refresh
End If
当我执行下面程序后,我的'DATAGRID1'控件里不显示任何记录了,但我没执行前'DAAGRID1'里面显示了多个记录包括读者姓名为张强的记录.执行后也不提示"没有此人.........."这是为什么呀

Answer 1

form1.Adodc1.RecordSource = "SELECT * FROM CTS_读者信息 WHERE '" & Trim(form11.Combo1.Text) & "'='" & Trim(form1.Text1.Text) & "'
这个命令后面应该refresh一下
不然
If form1.Adodc1.Recordset.EOF = True Then
MsgBox ("设有此人.......")
这个指令根本就没用了
应该这样吧？？
form1.Adodc1.RecordSource = "SELECT * FROM CTS_读者信息 WHERE '" & Trim(form11.Combo1.Text) & "'='" & Trim(form1.Text1.Text) & "'"
form1.Adodc1.Refresh
If form1.Adodc1.Recordset.EOF = True Then
MsgBox ("设有此人.......")
form1.text1.SetFocus
End If

Answer 2

一看就是你的SQL语句写的有问题！！
如下！！将
"SELECT * FROM CTS_读者信息 WHERE '" & Trim(form11.Combo1.Text) & "'='" & Trim(form1.Text1.Text) & "'"改为："SELECT * FROM CTS_读者信息 WHERE " & Trim(form11.Combo1.Text) & "='" & Trim(form1.Text1.Text) & "'"

Answer 3

你那样写，除非你TEXT里数据的内容跟COMBO1的内容相同，否则将永远查不到！！