stemp = "select * from 空开基本表 where 空开编码=sel"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
这个代码为什么不可以用
stemp = "select * from 空开基本表"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
而这个又可以
我是新手 求帮助 解惑

大家帮忙下
找了很久 找不到答案
新手 想用ACCESS 做个数据库访问
查询没问题的 SEL 输入就能出来

where 后面可能格式错误
stemp = "select * from 空开基本表 where 空开编码='sel'"

如果用''那SEL 就变成一个字符串了  我这里SEL 想用的是一个  变量  难道在这里不行？

请高手赐教

Private Sub List2_Click()
Dim stemp As String
Dim i As Integer
Dim sel As String
空开编码.Value = sel
sel = List2.Value
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select *  from 空开基本表 where 空开编码='sel'"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
厂家.Value = rs("厂家")
型号.Value = rs("型号")
特性.Value = rs("特性")
类别.Value = rs("类别")
额定电压.Value = rs("额定电压")
额定电流.Value = rs("额定电流")
备注.Value = rs("备注")
图片.Value = rs("图片")
End Sub
这个是读取数据表里的数据到LIST中 然后 选择LIST里面的数据 显示这个表里的内容

重新改了一下
Private Sub List2_Click()
Dim stemp As String
Dim i As Integer
Dim sel As String
sel = List2.Value
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select *  from 空开基本表"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
For i = 1 To rs.RecordCount
If rs("空开编码") = sel Then
空开编码.Value = rs("空开编码")
厂家.Value = rs("厂家")
型号.Value = rs("型号")
特性.Value = rs("特性")
类别.Value = rs("类别")
额定电压.Value = rs("额定电压")
额定电流.Value = rs("额定电流")
备注.Value = rs("备注")
图片.Value = rs("图片")
Else
rs.MoveNext
End If
Next i
End Sub
用FOR 能实现
谢谢 alike123 帮我打开思路

思维转的好快  
如果sel是字符串变量就这样
stemp = "select *  from 空开基本表 where 空开编码='" & sel &" '"
如果sel是数值型变量就这样
stemp = "select *  from 空开基本表 where 空开编码=" & sel & ""

Private Sub List2_Click()
Dim stemp As String
Dim i As Integer
Dim sel As String
sel = List2.Value
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select *  from 空开基本表 where 空开编码='" & sel & " '"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs("空开编码") = sel Then
空开编码.Value = rs("空开编码")
厂家.Value = rs("厂家")
型号.Value = rs("型号")
特性.Value = rs("特性")
类别.Value = rs("类别")
额定电压.Value = rs("额定电压")
额定电流.Value = rs("额定电流")
备注.Value = rs("备注")
图片.Value = rs("图片")
Else
rs.MoveNext
End If
end Sub
又把他改成这样了

"select *  from 空开基本表 where 空开编码='" & sel & "'"