数学建模社区-数学中国

标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!! [打印本页]
作者: myhunterli    时间: 2004-12-18 16:28
标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!
<b>% k! u  H7 W/ s6 p

3 `; _, q; t/ W</b>Dim rs_csxx As New ADODB.Recordset: ?' a" C- Q+ z
Dim sql As String
  f- x9 j2 Y. @  E8 oDim tj As Integer
, H$ h5 h: e2 T* J* }! UDim lq As Boolean
. |7 }+ g) V. Q1 x& Y/ A$ Y- J" }% x" @& V
3 {; A1 o( j: d- f
< >sql = "select * from xxxz"* ^( ?9 Z( e' u$ r) k6 h; i
rs_csxx.CursorLocation = adUseClient$ Y! I" V/ i% S) `# o
rs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
# W, v+ U! x0 Y# P5 ]' _< >Do While lq = True
) \: O+ R3 x, t0 h' ftj = tj + rs_csxx.Fields(4)% ?# T6 }2 x+ O
rs_csxx.MoveNext+ `+ l8 d/ Z/ G2 @
If rs_csxx.EOF = True Then lq = False, a: K) x6 M8 L9 b. k; P8 {4 v
Loop</FONT></P>' E1 J" ^1 x9 l; i& t( A4 p
< >Text1.Text = tj</FONT></P>+ T3 F) B9 y8 x
< >  m4 q) `4 O5 z6 F: f
哥哥姐姐们帮帮忙~9 a* f7 U# y. |+ E3 t9 ?
我用的office的acce数据库~想让csxx表中的N条记录相加~
! ?6 c7 s9 Y& H但随便怎么试也不行~~~请各位好心人帮我改改~</FONT></P>
作者: ilikenba    时间: 2004-12-19 23:35
为什么不直接用while呢？
作者: blueriver    时间: 2004-12-23 01:34
<>为什么那条SQL语句不设为：sql="Select sum(要计算的字段) from xxxz"呢？</P><>还有变量lp开始时是不是设为TRUE，如果不是那就不会执行循环啦</P><>你这样写还不如直接写成：</P><>Do while rs_csxx.EOF&lt;&gt;True</P><>...</P><>Loop</P>



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5