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

jjww123

Dim TL1 As Double
; `% O% E0 C' l! q# A8 u7 }'连接数据库
6 E4 f" a5 R' u0 ^$ K# A7 O- dSet adoCon = New Connection
adoCon.CursorLocation = adUseClient
' ]3 R% E& k! Z, s- CadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
4 r+ z' w8 Z8 r: S5 k
; S: g; Z* y7 {- o2 `Set adoRs = New Recordset
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic

TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
- B# J: x' g% a: R2 U+ h
我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
系统提示最后一句有“类型错误”。。请问如何解决？

打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值

sealive_leafage

查询后，满足TL1条件的记录集都在recordset中，可以通过访问你定义的变量adoRs来访问的，adoRs对象有movefirst、movenext等方法，通过循环可以访问到adoRs变量的每个值；
' M% U+ c4 x) padoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic
8 f, t) ]# e0 aadoRs.open方法使用有误，可以参看帮助

[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！
$ K; _5 E0 `5 S; ^0 A  n  G/ a
" D) z7 @3 l0 d3 o3 V% eCL1=adoRs.field（“ CL”）
& `: D, s7 Y& h
  Y0 K& _4 z3 ^- K就可以取出来了！

lioney

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