UC知道ACCESS查表问题 比较数值大小问题
来源：百度知道 编辑：UC知道 时间：2024/06/06 23:37:04
在表B中查小于A的值 并且输出其查表后显示的所有值中最大的那个数值C
表B A的值为3.1
1
2
3
4
5
比较A值与表里面值大小 最后输出的结果为3
谢谢各位了
表B A的值为3.1
1
2
3
4
5
比较A值与表里面值大小 最后输出的结果为3
谢谢各位了
dim sql as string
sql="select * from b order by [field] desc" '将字段列的数字按照倒序排列就是
5
4
3
2
1
附完整源码
Private Sub Command1_Click()
Dim connstr As String
connstr = "provider=microsoft.jet.oledb.4.0;data source='" & App.Path & "\db.mdb" & "'"
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open (connstr)
Dim sql As String
sql = "select * from B order by b_1 desc"
rs.Open sql, conn, 1, 1
Dim source As Single
source = CSng(Text1.Text) '输入值
Dim r As Boolean
Dim result As Integer '输出值
r = False
Do While Not rs.EOF
If r Then
Exit Do
Else
If rs("b_1") < source Then
r = True
result = rs("b_1")
End If
End If
rs.MoveNext
Loop
Text2.Text = CStr(result) '