QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Dim TL1 As Double
5 {/ Z1 w! I9 @- E2 g: w% m& U% S'连接数据库 $ V4 i+ u6 z6 j3 Z( _; M1 Q; i
Set adoCon = New Connection
. W* a$ T/ s( p" ]adoCon.CursorLocation = adUseClient 1 B8 B: y6 e& D! }4 ]; b
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
; ?8 `: s  w  e9 B& A
2 I, z: Z4 o7 `0 M6 z0 W" ASet adoRs = New Recordset . e5 ]" G2 E$ R- h3 }- j" B' B: ^
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
) f. L$ _# o3 |+ F8 k, q1 g& N* {; [
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
1 `0 u: ^2 R6 k* s: B# _+ c9 F' ^6 f4 z0 X- q! |& e
我想问的是:打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值?上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导!谢谢!
$ o9 Y) U1 }" P9 j4 b系统提示最后一句有“类型错误”。。请问如何解决? ) T: b8 v$ N7 y; `
( p" N% T7 Y7 a# ^; [4 o9 `
打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值
发表于 2009-2-4 08:15:54 | 显示全部楼层 来自: 中国浙江宁波
查询后,满足TL1条件的记录集都在recordset中,可以通过访问你定义的变量adoRs来访问的,adoRs对象有movefirst、movenext等方法,通过循环可以访问到adoRs变量的每个值;6 b+ [6 b. J7 a  _" X9 a8 e
adoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic ' P* c% I% I/ J- F8 F* }0 P
adoRs.open方法使用有误,可以参看帮助+ P: R' g# C8 Q/ H, N9 `1 V

$ ]% y1 p/ l7 Z! V2 {' o[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

评分

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

查看全部评分

 楼主| 发表于 2009-2-5 14:18:22 | 显示全部楼层 来自: 中国福建福州
了解了!
/ N* d% O1 @6 [0 L
( Q4 ~" d3 b$ Q5 L, c& p- y7 M! JCL1=adoRs.field(“ CL”)
. n  j# b) Z, H
, w' f' z" Y  m6 L4 g2 j$ R" d+ x就可以取出来了!
发表于 2009-4-30 14:43:53 | 显示全部楼层 来自: 中国江苏常州
也可以在其中加中Sql语言来操作
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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