Question

ACCESS中访问表数据的方法

我计划在Combo2发生变化时,从表road中取出相应的dist值,但是下面语句第3行的写法应该是什么呢?求教,新手没财富,请指导,谢谢
Private Sub Combo2_AfterUpdate()
If Combo2.Value <> "" Then
dist1=SELECT road.dist FROM road WHERE city1=Combo2.Value
End If
End Sub

Answer 1

方法一：借助内置函数：
dist1=Dlookup("dist", "road", "city1='" & Me!Combo2 & "'")

方法二：采用DAO方法：
Private Sub Combo2_AfterUpdate()
Dim RcSet As Recordset ，strSQL As String
strSQL="SELECT road.dist FROM road WHERE city1= '" & Me!Combo2.Value & “‘”
Set RcSet = CurrentDb.OpenRecordset(strSQL)
If Combo2.Value <> "" Then
dist1=RcSet!dist
End If
End Sub

注意，双引号括起的单引号。

方法三：ADO方式，原理同二。

Answer 2

这个不清楚...可以问问专业人士