Dim TL1 As Double 1 ~" R# u5 r7 T" x% k! w
'连接数据库 ( t0 b; c+ _* M2 V
Set adoCon = New Connection , U& S5 u: ~) [- r2 d2 R! B
adoCon.CursorLocation = adUseClient
: X! {1 K! F* nadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;" : |* d: Z& J& r+ P
~* L5 X. }; S8 H6 v6 b" T& J. b
Set adoRs = New Recordset ; N. H, C s4 p- ]+ Z: r
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic / J! }1 |4 l" [ N4 `0 x
0 S# u( B7 \' y, J
TL1 = "SELECT CL FROM Ergonomics where Hmin=100" ! J) G3 O' |4 ~; G
+ m9 P1 u8 A0 A9 N- m
我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！ 2 F# W4 F' q( M% d5 r s7 O
系统提示最后一句有“类型错误”。。请问如何解决？
0 k" s: X: s9 s7 {* z+ i6 j
& e: L% r( s- }: l打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值 |
发表于 2009-2-3 23:35