如何在vb中访问access数据库

[shilin_huaji]

是这样的：我在access中建了一个数据库，里面只有一张表，表中也只有3个字段(即压力，温度，密度)；表名为water,access 数据库名字也为water
压力 温度 密度
10 15 3.2
20 25 3.9
30 14 4.1

现在希望在应用程序中能够访问它，比如给出压力20，我想在想知道在这个压力下温度是多少

请问如何访问数据库，如何访问那个压力而得到温度值


先谢了，我是新手！！

[射天狼]

我的网站上有源码，你可以看看。

http://www.j2soft.cn/

VB资料->查询“电话本系统”；

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
http://j2soft.008.net/

[bbhere]

cuizm(射天狼)强
什么都能在他网站上找到

赫赫

[shilin_huaji]

谢谢各位了

[zou19820704]

Public Cn As ADODB.Connection
Public Rs As ADODB.Recordset


ConStr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Water.mdb;Persist Security Info=False"
Set Cn = New ADODB.Connection
Cn.Open ConStr

Set Rs = New ADODB.Recordset
Rs.Open "SELECT * From Water Where 压力 = '" & “20” & "'", Cn, adOpenDynamic, adLockOptimistic

If Rs.EOF = True And Rs.BOF = True Then
' MsgBox "没有此压力数据", 49
Exit Function
End If
FormTrade.Text1(1).Text = Rs.Fields(1).Value
FormTrade.Text1(2).Text = Rs.Fields(2).Value
FormTrade.Text1(3).Text = Rs.Fields(3).Value
FormTrade.Text1(4).Text = Rs.Fields(4).Value

[bbhere]

Public Cn As New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Water.mdb;Persist Security Info=False"

Private Sub cmdSearch()
Public Rs As New ADODB.Recordset
dim yl as string
yl= InputBox("输入压力", "提示")

rs.Open "SELECT * From Water where 压力="& yl &"", Cn, adOpenDynamic, adLockOptimistic
If rs.EOF = True And rs.BOF = True Then
msgbox "没有此数据"
else
txtWd.Text = rs.Fields("温度")
End If

End Sub