Question

在vb中如何进行模糊查询ACCESS中的数据

如图
怎样才能在数据库中查找到排水数邻近的数据并将对应的浓度显示出来
怎样才能在数据库中查找到排水量邻近的数据并将对应的浓度显示出来

如图

如图中知道温度，高度，利用查找功能找出浓度，但是高度不是数据库中的，有可能是数据库中暑的临近值
求代码及方法？

Answer 1

引用一个ADO的库，然后加入如下代码：

Private Sub Command1_Click()
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Conn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")

Conn.open "provider=microsoft.jet.oledb.4.0;data source=d:\db1.mdb"

Rs.open "select * from data1", Conn, 1, 3
Dim i As Long
Dim j As Long
Dim MinI As Long
Dim MinJ As Long
Dim Min As Double
MinI = 1
MinJ = 1

Dim n As Double
n = Val(InputBox("输入一个数"))
Min = Abs(Rs(0) - n)
i = 1
While Not Rs.EOF
For j = 1 To Rs.Fields.Count
If Abs(Rs(j - 1) - n) < Min Then
Min = Abs(Rs(j - 1) - n)
MinJ = j
MinI = i
End If
Next j
i = i + 1
Rs.movenext
Wend
MsgBox "最接近的值位于" & MinI & "行" & MinJ & "列"
End Sub

Answer 2

select * from 表 where 字段名＞a and 字段名＜b

Answer 3

[临近]的标准?