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

jjww123

Dim TL1 As Double
7 X9 E: \$ T) T'连接数据库
Set adoCon = New Connection
5 ^; M% W; e- i% V4 Q, _3 MadoCon.CursorLocation = adUseClient
3 m  N0 x5 Z9 `" I" q; `8 n: m2 H! C  S) AadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
+ l- Y' g$ E% p/ l( }+ L8 Y
5 `& u* j  S" u( m: K1 HSet adoRs = New Recordset
& K0 D, J# |: |& N% J& J* y" |adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic

TL1 = "SELECT CL FROM Ergonomics where Hmin=100"

我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
3 u; [5 E  ^1 K2 w- `. D系统提示最后一句有“类型错误”。。请问如何解决？

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

sealive_leafage

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

! P; ~  I6 D7 v# U9 ^, s7 S1 C" x[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！
/ {& @+ F# B/ ?
CL1=adoRs.field（“ CL”）
/ i' ^. P9 R" }: E7 Q
  w2 x- d' ~. ]" h/ ]3 c就可以取出来了！

lioney

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