ACCESS 数据连接的问题求帮助

#2

风吹过一样2014-07-29 14:50

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

#3

alike1232014-07-29 16:08

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

#4

风吹过一样2014-07-29 17:04

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

#5

风吹过一样2014-07-29 17:05

请高手赐教

#6

风吹过一样2014-07-29 17:09

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里面的数据显示这个表里的内容

#7

风吹过一样2014-07-29 17:28

重新改了一下
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 帮我打开思路

#8

alike1232014-07-30 08:53

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

#9

风吹过一样2014-08-07 16:06

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
又把他改成这样了

#10

smisjk622014-08-08 00:34

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

ACCESS 数据连接的问题 求帮助