全部
Ada助手

希望给出完整的程序以及解释

shilin_huaji 2005-12-04 04:57:11

我在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

麻烦大家

...全文

给本帖投票

用AI写文章

一个困扰我很久的问题，希望大家给我答案关于不同的表字段相减的问题>>

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

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

VC++深入详解教程，供大家一起参考学习。

计算机程序是一系列指令的集合，用于告诉计算机执行特定的任务或操作。它由计算机语言编写而成，可以包括数学运算、逻辑判断、数据处理、控制流程等多种操作。计算机程序可以根据用户的需求实现各种功能，比如计算、娱乐、通信、图形处理等。计算机程序需要被编译或解释后才能在计算机上运行。