|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Dim TL1 As Double 8 D) n1 y, k, _* Y, ?
'连接数据库
" T: h K: e( YSet adoCon = New Connection
9 m! Q. c9 E% n8 N4 Y! SadoCon.CursorLocation = adUseClient
L, @) i" b6 `) s! [& padoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chen\Documents\abc.mdb;"
4 g/ t) M; o! R2 Y% e6 z
9 \/ X8 O- u7 s4 ]0 k8 i& hSet adoRs = New Recordset
, Y \" p; @; ]0 BadoRs.Open "Ergonomics", adoCon, adOpenDynamic, adLockOptimistic 8 ?5 M! }$ v# T
3 a/ `7 f+ W: G X0 r/ w. S
TL1 = "SELECT CL FROM Ergonomics where Hmin=100"
6 E; r8 q) v1 K* u( B- b
% w5 \- V: G& W1 O+ u( w. O& T我想问的是：打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值？上面的程序是查询Ergonomics表中当HMIN值为100时候 返回对应的CL值。然后赋给TL1。。。请高手指导！谢谢！
3 ^, R* p, ]6 ?/ ], ]7 Y! e* a系统提示最后一句有“类型错误”。。请问如何解决？ - z5 l8 c* a4 d# e
# X) o. J) Q O9 |% Y打开数据库以后，如何查询其中的某个数据，然后给一个变量赋值 |
|
发表于 2009-2-3 23:35:12
发表于 2009-2-4 08:15:54
楼主