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

jjww123

Dim TL1 As Double
'连接数据库
  c: @: t6 k+ n- `. w+ F% B4 ~Set adoCon = New Connection
adoCon.CursorLocation = adUseClient
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"

* Q. g; F5 w) k+ A) }' XSet adoRs = New Recordset
4 W& P( i7 h+ ^! }- a3 w7 i8 |: TadoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
; }' r9 j! u' {  v; B8 {/ n/ `
2 x. t6 N  H) o! e3 `' L' eTL1 = "SELECT CL FROM Ergonomics where Hmin=100"
5 i2 }! a  S/ c9 q" L
5 s8 {1 B( O" h/ d8 ^我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
系统提示最后一句有“类型错误”。。请问如何解决？

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

sealive_leafage

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

( b9 v. s! E6 U. S  u1 {7 W5 {[ 本帖最后由 sealive_leafage 于 2009-2-4 11:09 编辑 ]

jjww123

了解了！

CL1=adoRs.field（“ CL”）
5 n8 l( Z" S, ]3 y- [
就可以取出来了！

lioney

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