| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 784 人关注过本帖
标题:ACCESS 数据连接的问题 求帮助
取消只看楼主 加入收藏
风吹过一样
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-7-29
结帖率:0
收藏
已结贴  问题点数:20 回复次数:6 
ACCESS 数据连接的问题 求帮助
stemp = "select * from 空开基本表 where 空开编码=sel"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
这个代码为什么不可以用
stemp = "select * from 空开基本表"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
而这个又可以
我是新手 求帮助 解惑
搜索更多相关主题的帖子: where 
2014-07-29 14:27
风吹过一样
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-7-29
收藏
得分:0 
大家帮忙下
找了很久 找不到答案
新手 想用ACCESS 做个数据库访问
查询没问题的 SEL 输入就能出来
2014-07-29 14:50
风吹过一样
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-7-29
收藏
得分:0 
如果用''那SEL 就变成一个字符串了  我这里SEL 想用的是一个  变量  难道在这里不行?
2014-07-29 17:04
风吹过一样
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-7-29
收藏
得分:0 
请高手赐教
2014-07-29 17:05
风吹过一样
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-7-29
收藏
得分:0 
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里面的数据 显示这个表里的内容
2014-07-29 17:09
风吹过一样
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-7-29
收藏
得分:0 
重新改了一下
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 帮我打开思路
2014-07-29 17:28
风吹过一样
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-7-29
收藏
得分:0 
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
又把他改成这样了
2014-08-07 16:06
快速回复:ACCESS 数据连接的问题 求帮助
数据加载中...
 
   



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

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