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

jjww123

Dim TL1 As Double
. o( N, V0 t# T9 p$ J( }'连接数据库
* X2 @7 B# z3 h  [# I; MSet adoCon = New Connection
6 n$ `! d* o( B) i' F9 M7 Q7 t  xadoCon.CursorLocation = adUseClient
% K# Z8 k# @$ d. h0 CadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"

Set adoRs = New Recordset
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
9 C6 A& ~1 |8 c' c
) C- @! u$ K& _" e8 _TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
! M2 L! d% ]3 {" u! E" k
; Q. e4 [/ s% V5 J2 x( O( y我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
系统提示最后一句有“类型错误”。。请问如何解决？
1 L% a1 H  C5 X8 V% E6 h& G
打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值

sealive_leafage

查询后，满足TL1条件的记录集都在recordset中，可以通过访问你定义的变量adoRs来访问的，adoRs对象有movefirst、movenext等方法，通过循环可以访问到adoRs变量的每个值；
adoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic
4 {$ R: I/ C- O( J" |adoRs.open方法使用有误，可以参看帮助
  M$ P+ H& `$ [" ^
[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！

" {! N4 O( C9 F0 j( \5 d; i, E, }CL1=adoRs.field（“ CL”）
& v$ o" c+ I  o! P
5 @; [: Q+ [& {  {就可以取出来了！

lioney

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