1,216
社区成员
发帖
与我相关
我的任务
分享希望给出完整的程序以及解释
我在access中建了一个数据库，里面只有一张表，表中也只有3个字段(即压力，温度，密度)；表名为water,access 数据库名字也为water,数据库放在程序目录下，是按照压力有小到大存放的
压力P 温度T 密度r
10 15 3.2
20 25 3.9
30 14 4.1
由对话框输入压力P的值，然后在数据库中找到第一个大于压力P得值，以及其对应的温度T，和密度T，(并将温度值给Tp1,密度值给rp1)
然后需要访问压力p前面压力下对应的温度和密度，并将温度值给Tp2,密度值给rp2
最后利用这两个压力下对应的温度和密度进行计算！！
比如：输入P=15,首先我可以找到P=20对应的温度和密度，分别辐给变量Tp1和rp1
然后找到P=20前面的压力情况，即p=10的温度和密度，分别辐给变量Tp2和rp2
请懂得朋友帮忙在上面程序基础上写出程序
应该如何谢程序？希望能给出完整程序
Private Sub Command1_Click()
End Sub
麻烦大家
压力P 温度T 密度r
10 15 3.2
20 25 3.9
30 14 4.1
由对话框输入压力P的值，然后在数据库中找到第一个大于压力P得值，以及其对应的温度T，和密度T，(并将温度值给Tp1,密度值给rp1)
然后需要访问压力p前面压力下对应的温度和密度，并将温度值给Tp2,密度值给rp2
最后利用这两个压力下对应的温度和密度进行计算！！
比如：输入P=15,首先我可以找到P=20对应的温度和密度，分别辐给变量Tp1和rp1
然后找到P=20前面的压力情况，即p=10的温度和密度，分别辐给变量Tp2和rp2
请懂得朋友帮忙在上面程序基础上写出程序
应该如何谢程序？希望能给出完整程序
Private Sub Command1_Click()
End Sub
麻烦大家
...全文
请发表友善的回复…
发表回复
northwolves 2005-12-04
- 打赏
- 举报
Private Sub Command1_Click()
dim conn as New ADODB.Connection
Dim rst as New ADODB.Recordset
conn.Open "provider=microsoft.jet.oledb.4.0;" _
& "data source=" & App.Path & "\water.mdb;" & "persist security info=false"
rst.open "select top 1 压力P, 温度T, 密度r from water where 压力p>=" & p & " order by 压力P desc ",conn, adOpenKeyset, adLockPessimistic
tp1=rst(1)
rp1=rst(2)
rst.open "select top 1 压力P, 温度T, 密度r from water where 压力p<=" & p & " order by 压力P asc ",conn, adOpenKeyset, adLockPessimistic
tp2=rst(1)
rp2=rst(2)
End Sub
dim conn as New ADODB.Connection
Dim rst as New ADODB.Recordset
conn.Open "provider=microsoft.jet.oledb.4.0;" _
& "data source=" & App.Path & "\water.mdb;" & "persist security info=false"
rst.open "select top 1 压力P, 温度T, 密度r from water where 压力p>=" & p & " order by 压力P desc ",conn, adOpenKeyset, adLockPessimistic
tp1=rst(1)
rp1=rst(2)
rst.open "select top 1 压力P, 温度T, 密度r from water where 压力p<=" & p & " order by 压力P asc ",conn, adOpenKeyset, adLockPessimistic
tp2=rst(1)
rp2=rst(2)
End Sub
