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

jjww123

Dim TL1 As Double
'连接数据库
Set adoCon = New Connection
! t4 C0 Z4 Y1 W- n& E$ JadoCon.CursorLocation = adUseClient
  a) Y2 T6 c. E; I2 `adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"

- J6 H4 i0 L( Z' [4 G" jSet adoRs = New Recordset
) ~! v/ G) f+ gadoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic

! b1 A, R) W, ?% d0 `$ P) d1 XTL1 = "SELECT CL FROM Ergonomics where Hmin=100"
! L, g( P, t- r6 k0 k8 K
我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
- i' U3 j+ X; x5 P8 c5 ^系统提示最后一句有“类型错误”。。请问如何解决？
2 ~7 g1 F$ I7 l; s6 m# [* ~* `$ v& s
! ^. E2 ?( M: `; W打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值

sealive_leafage

查询后，满足TL1条件的记录集都在recordset中，可以通过访问你定义的变量adoRs来访问的，adoRs对象有movefirst、movenext等方法，通过循环可以访问到adoRs变量的每个值；
adoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic
adoRs.open方法使用有误，可以参看帮助

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

jjww123

了解了！
" g0 n; ^4 a% I9 T8 @# A
CL1=adoRs.field（“ CL”）

- v8 ~, [1 _- _" Z6 ?! @& \就可以取出来了！

lioney

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