| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1268 人关注过本帖, 1 人收藏
标题:求助:用VB与access数据库编写的求混合气体密度,绝热指数等的程序
只看楼主 加入收藏
yuyongzeng
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-5-12
结帖率:0
收藏(1)
已结贴  问题点数:20 回复次数:4 
求助:用VB与access数据库编写的求混合气体密度,绝热指数等的程序
求助各位高手,本人初学,现利用access建立了一些气体的密度,分子量及绝热指数等的数据库,在计算混合气体的分子量、密度等时不知道怎么访问一列数据并计算,求助高人写下代码,感激不尽!
搜索更多相关主题的帖子: 数据库 绝热 混合气体 密度 access 
2010-08-03 14:22
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:20 
你的数据库名和表名是什么?
你可以查书,用select语句

偶是菜鸟鸟偶惧WHO?!!!!
2010-08-03 17:13
yuyongzeng
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-5-12
收藏
得分:0 
这是我初编连接数据库想求取混合气体绝热指数表的程序,数据库名是“介质绝热指数表”,表名是“介质物性参数表”。
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Private Sub Command3_Click()
 Dim strsql As String
 Dim db As Database
 Set rs = Nothing
 Set cnn = Nothing
 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\往复式压缩机编程\往复机热动力计算编程\介质物性计算\介质绝热指数表.mdb;Persist Security Info=False"
 cnn.Open
 strsql = "select 绝热指数from介质物性参数表"
 rs.Open strsql, cnn, adOpenStatic, adLockOptimistic‘此句运行时说至少一个参数没有被指定值
 rs.MoveFirst
   Do While Not rs.EOF
   Print rs("绝热指数")
   rs.MoveNext
   Loop
End Sub
烦请给看一下,并帮忙完成求取混合气体绝热指数的代码。谢谢了!
2010-08-04 09:07
中国火炬
Rank: 1
等 级:新手上路
威 望:1
帖 子:13
专家分:0
注 册:2010-8-8
收藏
得分:0 
set db=opendatabase (App.Path & "\介质绝热指数表.mdb")
set rs=db.openRecordset("select 绝热指数 from 介质物性参数表")
If rs.RecordCount > 0 Then
    rs.MoveLast
    rs.MoveFirst
        For i = 1 To rs.RecordCount
            Print rs("绝热指数")
            rs.MoveNext
        Next i
End If
    rs.Close
    Set rs = Nothing
    db.Close
2010-08-14 18:14
lucky563591
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:小飞侠
威 望:4
帖 子:765
专家分:2103
注 册:2009-11-18
收藏
得分:0 
强人很多啊!
2010-08-15 08:39
快速回复:求助:用VB与access数据库编写的求混合气体密度,绝热指数等的程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036532 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved