Question

vb查询，输入查询条件后，能在MSFlexgrid控件中显示查询结果。请帮我检查一下错误，谢谢。在线等

Private Sub Command2_Click()
Dim txtSQL As String
Dim mrcc As New Recordset
If Trim(ComboY.Text = "") Then
MsgBox "请选择查找条件!", vbOKOnly + vbExclamation, "警告"
ComboY.SetFocus
End If

txtSQL = "select * from assignment where 截至= '" & ComboY.Text & "'"
ADOcn.Execute txtSQL
mrcc.ActiveConnection = ADOcn
txtSQL = "select * from assignment "
mrcc.Open txtSQL

MSFlexGrid1.Clear
MSFlexGrid1.Rows = 0
MSFlexGrid1.Cols = 13
txtSQL = "申请人" + vbTab + "项目" + vbTab + "原因" + vbTab + "办法" + vbTab + "截至" + vbTab + "监护人" + vbTab + "状态"
MSFlexGrid1.AddItem txtSQL
Do While Not mrcc.EOF
txtSQL = Trim(mrcc("申请人")) + vbTab + Trim(mrcc("项目")) + vbTab + Trim(mrcc("原因")) + vbTab + Trim(mrcc("办法")) + vbTab + Trim(mrcc("截至")) + vbTab + Trim(mrcc("监护人")) + vbTab + Trim(mrcc("状态"))
MSFlexGrid1.AddItem txtSQL
mrcc.MoveNext
Loop
MSFlexGrid1.FixedRows = 1
End Sub

Answer 1

显示出来,在哪里显示啊?
控件:
Private Sub Text1_Change()
Adodc1.RecordSource = "select * from 表 where 规格 like '" & Text1 & "' & '%'"
Adodc1.Refresh
text2=adodc1.recordset.Fields("字段名1") & adodc1.recordset.Fields("字段名2") '要显示多少写多少的字段名,
End Sub

不需要按回车.模糊查询
请参考

Answer 2

错误提示了怎么呢