|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
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
打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值 |
|