Dim TL1 As Double ) i( |5 k- |# e7 Q. D
'连接数据库 8 K8 o* E5 R9 C. P
Set adoCon = New Connection
: |5 r8 N. ~9 V. ` C c( m. ^adoCon.CursorLocation = adUseClient
, L+ y# M0 n9 k3 y3 E: O1 B% eadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;" 2 `6 z& S9 _! _: k2 X, D
9 K( \* a- @6 C, |/ h
Set adoRs = New Recordset
5 h; b' a2 h6 u* l3 Z8 i, r, M7 |adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
2 O [( o0 H7 T* F; i
# B2 a" X3 \7 f- S" m6 FTL1 = "SELECT CL FROM Ergonomics where Hmin=100" : d6 {- o) U# j, X
' ~5 Q5 `' q. [我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！ 0 x6 U& |8 C& \& ]5 u0 L* I
系统提示最后一句有“类型错误”。。请问如何解决？
- j$ y7 E' _, x! h- D5 T0 \& }4 ~' b
打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值 |
发表于 2009-2-3 23:35