|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
Dim TL1 As Double
9 E. C R* S; A8 L'连接数据库
2 z. D+ O4 D. P: V8 e; r* s) S( aSet adoCon = New Connection
: F2 Q! u) i( ]! o GadoCon.CursorLocation = adUseClient 8 ]' Y+ U: a4 l/ }* }
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
) t8 P! L4 a3 ]6 G0 C+ l' n% a: U
Set adoRs = New Recordset ! {: e; z7 W% P7 s; w8 e- E
adoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic ' e7 M% M( ^ P& ]* }
% Q. q4 m, W. x5 WTL1 = "SELECT CL FROM Ergonomics where Hmin=100"
3 ~% p. R! U+ R6 D2 S V: Z$ b" P/ H5 @6 ]# A
我想问的是:打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值?上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导!谢谢! ' J9 p5 l) c- m' X
系统提示最后一句有“类型错误”。。请问如何解决? + ^( {: I6 O( l G1 j/ o+ U3 n
, v# G; `; y: I1 f打开数据库以后,如何查询其中的某个数据,然后给一个变量赋值 |
|