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

jjww123

Dim TL1 As Double
* d" U3 U' }$ W3 a2 K'连接数据库
Set adoCon = New Connection
9 o( S9 s7 }4 F, DadoCon.CursorLocation = adUseClient
- A0 b; ]3 z( S' ~0 ^; E. I1 XadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
8 Y7 u; x% p+ d9 b, a
Set adoRs = New Recordset
6 e7 u2 t1 r/ H$ E" k: N* SadoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
9 g4 @" \( x4 M2 p& A0 y( z; `
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
+ W( o7 Y" u6 f+ F$ B' ^4 k8 N. M
& `4 F) n( q7 M+ o5 c; o4 E( a& Q我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
# F0 y4 v  v$ M& q7 _+ s1 k系统提示最后一句有“类型错误”。。请问如何解决？
8 R6 w+ u6 K: w6 y. X
2 a+ y9 v+ G$ ~  w, ]2 m* Q打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值

sealive_leafage

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

! \5 K3 p$ z9 Q' P5 j1 P[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！

& K6 N3 P6 [1 q, F- Y2 |% jCL1=adoRs.field（“ CL”）

就可以取出来了！

lioney

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