[求助]一个百思不得其解的问题

不材之木

Private Sub Combo8_Click()
Dim strValue As String

'On Error GoTo ErrorHandler

strSQL = "[部门] = '" & Combo11.Text & "' and [职务] = '" & Combo8.Text & "'" '显示record_name字段的记录等于当前节点的记录
Data2.Recordset.FindFirst strSQL
If Data2.Recordset.NoMatch = False Then
txtFields(15).Text = Data2.Recordset.Fields("岗位工资").Value
Else
MsgBox "没有找到符合" & strSQL & "的记录,请在岗位工资中进行绑定.", vbOKOnly, "系统提示"
End If
Exit Sub
ErrorHandler:
If Err.Number = -2147467259 Then '如果当前保存的记录所有字段为空
Data2.Refresh '刷新记录
End If
End Sub

就是这段查找的代码..就算是合乎条件也提示找不到!
表大家看看这代码有什么问题!
谢谢

海的无奈

SQL =SELECT (伱要查詢的信息) FROM 錶 WHERE 所在字段名 = '變量'

|°妳卟懂莪

是不是要引用ado对象才能用..
可以将我程序改进一下么?
谢谢

ωǒ吥婲鈊┌

不用ADO,普通DATE控件也能做到
Data1.RecordSource = "select * from 表的名字 where " & Trim(要查询的字段) &" like '*"&查询的内容&"*'"
Date1.Refresh

牛牛

以下是引用找不到服务器在2007-2-12 12:18:56的发言：
不用ADO,普通DATE控件也能做到
Data1.RecordSource = "select * from 表的名字 where " & Trim(要查询的字段) &" like '*"&查询的内容&"*'"
Date1.Refresh
這個是什麼控件呢?```

为你执著

<DIV class=quote><B>以下是引用<u>清澂居士</u>在2007-2-12 14:05:59的发言：</B><br><br><P>這個是什麼控件呢?```</P></DIV><p>
VB自带的数据访问控件