|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Dim TL1 As Double
; D, `* n! i k* h0 f/ \'连接数据库
8 P2 W N6 a; ~Set adoCon = New Connection $ x$ b; u) W6 ^: J& ]+ C
adoCon.CursorLocation = adUseClient
5 C+ T' J M6 K$ }adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;" * _! S' g5 x q% Y: \6 g3 a" s' g1 O
& L7 Z' M2 C3 P$ b, o5 ~Set adoRs = New Recordset 0 y- k$ P3 ~ q
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic 7 e7 g- A8 V5 s( i" ^, F6 b1 H ~
( Z; u! l# Y n* s) M
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
2 L- A! t% [8 x% }6 {# ^2 x1 [, J A% A! v9 X
我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！ + ~/ w7 Y* h1 }+ O7 I7 u p
系统提示最后一句有“类型错误”。。请问如何解决？
5 M! Q5 l1 n! M/ M
* ]+ d9 I7 F+ M A8 B& G打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值 |
|
发表于 2009-2-3 23:35:12
发表于 2009-2-4 08:15:54
楼主