| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5857 人关注过本帖, 1 人收藏
标题:已解决:在EXCEL中用使用ADO直接连接ACCESS数据库(附源码)
只看楼主 加入收藏
sami_szl
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-6-28
收藏(1)
 问题点数:0 回复次数:4 
已解决:在EXCEL中用使用ADO直接连接ACCESS数据库(附源码)
本人有一个饱和水蒸汽表数据库,用ACCESS做的。在EXCEL中想用vba做一个函数,当输入温度,即可得到相应温度下饱和水蒸气的其它参数,如压力,焓,潜热等。如果EXCEL中的温度在ACCESS中温度之间,可用试差计算得到其它参数。请各位帮忙,在此谢谢大家。。。

[[it] 本帖最后由 sami_szl 于 2008-7-3 23:10 编辑 [/it]]

[[it] 本帖最后由 sami_szl 于 2008-7-3 23:15 编辑 [/it]]

[[it] 本帖最后由 sami_szl 于 2008-7-5 15:39 编辑 [/it]]
搜索更多相关主题的帖子: EXCEL ACCESS 数据库 温度 
2008-07-03 23:06
sami_szl
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-6-28
收藏
得分:0 
本人求助的原因:由于我要做大量的计算,很多都是对饱和水蒸汽表的数据查询,当然是人工的,每次在EXCEL中调整一下温度,都得重新查饱和水蒸汽表,并输入如压力,焓,潜热等值,好麻烦。我的想法是,做几个函数,如:GetDateP(T),GetDateH(T),GetDateR(T),即可得到相应的值。希望各位好心人帮忙。。。谢谢。。。
2008-07-03 23:23
sami_szl
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-6-28
收藏
得分:0 
自己已经连接到数据库了!给大家分享一下:
但首先要在工具中引用ADO两个MADO2.7 LIBRARY和MADOR2.8 LIBRARY
Public Sub ADOTest1()
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strCnn As String
    Dim i As Long
   
    strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & ThisWorkbook.Path & "\evapor.mdb;"
    cnn.Open strCnn
   
    rs.Open "Select * From Evapor", cnn, adOpenForwardOnly, adLockReadOnly
    i = 1
    Do Until rs.EOF
        Cells(i, 1).Value = rs.Fields("ET").Value
        Cells(i, 2).Value = rs.Fields("EP").Value
        Cells(i, 3).Value = rs.Fields("Ev").Value
        Cells(i, 4).Value = rs.Fields("Eh").Value
        Cells(i, 5).Value = rs.Fields("Er").Value
        i = i + 1
        rs.MoveNext
    Loop
   
    rs.Close
    cnn.Close
End Sub

[[it] 本帖最后由 sami_szl 于 2008-7-5 15:42 编辑 [/it]]

[[it] 本帖最后由 sami_szl 于 2008-7-5 18:31 编辑 [/it]]
2008-07-05 15:34
zhuangzinh
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2011-1-23
收藏
得分:0 
回复 3楼 sami_szl
那两个数据文件从哪里找??
2011-01-23 14:33
cuixianggui
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2011-4-20
收藏
得分:0 
服务器的呢
2011-04-20 00:10
快速回复:已解决:在EXCEL中用使用ADO直接连接ACCESS数据库(附源码)
数据加载中...
 
   



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

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