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

jjww123

Dim TL1 As Double
'连接数据库
Set adoCon = New Connection
( f" U, A1 F4 G% R; V# MadoCon.CursorLocation = adUseClient
9 {0 J, N: ^# |  M& zadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
7 K$ ]' P. v+ A" k# D
Set adoRs = New Recordset
& m! o3 j- \0 t' z+ Z. }' r6 fadoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
) n: P6 e8 Q$ E, F2 h" {* S" u* I; Z+ j
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
. t+ I# ^3 @8 l7 W' R$ a" L6 h9 |
  ~3 M7 ?0 q& s' P5 N9 g我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
系统提示最后一句有“类型错误”。。请问如何解决？
3 t! W* ?2 W9 m/ l* Q
打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值

sealive_leafage

查询后，满足TL1条件的记录集都在recordset中，可以通过访问你定义的变量adoRs来访问的，adoRs对象有movefirst、movenext等方法，通过循环可以访问到adoRs变量的每个值；
6 v$ j. D+ k9 `adoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic
adoRs.open方法使用有误，可以参看帮助
& Z4 h, D9 T" [3 K# y8 X! I
[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！

CL1=adoRs.field（“ CL”）

+ P6 |5 }' V: Q* ?7 p- u5 {就可以取出来了！

lioney

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