|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Dim TL1 As Double
, k7 K1 q' X6 d9 \0 s9 s4 m'连接数据库 + q2 [% J8 K5 r4 d, e. l
Set adoCon = New Connection : h4 P( B$ |. o1 l6 {# y
adoCon.CursorLocation = adUseClient 7 S9 W# P. ]& i% q
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;" * L: _! ?+ h( `" S$ s9 K* X
' M! ] |/ k& O# Q4 bSet adoRs = New Recordset $ P, l2 d: X' }: d& f; m
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic
J: p( X/ x) s$ \. j$ H4 {6 f; N0 b4 U! m
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
" j3 s- e$ @9 v& _9 E# G w; D. W4 R* E( [8 [0 [3 A
我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！ 8 R8 ]3 o; i) c Y3 ^
系统提示最后一句有“类型错误”。。请问如何解决？
Z5 Y/ Y3 J* d1 G0 n$ i8 W! Y- `) w$ d3 o! U4 s( i- Z
打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值 |
|
发表于 2009-2-3 23:35:12
发表于 2009-2-4 08:15:54
楼主