|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
Dim TL1 As Double
7 X9 E: \$ T) T'连接数据库 $ D1 [0 ]0 l/ h, t0 f4 ^9 c( c5 R
Set adoCon = New Connection
5 ^; M% W; e- i% V4 Q, _3 MadoCon.CursorLocation = adUseClient
3 m N0 x5 Z9 `" I" q; `8 n: m2 H! C S) AadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
+ l- Y' g$ E% p/ l( }+ L8 Y
5 `& u* j S" u( m: K1 HSet adoRs = New Recordset
& K0 D, J# |: |& N% J& J* y" |adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic 4 D e6 b& N) `; L* z+ U' k: A2 Z
3 ?" m9 G" x$ j0 I
TL1 = "SELECT CL FROM Ergonomics where Hmin=100" 4 k6 ~0 A3 o% b; @/ a- H$ |+ D
$ I( C% Z" _, L {% e5 |; V) D
我想问的是:打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值?上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导!谢谢!
3 u; [5 E ^1 K2 w- `. D系统提示最后一句有“类型错误”。。请问如何解决? 3 ^/ {# _. d( B5 E9 ~
) R; N. w8 W4 Z$ `6 S& v, ^" W
打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值 |
|