QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2530|回复: 3
收起左侧

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

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

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

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

x
Dim TL1 As Double
, k7 K1 q' X6 d9 \0 s9 s4 m'连接数据库 + q2 [% J8 K5 r4 d, e. l
Set adoCon = New Connection : h4 P( B$ |. o1 l6 {# y
adoCon.CursorLocation = adUseClient 7 S9 W# P. ]& i% q
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;" * L: _! ?+ h( `" S$ s9 K* X

' M! ]  |/ k& O# Q4 bSet adoRs = New Recordset $ P, l2 d: X' }: d& f; m
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
  J: p( X/ x) s$ \. j$ H4 {6 f; N0 b4 U! m
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
" j3 s- e$ @9 v& _9 E# G  w; D. W4 R* E( [8 [0 [3 A
我想问的是:打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值?上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导!谢谢! 8 R8 ]3 o; i) c  Y3 ^
系统提示最后一句有“类型错误”。。请问如何解决?
  Z5 Y/ Y3 J* d1 G0 n$ i8 W! Y- `) w$ d3 o! U4 s( i- Z
打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值
发表于 2009-2-4 08:15:54 | 显示全部楼层 来自: 中国浙江宁波
查询后,满足TL1条件的记录集都在recordset中,可以通过访问你定义的变量adoRs来访问的,adoRs对象有movefirst、movenext等方法,通过循环可以访问到adoRs变量的每个值;8 F* f5 r2 _2 [0 V
adoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic . g- z5 |5 Q: s0 \9 s" p
adoRs.open方法使用有误,可以参看帮助
7 r2 y' C/ W) \7 d$ ]% ?+ i9 t8 [& m/ C
[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

评分

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

查看全部评分

 楼主| 发表于 2009-2-5 14:18:22 | 显示全部楼层 来自: 中国福建福州
了解了!( N9 V7 S) F+ P5 l2 ]3 w

& o: ?% k. z' w/ a" t5 H- oCL1=adoRs.field(“ CL”)5 I% y& ?+ c7 \# u2 J$ y1 T
: p' ?( y7 @) _# Q3 r
就可以取出来了!
发表于 2009-4-30 14:43:53 | 显示全部楼层 来自: 中国江苏常州
也可以在其中加中Sql语言来操作
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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