Dim TL1 As Double ( @% H0 o! y+ F5 K
'连接数据库
& q/ s6 y/ E) D/ A2 j; U# mSet adoCon = New Connection 1 {9 m9 A' ^% M! i; Q
adoCon.CursorLocation = adUseClient & I+ B1 n+ v# U1 @, H+ H
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;" 7 A) C* A z2 \0 d3 F, V/ f
' W8 ]6 U# k, r$ u7 TSet adoRs = New Recordset & C1 d8 o& |9 a' k
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic ' d* a- {' x; q" i% O% ]! \
: o# s: a' E3 E2 r
TL1 = "SELECT CL FROM Ergonomics where Hmin=100" . u8 d6 R) B7 b/ V2 X6 m r
* r, y# K1 f+ D+ S
我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！ 4 j& M) o3 ~2 T8 p* i; l
系统提示最后一句有“类型错误”。。请问如何解决？ . _: \( E4 t! d' x
& M( A j; J7 N! C$ \* h& S6 r打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值 |
发表于 2009-2-3 23:35