QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
9天前
查看: 2448|回复: 3
收起左侧

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

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

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

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

x
Dim TL1 As Double
' D+ C) G- ^8 |$ h5 q' b'连接数据库
' F# @- W0 Q9 k* O) J- u5 zSet adoCon = New Connection
% d$ B" ?7 b! Q4 X& n+ D& O3 oadoCon.CursorLocation = adUseClient
/ {/ L2 [3 w7 O( C" A' A5 NadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
. T( ?7 J. ~8 `, X; Y/ A; j& h
+ f" P% F, t2 p* y$ c1 ?Set adoRs = New Recordset " D9 }6 [1 [3 q) x7 \
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
5 M& S5 Q  A# c+ G/ T$ ~5 w* P  Q3 @
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
( j( W3 ^6 ~# ]5 I: N  N" S7 f  T6 o
# n& |0 W1 ~9 H. }9 V/ |我想问的是:打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值?上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导!谢谢! & }2 E+ V4 o) m% Q; o
系统提示最后一句有“类型错误”。。请问如何解决? - ^. Y7 r$ O) z0 M4 W. R
; Z3 N" G' T0 q, N% [. B
打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值
发表于 2009-2-4 08:15:54 | 显示全部楼层 来自: 中国浙江宁波
查询后,满足TL1条件的记录集都在recordset中,可以通过访问你定义的变量adoRs来访问的,adoRs对象有movefirst、movenext等方法,通过循环可以访问到adoRs变量的每个值;4 ^/ h7 u  z( S
adoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic
. d+ J1 i5 ]& J2 `8 IadoRs.open方法使用有误,可以参看帮助+ K' O0 t- o, l8 ^0 k  w& F

/ Q( f% ?0 \) z8 x$ u, T8 `[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

评分

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

查看全部评分

 楼主| 发表于 2009-2-5 14:18:22 | 显示全部楼层 来自: 中国福建福州
了解了!9 B6 t7 t' u! u2 W6 j0 O- v

6 A- H# u" A" d% MCL1=adoRs.field(“ CL”)8 w+ m; n( g, z7 d( Z

% |7 Z# ?' Q/ J; U; u! b0 e就可以取出来了!
发表于 2009-4-30 14:43:53 | 显示全部楼层 来自: 中国江苏常州
也可以在其中加中Sql语言来操作
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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