数学建模社区-数学中国

标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!! [打印本页]
作者: myhunterli    时间: 2004-12-18 16:28
标题: VB小问题!!哥哥姐姐快来帮帮小弟!十万火急!!!
<b>7 [$ f" C" w% L( }8 K: T

% K5 ?& N5 V( i</b>Dim rs_csxx As New ADODB.Recordset  ?9 E7 `! @: {8 k& g& R
Dim sql As String( e/ {. T9 e- b; x$ j. {5 o# y
Dim tj As Integer1 A6 J+ X( p  j
Dim lq As Boolean 7 H- }7 u6 E( Q8 D4 s0 i
% `# m- Q6 g9 K0 O. b& v

& r& D8 p# w: K2 S5 S< >sql = "select * from xxxz"
/ _' Q' {5 a  d' v% Jrs_csxx.CursorLocation = adUseClient
: n  @7 B% X) m2 O' \* Zrs_csxx.Open sql, conn, adOpenKeyset, adLockPessimistic</FONT></P>
- b/ A/ t! [& r% U8 v, w$ T< >Do While lq = True
" ]9 |: ^. }" ^4 |! |tj = tj + rs_csxx.Fields(4)6 w' n* N, M, z- S
rs_csxx.MoveNext" }$ m5 {) b7 _7 s
If rs_csxx.EOF = True Then lq = False) h8 G) j) _# b- o- R# ~, J. I
Loop</FONT></P>& A; W9 }0 w! g5 x
< >Text1.Text = tj</FONT></P>% h7 T/ |4 a+ \" U1 w! d( }, @
< >8 K, h% T7 H: O& ?" O
哥哥姐姐们帮帮忙~
& J6 G0 p5 d  M$ ^3 o5 @我用的office的acce数据库~想让csxx表中的N条记录相加~) s/ T, w, N0 Y: {
但随便怎么试也不行~~~请各位好心人帮我改改~</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