|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Dim TL1 As Double
7 O+ N, {3 j! U) E {'连接数据库 3 |9 z; }3 g H* z# _
Set adoCon = New Connection ' G& ?( V" K* x
adoCon.CursorLocation = adUseClient ( P9 L3 \/ M e; _+ V* w
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
$ V; R0 d2 j" k: O+ g g( _
! p; v1 t9 D9 [0 S. _0 bSet adoRs = New Recordset 1 D m# a N2 o1 S* {4 w7 w; Y
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
. d t' H7 `( j- w4 l) l8 E2 \5 K3 r
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
3 B, ?5 p( H2 e2 M) `
, E+ P0 ]/ z/ q8 b6 z我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
, u6 Z0 J' B0 [: H$ V系统提示最后一句有“类型错误”。。请问如何解决？ & [: W5 R! w6 |! \) S3 H3 A* H J
* z* f2 |5 M2 U打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值 |
|
发表于 2009-2-3 23:35:12
发表于 2009-2-4 08:15:54
楼主