Question

Dim rs_findreader As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String

If Check1.Value = vbChecked Then
sql = "读者编号='" & Trim(Text1.Text & "") & "'"
End If这段vb编码什么意思，详细点，谢谢了

Answer 1

如果复选框1被选中，sql的值是“读者编号=”连接去掉首尾空格的文本框1的内容连接空串，即sql = "读者编号='"&Trim(Text1.Text)&" "
vbchecked=1
check1.value=vbChecked
check1.value有三个值0表示Unchecked,即复选框处于未被选中状态
1表示checked即复选框处于被选中状态
2表示Unavailable即复选框处于禁止状态，不可使用，复选框将以灰色显示
trim()函数：去掉字符串首尾空格，

Answer 2

常量vbChecked=1，如果复选框已经勾选，那么check1.value=vbChecked
Trim()去掉文本两边的空格
&字符串连接符

sql = "读者编号='" & Trim(Text1.Text) & "'" 即可