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

jjww123

Dim TL1 As Double
'连接数据库
Set adoCon = New Connection
8 L+ F% i, o( g" |adoCon.CursorLocation = adUseClient
1 p2 S3 P" u  U# J! iadoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"

  j1 t9 M! Q2 ^- b+ F) y( [8 w# b5 NSet adoRs = New Recordset
: A- u2 ~5 n. T7 S6 _1 tadoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
3 H, N2 W; e7 ?: ^* U  s+ P. i
: M% }# d% K$ u5 _$ s9 UTL1 = "SELECT CL FROM Ergonomics where Hmin=100"

我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
) [) r; M  Q3 T系统提示最后一句有“类型错误”。。请问如何解决？
. g$ p( o% z% Q$ v* R1 U% i0 o
1 g9 P( b* z# F3 j# O打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值

sealive_leafage

查询后，满足TL1条件的记录集都在recordset中，可以通过访问你定义的变量adoRs来访问的，adoRs对象有movefirst、movenext等方法，通过循环可以访问到adoRs变量的每个值；
adoRs.Open TL1, adoCon, adOpenDynamic, adLockOptimistic
  q( y8 Z5 W3 @; A$ aadoRs.open方法使用有误，可以参看帮助

[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！

CL1=adoRs.field（“ CL”）
* k) I  P  E, a+ v2 N9 j- ^+ y$ c
: ~2 B( r* {& C0 D1 X就可以取出来了！

lioney

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