QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
8天前
查看: 2498|回复: 3
收起左侧

[已答复] VB读取ACCESS数据库的问题~高手指导下!谢谢

[复制链接]
发表于 2009-2-3 23:35:12 | 显示全部楼层 |阅读模式 来自: 中国福建福州

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
Dim TL1 As Double
& ^! L$ o, l6 X* G'连接数据库
) s5 w/ l8 `2 x# l- u, RSet adoCon = New Connection
6 W  P' b( [1 A  ?' H* qadoCon.CursorLocation = adUseClient ' z; V/ T! o! U9 c) H( K& c' T, w. R
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
( L2 I" u* Z. N" k+ R# ^, G
1 u# f3 Y0 m/ `% G% r" OSet adoRs = New Recordset
- f, h6 h  f  {+ S$ e" K- p) ladoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
5 w0 O2 k, o" U, m
. d: N3 l9 e" \+ z9 ~8 }TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
5 e6 X) }! B) @4 m
% w7 d3 W' E9 q我想问的是:打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值?上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导!谢谢!
4 I! Z* E& w& R  e- e  B系统提示最后一句有“类型错误”。。请问如何解决? 8 P  Q- B$ r! ?; P" ~3 X' i: m, r

9 m0 O2 X0 x5 a. X打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值
发表于 2009-2-4 08:15:54 | 显示全部楼层 来自: 中国浙江宁波
查询后,满足TL1条件的记录集都在recordset中,可以通过访问你定义的变量adoRs来访问的,adoRs对象有movefirst、movenext等方法,通过循环可以访问到adoRs变量的每个值;) o3 X! v* \6 `6 c# E& K6 C; n% |
adoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic
5 F/ H$ z! }6 q2 N- v8 f1 WadoRs.open方法使用有误,可以参看帮助
+ G8 s9 s' L! a9 x) S  b
& u7 A; A$ u* R8 I+ x& R" M[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

评分

参与人数 1三维币 +8 收起 理由
woaishuijia + 8 应助

查看全部评分

 楼主| 发表于 2009-2-5 14:18:22 | 显示全部楼层 来自: 中国福建福州
了解了!/ n8 J  _! w6 l3 g
. ^5 C* v0 a: [
CL1=adoRs.field(“ CL”)& M6 x3 c/ e! a# o+ j3 W/ z7 S# D1 x

# c' _/ Q0 d7 C  L3 q* B就可以取出来了!
发表于 2009-4-30 14:43:53 | 显示全部楼层 来自: 中国江苏常州
也可以在其中加中Sql语言来操作
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表