Dim TL1 As Double 1 |1 U" w) \/ e+ ~4 k; ?' `
'连接数据库 5 Y3 u5 A% R" v e
Set adoCon = New Connection % U& o; F3 V1 Y5 a! i* i+ h
adoCon.CursorLocation = adUseClient
5 ]' ?% `( i. d$ j, }# N2 `/ |adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
3 [0 s9 H7 w8 h" C
, ]3 E" _# \/ ]: ISet adoRs = New Recordset
9 O E$ ^/ V$ c, \4 K* tadoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
8 k- h! v0 W/ Y, `! q, C
. _4 R/ ]- j9 F" K* _. T eTL1 = "SELECT CL FROM Ergonomics where Hmin=100"
& r- Q8 ?. c( {& K9 i% C4 |( z- q
我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！ % g" f+ l/ @; ?/ j/ {; o
系统提示最后一句有“类型错误”。。请问如何解决？
5 [* k. d5 t6 z" g4 {) h
* Z9 p: @4 x$ J2 G" L! u( X打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值 |
发表于 2009-2-3 23:35