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

jjww123

Dim TL1 As Double
5 {/ Z1 w! I9 @- E2 g: w% m& U% S'连接数据库
Set adoCon = New Connection
. W* a$ T/ s( p" ]adoCon.CursorLocation = adUseClient
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
; ?8 `: s  w  e9 B& A
2 I, z: Z4 o7 `0 M6 z0 W" ASet adoRs = New Recordset
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
) f. L$ _# o3 |+ F
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
1 `0 u: ^2 R6 k
我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
$ o9 Y) U1 }" P9 j4 b系统提示最后一句有“类型错误”。。请问如何解决？

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

sealive_leafage

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

$ ]% y1 p/ l7 Z! V2 {' o[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！
/ N* d% O1 @6 [0 L
( Q4 ~" d3 b$ Q5 L, c& p- y7 M! JCL1=adoRs.field（“ CL”）
. n  j# b) Z, H
, w' f' z" Y  m6 L4 g2 j$ R" d+ x就可以取出来了！

lioney

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