![]() |
#2
风吹过b2012-03-20 20:20
|
我的语句为sql = "select * from guanche where ch='" & Combo1.Text & "' ",但是老显示第二条记录,我是想显示第一条记录。
字段 ch jdrq zg
888 2011-12-31 100
888 2009-12-18 200
在access中有多条数据,具体如下图:
只有本站会员才能查看附件,请 登录
我想查找同一个车号的最后一次检定日期和它对应的相关数据。即:车号假如是10646,查询ch字段中10646的数据,因为10646共有两条数据,jdrq字段中两次检定日期分别为2011-9-23和2009-9-23,我想要显示的是jdrq字段中2011-9-23这行数据也就是最后一次检定日期,但是我的代码确总是查询出的是idrq字段中2009-9-23的这行数据。

Dim sql As String
Dim i, j, m, b, c As Integer
Dim a1, b1, c1, d1, e1, N, m1, X, row, col As Integer
Dim lngCount As Long
Dim iRows As Long
sql = "select * from guanche where ch='" & Combo1.Text & "' "
rs.Open sql, conn.ConnectionString, adOpenStatic, adLockOptimistic
If rs.EOF = True Then
MsgBox "没有该车号!", vbOKOnly + vbExclamation, "警告"
rs.Close
Combo1.SetFocus
Exit Sub
Else
Text15.Text = rs("csdgs")
Text19.Text = rs("zsbh")
Text18.Text = rs("ygkzg")
Text20.Text = rs("jldwz")
Text22.Text = rs("jdrq")
Text23.Text = rs("yxrq")
Text24.Text = rs("z1")
Text25.Text = rs("z2")
Text26.Text = rs("z3")
Text27.Text = rs("z4")
Text28.Text = rs("z5")
Dim i, j, m, b, c As Integer
Dim a1, b1, c1, d1, e1, N, m1, X, row, col As Integer
Dim lngCount As Long
Dim iRows As Long
sql = "select * from guanche where ch='" & Combo1.Text & "' "
rs.Open sql, conn.ConnectionString, adOpenStatic, adLockOptimistic
If rs.EOF = True Then
MsgBox "没有该车号!", vbOKOnly + vbExclamation, "警告"
rs.Close
Combo1.SetFocus
Exit Sub
Else
Text15.Text = rs("csdgs")
Text19.Text = rs("zsbh")
Text18.Text = rs("ygkzg")
Text20.Text = rs("jldwz")
Text22.Text = rs("jdrq")
Text23.Text = rs("yxrq")
Text24.Text = rs("z1")
Text25.Text = rs("z2")
Text26.Text = rs("z3")
Text27.Text = rs("z4")
Text28.Text = rs("z5")
[ 本帖最后由 lzxagy 于 2012-3-21 09:35 编辑 ]