VB读取ACCESS数据库的问题~高手指导下！谢谢

jjww123

Dim TL1 As Double
& ^! L$ o, l6 X* G'连接数据库
) s5 w/ l8 `2 x# l- u, RSet adoCon = New Connection
6 W  P' b( [1 A  ?' H* qadoCon.CursorLocation = adUseClient
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
( L2 I" u* Z. N" k+ R# ^, G
1 u# f3 Y0 m/ `% G% r" OSet adoRs = New Recordset
- f, h6 h  f  {+ S$ e" K- p) ladoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
5 w0 O2 k, o" U, m
. d: N3 l9 e" \+ z9 ~8 }TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
5 e6 X) }! B) @4 m
% w7 d3 W' E9 q我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
4 I! Z* E& w& R  e- e  B系统提示最后一句有“类型错误”。。请问如何解决？

9 m0 O2 X0 x5 a. X打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值

sealive_leafage

查询后，满足TL1条件的记录集都在recordset中，可以通过访问你定义的变量adoRs来访问的，adoRs对象有movefirst、movenext等方法，通过循环可以访问到adoRs变量的每个值；
adoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic
5 F/ H$ z! }6 q2 N- v8 f1 WadoRs.open方法使用有误，可以参看帮助
+ G8 s9 s' L! a9 x) S  b
& u7 A; A$ u* R8 I+ x& R" M[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！

CL1=adoRs.field（“ CL”）

# c' _/ Q0 d7 C  L3 q* B就可以取出来了！

lioney

也可以在其中加中Sql语言来操作