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

jjww123

Dim TL1 As Double
  [  o" \1 g! t'连接数据库
: K- R/ o5 z! i( y6 Z) N6 `9 U6 kSet adoCon = New Connection
  c0 [* ?  `3 m  I0 n, v5 OadoCon.CursorLocation = adUseClient
4 a3 y9 W: H" H+ w. ^8 \adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
5 B. O# O# S  o
# q2 ], Q2 L4 qSet adoRs = New Recordset
! b( B9 }( I, A1 O. i9 P0 madoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic

3 T4 v8 D& L9 vTL1 = "SELECT CL FROM Ergonomics where Hmin=100"

我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
6 |: z: K, v) R& i/ W系统提示最后一句有“类型错误”。。请问如何解决？

7 H+ z, k3 E/ j" q打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值

sealive_leafage

查询后，满足TL1条件的记录集都在recordset中，可以通过访问你定义的变量adoRs来访问的，adoRs对象有movefirst、movenext等方法，通过循环可以访问到adoRs变量的每个值；
7 w2 q- [% L* k3 x& wadoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic
adoRs.open方法使用有误，可以参看帮助
1 p/ j9 w. E1 @! |3 C7 T
[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！
6 u/ D3 s0 }$ l" R4 y4 a! [9 g* ]
CL1=adoRs.field（“ CL”）

' q* z5 }' n- |1 [就可以取出来了！

lioney

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